편지 병합 필드를 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