Microsoft Wordでコメントを脚注または文末脚注に変換するにはどうすればよいですか?
Word文書に複数のコメントがあるとすると、これらすべてのコメントを脚注または文末脚注に同時に変換するにはどうすればよいでしょうか。 この記事では、それを実現するための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の間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...