フィールドコードは、ドキュメントで非常に役立ちます。ある時点で、フィールドコードを誰かと共有したい場合があります。コードをテキストとして表示する必要のあるトレーニングドキュメントを準備している場合や、フィールドコードを他の人に電子メールで送信したい場合があります。

問題は、フィールドコードをコピーして貼り付けるだけでは、実際に貼り付けられるコードではないということです。それはそのフィールドコードの結果です。もちろん、フィールドコード(Shift + F9)を表示し、中括弧内に挿入ポイントを配置し、中括弧を除くすべての文字を慎重に選択してから、クリップボードにコピーすることができます。

ただし、このアプローチは急いで面倒になる可能性があります。より良いアプローチは、マクロを使用してフィールドコードを表示し、必要な情報をクリップボードに詰め込むことです。次のマクロはまさにそれを行います:

Sub StuffFieldCode()

Dim sField As String     Dim sTextCode As String     Dim bSFC As Boolean     Dim MyData As DataObject     Dim sTemp As String     Dim J As Integer

Application.ScreenUpdating = False

If Selection.Fields.Count = 1 Then         bSFC = Selection.Fields.Item(1).ShowCodes         Selection.Fields.Item(1).ShowCodes = True         sField = Selection.Text         sTextCode = ""

For J = 1 To Len(sField)

sTemp = Mid(sField, J, 1)

Select Case sTemp                 Case Chr(19)

sTemp = "{"

Case Chr(21)

sTemp = "}"

Case vbCr                     sTemp = ""

End Select             sTextCode = sTextCode & sTemp         Next J

Set MyData = New DataObject         MyData.SetText sTextCode         MyData.PutInClipboard                  Selection.Fields.Item(1).ShowCodes = bSFC     End If

Application.ScreenUpdating = True End Sub

マクロは、画面の更新をオフにすることから始まり、次に、選択に1つのフィールドのみが含まれていることを確認します。 (マクロを実行する前に、必要なフィールドを選択する必要があります。)フィールドが1つ含まれている場合は、そのフィールドのフィールドコードが表示され、変数(sField)に割り当てられ、文字ごとに選択されます。調べている文字がオープニングフィールドブレース(Chr(19))の場合、通常のオープニングブレースに置き換えられます。クロージングフィールドブレース(Chr(21))の場合は、通常のクロージングブレースに置き換えられます。最後に、文字が段落の終わりマーカー(vbCr)である場合、その文字は無視されます。

最後に、PutInClipboardメソッドを使用して、フィールドコードのテキストバージョンをクリップボードに詰め込みます。次に、通常の貼り付けコマンド(Ctrl + V)を使用して、フィールドコードをドキュメント、電子メール、または別のプログラムに貼り付けることができます。

注:

このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(13300)は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス: