質問: not activewindow.view.showfieldcodes activedocument.shapes.range(array( "text box 62"))。select end sub 残念ながら、それは機能しません。フィールドコードは実行後に表示されますが、マクロはその直後に終了し、次のエラーが発生します。 microsoft visual basic 実行時エラー「9」: 指定された名前のアイテムが見つかりませんでした。 私はこれを修正する方法がわからないので、助けていただければ幸いです。
回答: あなたが説明した状況をシミュレートするために、2つのグラフを挿入し、次にキャプションを挿入し、最後に2つの相互参照を挿入しました。その結果、テキスト付きの2つのフィールドが得られました:図1と図2。\# "0"ビットでの調査結果を使用して、テキストを削除する次のマクロをまとめました‘図‘数字のみを残します。現在はrefフィールドでのみ機能しますが、wdfieldtype列挙にリストされている他のフィールドタイプでも使用できると思います。sub updatefieldcodes() for each field in activedocument.fields if field.type = wdfieldref then field.code.text = field.code.text & " \# ""0""" field.update end if next end sub