概要 | フィールドで挿入された段落番号(編集不可)を、テキストの段落番号に変更する。 |
使用方法等 | 実行すれば文書内のフィールド全てがテキスト化されるので要注意。 |
作成日 | 2017年のどこか |
更新日 | 2017年のどこか |
作成者 | 糸目 |
[Source Code]
Sub ConvFieldsToText() Dim Fld As Field For Each Fld In ActiveDocument.Fields 'For Each Fld In ActiveDocument.Range.Fields Fld.Copy Fld.Select Fld.Delete Selection.PasteAndFormat (wdFormatPlainText) Next MsgBox "Completed" End Sub