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

Love The Way You Lie 2022-08-22 00:05 216阅读 0赞

强烈推荐一个大神的人工智能的教程：[http://www.captainbed.net/zhanghan][http_www.captainbed.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。

![Center][]

# 【过程】 #

百度的过程中无意间看到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
            Dim strPattern As String = String.Empty
            se = Me.FolderBrowserDialog1.ShowDialog()
    
            If se = DialogResult.OK Then
                '获取选中的路径
                TargetFileName = FolderBrowserDialog1.SelectedPath & "/信息打印.doc"
                If Microsoft.VisualBasic.Right(Application.StartupPath, 1) <> "/" Then
                    spath = Application.StartupPath & "/"
                    ssource = spath & "信息打印.doc"
    
                    If Dir$(TargetFileName) <> "" Then
                        If MsgBox("文件已存在,确认替换它！", vbYesNo + vbQuestion) = vbNo Then Exit Sub
                        '判断文件是否已经打开
                        If isopen(TargetFileName) = True Then
                            MsgBox("路径为：" + TargetFileName + "的文件已打开，请先将其关闭", vbInformation, "提示")
                            Exit Sub
                        Else
                            Kill(TargetFileName)     '删除文件
                        End If
    
                        FileCopy(ssource, TargetFileName)    '复制文件
                        wordDoc = wordApp.Documents.Open(TargetFileName)
                        ' 横向
                        wordDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape
                        wordApp.Visible = True
                        wordApp.ShowMe()

'其中的company是word中的一个书签，之下的unitID等等类似
                        opara1 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("company").Range)
                        opara1.Range.Text = txtCompanyName.Text.Trim()
                        opara2 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("unitID").Range)
                        opara2.Range.Text = _userId
                        opara3 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("userName").Range)
                        opara3.Range.Text = txtPersonalName.Text.Trim()
                        opara4 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("phone").Range)
                        opara4.Range.Text = txtPhoneNumber.Text.Trim()
    
                        'wordDoc.Close() '关闭文档实例
                        'wordApp.Quit()
                        wordDoc = Nothing
                        wordApp = Nothing
                        'MsgBox("信息表已保存在您选择的路径下！！", vbInformation, "提示")
                        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
                    Else
                        FileCopy(ssource, TargetFileName)    '复制文件
                        wordDoc = wordApp.Documents.Open(TargetFileName)
                        ' 横向
                        wordDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape
                        wordApp.Visible = True
                        wordApp.ShowMe()
                        '信息写入wrod
                        opara1 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("company").Range)
                        opara1.Range.Text = txtCompanyName.Text.Trim()
                        opara2 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("unitID").Range)
                        opara2.Range.Text = _userId
                        opara3 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("userName").Range)
                        opara3.Range.Text = txtPersonalName.Text.Trim()
                        opara4 = wordDoc.Content.Paragraphs.Add(wordDoc.Bookmarks.Item("phone").Range)
                        opara4.Range.Text = txtPhoneNumber.Text.Trim()
                        'wordDoc.SaveAs2(TargetFileName)
                        'wordDoc.Close() '关闭文档实例
                        'wordApp.Quit()
                        wordDoc = Nothing
                        wordApp = Nothing
                        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
                        ' MsgBox("信息表已保存在您选择的路径下！", vbInformation, "提示")
                    End If
                End If
            End If

其中我们要求是默认横向打印，万万没想到一行代码就让word信服了。

' 横向
                        wordDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape

期间做测试，由于好奇心就将拷贝到指定路径下的word打开了，边打开着边用VS执行，这样就出错了，因为word已经打开，就相当于一个程序正在调用该进程，用户也是相当的多，猜想应该不会只有我一个人这样做吧。经过测试，证明是文件被打开的原因，那么如何判断该文件已被打开呢？如果已打开，就给出提示。

Private Function isopen(ByVal path_string As String) As Boolean
            Try
                Dim fs As New IO.FileStream(path_string, IO.FileMode.OpenOrCreate, IO.FileAccess.Read)
                fs.Dispose()
                Return False
            Catch ex As Exception
                Return True
            End Try
        End Function

在需要判断的地方调用即可：

'判断文件是否已经打开
                        If isopen(TargetFileName) = True Then
                            MsgBox("路径为：" + TargetFileName + "的文件已打开，请先将其关闭", vbInformation, "提示")
                            Exit Sub
                        End if

# 【创建书签】 #

## 1.打开word ##

## 2.在相应想要从程序中输出值的地方插入书签。 ##

## 3.第一步 ##

![Center 1][]

## 4.第二步 ##

![Center 2][]

## 5.第三步 ##

![Center 3][]

# 【总结】 #

VBA的思想就是让简单的东西更加简单了，通过代码将桌面应用程序和我们自己做的程序很好的结合起来，通过单击一个按钮就可以完成在桌面应用程序中的一系列操作。借助已有的东西来让自己的程序更加的方便美观——站在巨人的肩膀上，让自己看的更远。

[http_www.captainbed.net_zhanghan]: http://www.captainbed.net/zhanghan
[Center]: /images/20220724/45e10fc0352e478e80888f8a6a0e0e2a.png
[Center 1]: /images/20220724/b5bd4738fc57431d932ea6db40bfd509.png
[Center 2]: /images/20220724/24d8e699248243cfa655969ca2eb54dd.png
[Center 3]: /images/20220724/944b72adbd8d43d9bcb39c85e397dd73.png