ms-word - Word で差し込み印刷フィールドを入力可能なフォーム フィールドに変換する

Question

差し込み印刷フィールドを備えた Word テンプレートを用意しています。

それらを入力可能なフォームフィールドに変換する簡単な方法はありますか?

最後に、入力可能なPDFフォームを作成したいと思います。

Answer 1

単純なレガシー フィールドの場合:

Public Sub ReplaceMergeFields()
    On Error GoTo MyErrorHandler

    Dim sourceDocument As Document
    Set sourceDocument = ActiveDocument

    Dim myMergeField As Field
    Dim i As Long
    For i = sourceDocument.Fields.Count To 1 Step -1
        Set myMergeField = sourceDocument.Fields(i)

        myMergeField.Select
        If myMergeField.Type = wdFieldMergeField Then
            Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput
        End If

        DoEvents
    Next

    Exit Sub

MyErrorHandler:
    MsgBox "ReplaceMergeFields" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
End Sub