フィールドコードのコピーと貼り付け(Microsoft Word)
フィールドコードは、ドキュメントで非常に役立ちます。ある時点で、フィールドコードを誰かと共有したい場合があります。コードをテキストとして表示する必要のあるトレーニングドキュメントを準備している場合や、フィールドコードを他の人に電子メールで送信したい場合があります。
問題は、フィールドコードをコピーして貼り付けるだけでは、実際に貼り付けられるコードではないということです。それはそのフィールドコードの結果です。もちろん、フィールドコード(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の古いメニューインターフェイス:
linkフィールドコードのコピーと貼り付け。