VBSで商標検索

2019年5月にJ-PlatPatがリニューアルされました。このJ-PlatPatを利用して商標を検索することができますが、入力に手間がかかります。そこで、J-PlatPatにアクセスして商標を検索することができるVBSを作成しました。使用する際には、メモ帳等にコピペし、ファイルの拡張子をVBS […]

公開済み: 2019年7月16日
更新: 2019年7月18日
作成者: アキノハ
カテゴリー: VBS, 商標

山路を登りながら

アドビのイラストレータで図面を作成するとき、文字入力のショートカット「T」を押すと、文字入力枠が表示され、その中にデフォルトで「山路を登りながら」の文字が表示されます。夏目漱石の「草枕」の冒頭の一節です。この作品は、画家が主人公として描かれています。画像ソフトに画家が主人公の文学作品の一節を表示 […]

公開済み: 2019年7月7日
更新: 2019年7月7日
作成者: アキノハ
カテゴリー: ワード

ダークモードっぽいやつ

以前、背景色を黒色に切り替えるマクロと、白色に切り替えるマクロを紹介しました。これをベースに白黒をトグル切り替えするマクロを作成しました。このマクロをクイックアクセスツールバーに登録する方法について、ご紹介します。まず、ご自身で使用されているマクロ保存用ファイルのVBエディターを開き（Alt+F11 […]

公開済み: 2019年4月5日
更新: 2019年5月26日
作成者: アキノハ
カテゴリー: ワード

定冠詞を削除したいときに

請求項に記載された発明は、発明の詳細な説明に記載した範囲を超えてはいけません（サポート要件）。請求項と実施形態の記載は、密にリンクすることになります。請求項を先に作り（あるいは作りながら）、実施形態の作成を進めると、ところどころ、請求項の一部又は全部を実施形態に埋め込むことがあります。ここで、クセ […]

公開済み: 2019年3月18日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

句読点まで一気に選択したいときに

文を書いたり修正したりしていると、カーソルの移動に時間がかかることがあります。例えば、現在のカーソル位置から次の句読点までの部分を削除したいとき、Shiftを押しながら右矢印キーカタカタを叩いて句読点まで選択して削除をします。僅かな時間ですが、積み重なると大きな時間になります。このときに、次の句読 […]

公開済み: 2019年3月15日
更新: 2019年3月15日
作成者: アキノハ
カテゴリー: ワード

ドキュメント内を上へジャンプしたいときに

前回の越え行きたしの回では、下方へジャンプするマクロをご紹介しましたが、ここでは、上方へジャンプするマクロをご紹介します。

Sub 上に移動()
Dim 選択文字 As String
選択文字 = "（"

Selection.HomeKey unit:=wdLine, Extend:=wdMove
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = 選択文字
    .Format = False
    .Forward = False
    .Wrap = wdFindContinue
    .MatchFuzzy = False
    .MatchWildcards = True
    .Execute
    .Text = ""
End With
Selection.HomeKey unit:=wdLine, Extend:=wdMove
Selection.Collapse Direction:=wdCollapseEnd
End Sub

Sub 上に選択する(ByRef 選択文字 As String)
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = 選択文字
    .Format = False
    .Forward = False
    .Wrap = wdFindContinue
    .MatchFuzzy = False
    .MatchWildcards = True
    .Execute
    .Text = ""
End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

Sub 上に移動()

Dim 選択文字 As String

選択文字 = "（"

Selection.HomeKey unit:=wdLine, Extend:=wdMove

With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = 選択文字

.Format = False

.Forward = False

.Wrap = wdFindContinue

.MatchFuzzy = False

.MatchWildcards = True

.Execute

.Text = ""

End With

Selection.HomeKey unit:=wdLine, Extend:=wdMove

Selection.Collapse Direction:=wdCollapseEnd

End Sub

Sub 上に選択する(ByRef 選択文字 As String)

With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = 選択文字

.Format = False

.Forward = False

.Wrap = wdFindContinue

.MatchFuzzy = False

.MatchWildcards = True

.Execute

.Text = ""

End With

End Sub

上記のマクロを実行すると、現在位置よりも上方の括弧“（”を検索し、ジャンプします。 Findメソッドにおいて「 […]

公開済み: 2019年3月10日
更新: 2019年3月15日
作成者: アキノハ
カテゴリー: ワード

ドキュメント内を下へジャンプしたいときに

文を修正するとき、関連した部分の修正も必要となり、あっちもこっちも修正することがあります。マウスホイールを指で弾いて画面をスクロールさせるのですが、これが結構時間かかります。例えば、実施形態の記載を修正し、併せて変形例の記載も修正するときなど、実施形態を修正し、画面をスクロールさせて変形例を探し出 […]

公開済み: 2019年3月10日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

英字・数字・括弧の色を変えたいときに

符号等を記載するとき、英字や数字、括弧を使用します。これらの色を変えると、文のチェックがより容易になります。そこで、英字や数字、括弧の色を変えるマクロを作成しました。

