Word 文字型窗体域 VBA 编程

Step1:添加开发工具，为了实现VBA编程

选项——>自定义功能去——>勾选开发工具

Step2：开发工具——>插入文字型窗体域

 

Step3：为所有窗体域添加唯一的书签

 

Step3：VBA编程实现对应书签的文本设置

 

Sub Main()
    Dim doc As Document
    Set doc = ThisDocument
    doc.FormFields("文字1").Result = "姓名"
    doc.FormFields("文字2").Result = "张某"
    doc.FormFields("文字3").Result = "性别"
    doc.FormFields("文字4").Result = "男"
    doc.FormFields("文字5").Result = "联系方式"
    doc.FormFields("文字6").Result = "133********"
End Sub