フィールドで挿入された段落番号のText化マクロ

概要	フィールドで挿入された段落番号（編集不可）を、テキストの段落番号に変更する。
使用方法等	実行すれば文書内のフィールド全てがテキスト化されるので要注意。
作成日	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