Office関連

英語のスペルミスを列挙して修正候補をコメントとして追加するWordマクロ

DocumentオブジェクトのSpellingErrorsプロパティからスペルミスとして識別される単語を取得でき、RangeオブジェクトのGetSpellingSuggestionsメソッドを使えば修正候補を取得できるので、英語のスペルミスを列挙して修正候補をコメントとして追加するマクロを考えてみました。

Option Explicit

Public Sub ChkSpellingErrors()
'英語のスペルミスを列挙して修正候補をコメントとして追加するWordマクロ
  Dim rngSpellingError As Word.Range
  Dim ssgn As Word.SpellingSuggestion
  Dim s As String
  Dim cnt As Long
  
  'スペルミスを列挙
  For Each rngSpellingError In ActiveDocument.SpellingErrors
    cnt = 0 '初期化
    Select Case rngSpellingError.LanguageID
      '英語のみ処理
      Case wdEnglishUS
        '修正候補取得
        For Each ssgn In rngSpellingError.GetSpellingSuggestions
          If cnt < 1 Then
            s = ssgn.Name
          Else
            s = s & "," & ssgn.Name
          End If
          cnt = cnt + 1
        Next
        'エラー箇所に修正候補をコメントとして追加
        ActiveDocument.Range.Comments.Add rngSpellingError, "修正候補:" & s
    End Select
  Next
End Sub

■ 関連Webページ

・日本語の文法上の誤りを列挙して修正候補をコメントとして追加するWordマクロ
//www.ka-net.org/blog/?p=4510
・GetSpellingSuggestionsメソッドで文法上の誤りの修正候補は取得できない?
//www.ka-net.org/blog/?p=4517
・Wikipedia:Lists of common misspellings – Wikipedia, the free encyclopedia
http://en.wikipedia.org/wiki/Wikipedia:Lists_of_common_misspellings

[Office用アプリ]OneNote Clipperをアプリから使う。前のページ

日本語の文法上の誤りを列挙して修正候補をコメントとして追加するWordマクロ次のページ

関連記事

  1. アイコン一覧

    Office 365アイコン(imageMso)一覧(G)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  2. Office関連

    Trello APIを使ってカードを投稿するVBAマクロ

    以前Fiddlerを使ってTrello APIを実行する記事を書きまし…

  3. Office関連

    指定したフォルダ内にあるExcelファイルを一つにまとめるVBAマクロ

    複数あるファイルを一つにまとめるにはどうすれば良いか?という質問をいた…

  4. Office関連

    「Excel VBAでIEを思いのままに操作できるプログラミング術」の見本誌をいただきました。

    「VBAアクションゲーム?Excel(エクセル)で動かそう!」で有名な…

  5. Office関連

    外部からOutlookのマクロを実行するマクロ

    外部からOutlookのマクロを実行するマクロ今回は外部からO…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP