目录

Word-文字型窗体域-VBA-编程

目录

Word 文字型窗体域 VBA 编程

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

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

https://i-blog.csdnimg.cn/blog_migrate/2f2dcd40da34783451a4457de8af5355.png https://i-blog.csdnimg.cn/blog_migrate/f70bdaf9971386e9ad924b0126744358.png

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

https://i-blog.csdnimg.cn/blog_migrate/a0d3a478b543fe5ab275b5c05c1e555f.png https://i-blog.csdnimg.cn/blog_migrate/d5549c0cbb26248e9141745ddff56f85.png

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

https://i-blog.csdnimg.cn/blog_migrate/1e4f803ffc87c99b164c07dcd42573ee.png

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

https://i-blog.csdnimg.cn/blog_migrate/8eeb28ce3840cef797c07adfc46b0ca7.png

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

https://i-blog.csdnimg.cn/blog_migrate/090829069c4333a992d5c394e500a564.png