VBSで商標検索

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

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

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

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

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

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日
作成者: アキノハ
カテゴリー: ワード, 商標