vba xmlhttp 抓取网页(【分享成果，随喜正能量】《VBA之Word应用》)

　　vba xmlhttp 抓取网页(【分享成果，随喜正能量】《VBA之Word应用》)

　　【分享成果，正能量庆生】生活不能靠心情，而是靠心态。感觉像六月的天气，多云变幻莫测。如果一个人的生活取决于他的心情，他一定是善变的。他的人生将像断了线的风筝，随风摇曳，无法自拔。生活中的强者会及时调整心态，让心情始终保持积极向上，充满阳光。受情绪影响的人常迷茫，控制心态的人常快乐。

　　“VBA Word 应用程序”是我的第八套教程。本教程专门讲解VBA在Word中的应用。它侧重于“面向对象编程”。首先让大家了解VBA在Word中的对象，以及该对象的Properties、方法，然后通过实例让大家感受一下Word VBA的美。本套教程共三卷十六章。今天的内容是第三章“文档集合的文档对象和文档对象”，第三节：打开文档，将文档赋值给变量。

　　

　　第 3 节 打开文档并将文档赋值给变量

　　在上一节中，我们解释了使用 Documents 的 Open 方法打开指定文档的方法。在这个方法中，我们使用的语句是 Documents.Open myFile。这种方法是直接打开一个文档，但是，打开文档进行操作，在后续的文档操作中，我们需要捕获打开文档的对象，然后完成后续的操作。

　　VBA是面向对象的编程，所有的操作也是面向对象的操作，所以我们可以在打开文档后直接将文档赋值给一个变量，以利用后续的操作。

　　1 打开文档并将文档赋值给变量的思路解析

　　在《VBA Excel 应用程序》中，我们谈到了变量的赋值。一般情况下，赋值直接使用“a variable=value”，但是给对象变量赋值时，需要使用Set语句。这里我们可以使用 Set 语句给文档对象变量赋值。在赋值的同时，我们可以用Documents.Open myFile同时打开指定的文件。

　　赋值后，我们可以通过变量与文档进行交互。这个操作的代码很简单，给后面的操作留了足够的接口来使用我们后续的文档操作。让我们可以随时轻松参考文档。

　　2 打开文档，给变量赋值

　　我们来看下面的代码。此代码将打开指定的文件并在打开的文档中写入一些文本。我们先看代码：

　　子 mynzB()

　　将 myFile 淡化为字符串

　　将 myDoc 淡化为文档

　　myFile = ThisDocument.Path & "\" & "Example 03.docx"

　　If Dir(myFile) "" Then

　　设置 myDoc = Documents.Open(myFile)

　　其他

　　MsgBox myFile & "不存在！":END

　　如果结束

　　myDoc.Range(0, 0).Text = ""VBA Word 应用程序""

　　ActiveDocument.Save

　　'文档(myDoc).保存

　　'ActiveDocument.Close wdSaveChanges

　　'Documents(myDoc).Close wdSaveChanges

　　ActiveDocument.Close wdDoNotSaveChanges

　　'Documents(myDoc).Close wdDoNotSaveChanges

　　结束子

　　代码截图：

　　

　　3 代码的解释和操作

　　我们来看看代码的解释：

　　1）Dim myFile As String 这行代码将定义一个变量作为文件名

　　2）Dim myDoc As Document 这行代码将定义一个文档对象变量

　　3）myFile = ThisDocument.Path & "\" & "Example 03.docx" 这行代码给文件名变量赋值

　　4）If Dir(myFile) "" 那么这行代码判断文件是否存在

　　5) Set myDoc = Documents.Open(myFile) 打开一个文件并将这个文件赋值给对象变量。大家应该注意，这行代码有两个意思，一是打开变量myFile代表的文件，二是把这个文件赋值给变量myDoc。写的简单明了，同时在后面的代码中，我们可以使用这个变量，可以直接使用myDoc变量进行相关操作。如果不使用这个变量处理，那么我们需要进行ActiveDocument等代码处理。

　　6) MsgBox myFile & "does not exist!": 这行代码的意思是如果文件不存在，会提示用户并终止代码运行

　　7) myDoc.Range(0, 0).Text = ""VBA Word Application"" 这行代码的意思是在开头写""VBA Word Application"文档“

　　8） ActiveDocument.Save 这行代码的意思就是保存活动文档

　　9）'Documents(myDoc).Save这行代码的意思是关闭名为myDoc的变量所代表的文件

　　10）'ActiveDocument.Close wdSaveChanges 这行代码的意思就是关闭当前活动的文档并保存。

　　11）'Documents(myDoc).Close wdSaveChanges 这行代码的意思就是关闭myDoc变量所代表的文档并保存。

　　12) ActiveDocument.Close wdDoNotSaveChanges 这行代码的意思就是关闭当前活动的文档，不保存。

　　13)'Documents(myDoc).Close wdDoNotSaveChanges 这行代码的意思就是关闭myDoc变量所代表的文档，不保存。

　　最后看一下代码的运行状态：文档开头已经添加了“VBA Word Application”的字符串：

　　

　　今日内容转帖：

　　1 如何使用文档变量来存储打开的文档？

　　2 本讲讲解的方案和上一节的方案有什么区别？

　　3 你理解本课最后一部分给出的句子吗？

　　

　　本讲内容参考程序文件：Doc 003 document.docm

　　① 7→1→3→2→6→5 或 7→4→3→2→6→5 ② 7→8