VBA——word中书签与VS的完美搭配

环游记

已于 2023-06-10 23:02:56 修改

阅读量2.5w

点赞数 6

文章标签： word

于 2016-05-18 08:47:58 首次发布

本文链接：https://blog.csdn.net/zh15732621679/article/details/51339269

版权

本文介绍了如何使用VBA（Visual Basic for Applications）和Visual Studio（VS）结合，通过Word书签实现程序自动化操作。教程展示了从创建书签、在VS中写入数据到Word模板，再到处理文件已打开的错误情况，最后总结VBA带来的便利性和效率提升。

摘要由CSDN通过智能技术生成

强烈推荐一个大神的人工智能的教程：http://www.captainai.net/zhanghan

【VBA简介】

VBA（Visual Basic for Applications)是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)(Object Linking and Embedding)任务的编程语言。他是一种自动化语言可以使常用的程序自动化。在敲机房收费系统的时候我们就接触过了导出到Excel，在VS引用的时候还看到了PPT，想想微软真是厉害，这次的实战主要是word中的书签和VS的结合，使界面更美了。

【需求】

下图是最终需要做出来的效果。在验收完之后回来的路上，我们猜测既然VS可以和Excel结合，那么应该也可以和Word结合，经过百度证实确实是可以。而且这种技术叫做VBA，自己也借助这次机会初步了解了一下什么是VBA。

【过程】

百度的过程中无意间看到VB应用word的书签。正所谓知识都是相通的嘛，既然VB可以，那么VS有什么理由不可以呢？经过一番尝试，在一个Word中通过VS写入想要的数据成功了。考虑到实际情况就在debug目录下放了一个模板，在打印的时候程序先将模板拷贝到用户选择的地方，然后我们在该路径下的word中写入想要的数据。

【代码】

  Dim wordApp As New Word.Application   '定义一个word
        Dim wordDoc As New Word.Document
        Dim opara1 As Word.Paragraph       '写入word变量
        Dim opara2 As Word.Paragraph
        Dim opara3 As Word.Paragraph
        Dim opara4 As Word.Paragraph
        Dim TargetFileName As String     '目标文件名
        Dim spath As String
        Dim ssource As String         '获取debug的路径，从而可以将该路径下的模板拷贝到桌面
        Dim se As DialogResult