【Wordマクロ】ユーザー辞書への用語の一括登録

翻訳をしているときに専門用語に赤い波線が引かれることがあります。

ユーザー辞書 に登録していない言葉には、スペルミスの表示である「赤線」が自動で引かれるのです。


かといって数百もあるような専門用語を１つ１つ登録して赤線がなくなるようにするのは非常に手間がかかります。

そこで、用語を一括で登録する方法を紹介します。

（１０月１１日のSFAのセミナー の受講予定の方からのリクエストがあり作成しました）



▼このマクロでできること

現在開かれているファイルに記載されている用語を、ユーザー辞書にすべて登録します。

専門用語を登録すれば、今後、赤い波線が引かれることはありません。



▼マクロ１の解説

ファイルシステムオブジェクトを用いてファイルを開き、書き込みます。


▼マクロ１

Sub ユーザー辞書への一括追加()

　Dim myCustmDic As Object
　Dim myDicPath As String
　Dim fs As Object
　Dim myDicFile　As Object
　Dim myPara As Paragraph
　
　'文書が開かれていない場合には終了
　If Documents.Count = 0 Then Exit Sub
　
　If MsgBox("ユーザー辞書登録を実行しますか？", vbYesNo) = vbNo Then Exit Sub
　
　Set myCustmDic = Application.CustomDictionaries.ActiveCustomDictionary
　
　'ユーザー辞書のファイルパスの取得
　myDicPath = myCustmDic.Path & Application.PathSeparator & myCustmDic.Name
　　
　'辞書を書き込める形式(ForAppending(8))で開く　FormatはUnicode（-1）に設定
　Set fs = CreateObject("Scripting.FileSystemObject")
　Set myDicFile = fs.OpenTextFile(FileName:=myDicPath, iomode:=8, Format:=-1)

　'現在開かれている文書の段落ごとに登録
　For Each myPara In ActiveDocument.Paragraphs
　　If Trim(myPara.Range.Text) <> vbCr Then
　　　myDicFile.WriteLine Trim(myPara.Range.Text)
　　End If
　Next
　
　'ユーザー辞書を閉じる
　myDicFile.Close

　'オブジェクト変数の解放
　Set myCustmDic = Nothing
　Set myDicFile = Nothing
　Set fs = Nothing
　
End Sub


▼マクロ２の解説

上記マクロ１と同じような仕組みで、ユーザー辞書のファイルパスを取得します。

そのファイルをWordでそのまま開いてしまうというのが、このマクロ２の趣旨です。

ここに追記していけばいいのですから、簡単です。

なお、書式がついた用語であっても書式は保存されません。



▼マクロ２

Sub ユーザー辞書を開く()

　Dim myCustmDic As Object
　Dim myDicPath As String
　
　If MsgBox("ユーザー辞書登録を開きますか？", vbYesNo) = vbNo Then Exit Sub
　
　Set myCustmDic = Application.CustomDictionaries.ActiveCustomDictionary

　'ユーザー辞書のファイルパスの取得
　myDicPath = myCustmDic.Path & Application.PathSeparator & myCustmDic.Name

　'ユーザー辞書を開く
　Documents.Open myDicPath
　
　'オブジェクト変数の解放
　Set myCustmDic = Nothing
　
End Sub




▼関連記事

ユーザー辞書を作成および使用する