强烈推荐一个大神的人工智能的教程：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。

【过程】

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

【代码】

  Dim wordApp As New Word.Application   '定义一个wordDim wordDoc As New Word.DocumentDim opara1 As Word.Paragraph       '写入word变量Dim opara2 As Word.ParagraphDim opara3 As Word.ParagraphDim opara4 As Word.ParagraphDim TargetFileName As String     '目标文件名Dim spath As StringDim ssource As String         '获取debug的路径，从而可以将该路径下的模板拷贝到桌面Dim se As DialogResultDim strPattern As String = String.Emptyse = Me.FolderBrowserDialog1.ShowDialog()If se = DialogResult.OK Then'获取选中的路径TargetFileName = FolderBrowserDialog1.SelectedPath & "/信息打印.doc"If Microsoft.VisualBasic.Right(Application.StartupPath, 1) <> "/" Thenspath = Application.StartupPath & "/"ssource = spath & "信息打印.doc"If Dir$(TargetFileName) <> "" ThenIf MsgBox("文件已存在,确认替换它！", vbYesNo + vbQuestion) = vbNo Then Exit Sub'判断文件是否已经打开If isopen(TargetFileName) = True ThenMsgBox("路径为：" + TargetFileName + "的文件已打开，请先将其关闭", vbInformation, "提示")Exit SubElseKill(TargetFileName)     '删除文件End IfFileCopy(ssource, TargetFileName)    '复制文件wordDoc = wordApp.Documents.Open(TargetFileName)' 横向wordDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscapewordApp.Visible = TruewordApp.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 = _userIdopara3 = 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 = NothingwordApp = Nothing'MsgBox("信息表已保存在您选择的路径下！！", vbInformation, "提示")Me.WindowState = System.Windows.Forms.FormWindowState.MinimizedElseFileCopy(ssource, TargetFileName)    '复制文件wordDoc = wordApp.Documents.Open(TargetFileName)' 横向wordDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscapewordApp.Visible = TruewordApp.ShowMe()'信息写入wrodopara1 = 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 = _userIdopara3 = 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 = NothingwordApp = NothingMe.WindowState = System.Windows.Forms.FormWindowState.Minimized' MsgBox("信息表已保存在您选择的路径下！", vbInformation, "提示")End IfEnd IfEnd If

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

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

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

 Private Function isopen(ByVal path_string As String) As BooleanTryDim fs As New IO.FileStream(path_string, IO.FileMode.OpenOrCreate, IO.FileAccess.Read)fs.Dispose()Return FalseCatch ex As ExceptionReturn TrueEnd TryEnd Function

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

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

【创建书签】

1.打开word

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

3.第一步

4.第二步

5.第三步

【总结】

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