將郵件合併域轉換爲Word中可填寫的表單域

Question

我有一個帶有郵件合併域的單詞模板。

有沒有簡單的方法將它們轉換成可填寫的表單域？

最後我想創建一個可填寫的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