Note: The other languages of the website are Google-translated. Back to English

Microsoft Wordでコメントを脚注または文末脚注に変換するにはどうすればよいですか?

Word文書に複数のコメントがあるとすると、これらすべてのコメントを脚注または文末脚注に同時に変換するにはどうすればよいでしょうか。 この記事では、それを実現するためのVBAメソッドを提供します。

コメントをVBAコードで脚注または文末脚注に変換する


コメントをVBAコードで脚注または文末脚注に変換する

以下のVBAコードは、現在のドキュメントのすべてのコメントを脚注または文末脚注にすばやく変換するのに役立ちます。 次のようにしてください。

1.脚注または文末脚注に変換するコメントが含まれているドキュメントを開き、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード:コメントを脚注に変換します:

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

VBAコード:コメントを文末脚注に変換します:

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3。 プレス F5 コードを実行するためのキー。

次に、現在のドキュメントのすべてのコメントは、適用したVBAコードに基づいて、脚注または文末脚注にすぐに変換されます。


関連記事:


推奨される単語生産性ツール

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...