Sub 英字数字括弧いろかはれ()
Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = "[Ａ-Ｚａ-ｚA-Za-zΑ-Ωα-ω]"
Dim 数字 As String: 数字 = "[０-９0-9]"
Dim 括弧 As String: 括弧 = "[（*）]"

Call 着色する(英字ギリシャ文字, wdColorDarkRed)
Call 着色する(数字, wdColorAqua)
Call 着色する(括弧, wdColorBrightGreen)
End Sub

Sub 着色する(ByRef 置換文字 As String, カラー As Long)
With ActiveDocument.Range(0, 0).Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = 置換文字
    .Replacement.Font.Color = カラー
    .Format = True
    .Forward = True
    .Wrap = wdFindContinue
    .MatchFuzzy = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
    
    .Format = False
    .Font.Color = False
    .Replacement.Font.Color = False
    .Text = ""
    .MatchWildcards = False
End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

Sub 英字数字括弧いろかはれ()

Dim 英字ギリシャ文字 As String: 英字ギリシャ文字 = "[Ａ-Ｚａ-ｚA-Za-zΑ-Ωα-ω]"

Dim 数字 As String: 数字 = "[０-９0-9]"

Dim 括弧 As String: 括弧 = "[（*）]"

Call 着色する(英字ギリシャ文字, wdColorDarkRed)

Call 着色する(数字, wdColorAqua)

Call 着色する(括弧, wdColorBrightGreen)

End Sub

Sub 着色する(ByRef 置換文字 As String, カラー As Long)

With ActiveDocument.Range(0, 0).Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = 置換文字

.Replacement.Font.Color = カラー

.Format = True

.Forward = True

.Wrap = wdFindContinue

.MatchFuzzy = False

.MatchWildcards = True

.Execute Replace:=wdReplaceAll

.Format = False

.Font.Color = False

.Replacement.Font.Color = False

.Text = ""

.MatchWildcards = False

End With

End Sub

このマクロでは、英字ギリシャ文字が濃赤色（wdColorDark […]

公開済み: 2019年3月9日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

隅付き括弧と角括弧を入れ替えたいときに

たまに、段落番号の表示等で使う墨付き括弧’【】’を角括弧’[]’に変更するとき、または、その逆に変更するときがあります。そのようなとき、簡単に括弧の種類を変更できるマクロを作成しました。

Sub 括弧の種類を変えます()
Dim cur As Range
Dim objRng As Range
Set cur = Selection.Range
Set objRng = Selection.Range

'選択範囲がないとき全文を置換範囲にします
If cur.Start = cur.End Then
    objRng.Start = 0
    objRng.End = ActiveDocument.Bookmarks("\EndOfDoc").End
End If

If 語句あるかB("【", objRng) = True Or 語句あるかB("】", objRng) = True Then
    Call 範囲を指定して置き換えるB("【", "[", objRng)
    Call 範囲を指定して置き換えるB("】", "]", objRng)
Else
    Call 範囲を指定して置き換えるB("[", "【", objRng)
    Call 範囲を指定して置き換えるB("]", "】", objRng)
End If
cur.Select
Set objRng = Nothing
Set cur = Nothing
End Sub

Function 語句あるかB(ByRef 検索文字 As String, ByRef rng As Range) As Boolean
If Not rng Is Nothing Then rng.Select
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = 検索文字
    .Format = False
    .Forward = True
    .Wrap = wdFindStop
    .MatchFuzzy = False
    .MatchWildcards = False
    語句あるかB = .Execute
    
    .Text = ""
End With
End Function

Sub 範囲を指定して置き換えるB(ByRef 置換前 As String, ByRef 置換後 As String, ByRef rng As Range)
With rng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = 置換前
    .Replacement.Text = 置換後
    .Format = False
    .Forward = True
    .Wrap = wdFindStop
    .MatchWildcards = False
    .MatchFuzzy = True
    .Execute Replace:=wdReplaceAll
    
    .Text = ""
    .Replacement.Text = ""
    .MatchFuzzy = False
End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

Sub 括弧の種類を変えます()

Dim cur As Range

Dim objRng As Range

Set cur = Selection.Range

Set objRng = Selection.Range

'選択範囲がないとき全文を置換範囲にします

If cur.Start = cur.End Then

objRng.Start = 0

objRng.End = ActiveDocument.Bookmarks("\EndOfDoc").End

End If

If 語句あるかB("【", objRng) = True Or 語句あるかB("】", objRng) = True Then

Call 範囲を指定して置き換えるB("【", "[", objRng)

Call 範囲を指定して置き換えるB("】", "]", objRng)

Else

Call 範囲を指定して置き換えるB("[", "【", objRng)

Call 範囲を指定して置き換えるB("]", "】", objRng)

End If

cur.Select

Set objRng = Nothing

Set cur = Nothing

End Sub

Function 語句あるかB(ByRef 検索文字 As String, ByRef rng As Range) As Boolean

If Not rng Is Nothing Then rng.Select

With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = 検索文字

.Format = False

.Forward = True

.Wrap = wdFindStop

.MatchFuzzy = False

.MatchWildcards = False

語句あるかB = .Execute

.Text = ""

End With

End Function

Sub 範囲を指定して置き換えるB(ByRef 置換前 As String, ByRef 置換後 As String, ByRef rng As Range)

With rng.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = 置換前

.Replacement.Text = 置換後

.Format = False

.Forward = True

.Wrap = wdFindStop

.MatchWildcards = False

.MatchFuzzy = True

.Execute Replace:=wdReplaceAll

.Text = ""

.Replacement.Text = ""

.MatchFuzzy = False

End With

End Sub

上記のマクロでは、【】があるとき、【】→[ […]

公開済み: 2019年3月8日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

ショートカットキーでVBSを実行したいときに

VBScriptは、ワードを起動していなくても使えるため、何かと便利です。折角VBScriptを使うのであれば、ショートカットキーに登録すれば、より利便性は高まります。そこで、VBScriptにショートカットキーを割り当てる手順をご紹介します。　まず、VBSファイルを右クリックし、[S]キー […]

公開済み: 2019年3月7日
更新: 2019年3月10日
作成者: アキノハ
カテゴリー: VBS

１つのドキュメントを２つ横に並べたいときに

大事な作業の一つとして、クレームが実施形態にサポートされているかどうかチェックすることがあります。このとき、ワードの「表示」-「新しいウィンドウを開く」を実行し、クレームを表示する画面と実施形態を表示する画面を横に並べるとより簡単にチェックできます。そこで、新しい画面を開いて横に並べて見ることが […]

公開済み: 2019年3月5日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

キーワードをテレコにしたいときに

文を書き進めていくと、２つのキーワードをテレコにしたいときがあります。例えば「第１部材」を書いた後、説明の順番でどうしても「第１部材」の前に「第２部材」を書き入れたくなることがあります。そのまま書き入れると、「第１部材」の前に唐突に「第２部材」が登場してしまいます。この場合、「第１部材」と「 […]

公開済み: 2019年3月4日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

イロイッカイズツ

その昔、「イロイッカイズツ」というメッセージが表示され、カラーコード０〜７が示す色の順番にしたがって移動すると、謎が解けるという、黎明期のRPGがありました。現在のPCは、技術の進歩によって多くの色を再現可能です。ワードマクロでもカラーコードのような色定数が用意されています。色定数のリストは、 […]

公開済み: 2019年3月4日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

マクロを使い始めたいときに

マクロの自動記録機能を使って、「Normal.dotm」ファイルに生成されるマクロを使用する方もいるかと思います。この「Normal.dotm」ファイルは不安定なため、ここでは、マクロが勝手に消えないようにしたいときにの回でも説明した、マクロ格納用ファイルにマクロを記録する方法について、ご説明をしま […]

公開済み: 2019年3月4日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード

変更履歴の承諾とコメントの削除を一度に済ませたいときに

自分が作成したワード原稿を依頼者に提出した後、依頼者が変更履歴で修正をしてくださり、また、コメントを追加してくださることがあります。変更履歴とコメントを入念にチェックした後、すべて問題ないとき、変更履歴すべて反映し、コメントをすべて削除し、次の作業に入ります。そのとき、１回の実行で、変更履歴をす […]

公開済み: 2019年3月3日
更新: 2019年3月10日
作成者: アキノハ
カテゴリー: ワード

商標の指定商品をカンマで分割したいときに

商標公報に記載された指定商品を分析したいとき、カンマ区切りで結合されているため、とっても見づらいです。そこで、カンマ区切りの項目を分割するマクロをご紹介します。商標公報からワードに指定商品をコピペして↓のマクロを実行します。

Sub わかたせ給へ()
Call 置き換えるB(vbCr, "")
Call 置き換えるB("，", vbCr)
End Sub
Sub 置き換えるB(ByRef 置換前 As String, ByRef 置換後 As String)
With ActiveDocument.Range(0, 0).Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = 置換前
    .Replacement.Text = 置換後
    .Format = False
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
    .MatchFuzzy = True
    .Execute Replace:=wdReplaceAll
    
    .MatchFuzzy = False
    .Text = ""
    .Replacement.Text = ""
End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Sub わかたせ給へ()

Call 置き換えるB(vbCr, "")

Call 置き換えるB("，", vbCr)

End Sub

Sub 置き換えるB(ByRef 置換前 As String, ByRef 置換後 As String)

With ActiveDocument.Range(0, 0).Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = 置換前

.Replacement.Text = 置換後

.Format = False

.Forward = True

.Wrap = wdFindContinue

.MatchWildcards = False

.MatchFuzzy = True

.Execute Replace:=wdReplaceAll

.MatchFuzzy = False

.Text = ""

.Replacement.Text = ""

End With

End Sub

例え […]

公開済み: 2019年3月2日
更新: 2019年3月19日
作成者: アキノハ
カテゴリー: ワード, 商標