VBScript：在 MS "Word" 2003 文档中附加一个单词答案

【问题标题】：VBScript: Appending a word to the MS "Word" 2003 documentVBScript：在 MS "Word" 2003 文档中附加一个单词
【发布时间】：2011-02-22 12:52:07
【问题描述】：

这是一个打开我的“fox.doc”的简短代码：

Set wd = CreateObject("Word.Application")
wd.Visible = True
Set doc = wd.Documents.Open("c:\fox.doc")

我只需要在本文档的末尾添加一个单词“瓶子”（打开后）。为此，我应该在我的小型 vbs 脚本中添加哪些行？

【问题讨论】：

【解决方案1】：

您可以通过在 Word 中录制宏然后进行通常很小的更改来使代码在 VBScript 中工作，从而学到很多东西。

Set r = doc.Words.Last
r.InsertAfter (" bottle")

【讨论】：

谢谢Remou。我已将这两行添加到脚本中，现在它可以工作了！你是怎么想出这两条线的？ “您可以通过在 Word 中录制宏，然后进行一些小的更改来使代码在 VBScript 中工作” - 但这正是我在发布此问题之前所做的。我确实录制了一个小宏，然后我只得到了一行：Selection.TypeText Text:="bottle" 但是，当我将这一行添加到代码中时，它不起作用。那我做错了什么？
您需要从打开文档时开始录制，因此您可能输入了 ctlr+End，这将给您Selection.EndKey Unit:=wdStory，但是，我承认录制宏并不是全部，您还可以使用智能感知来探索可用的内容。当您声明对象 As 时，Intellisense 真正发挥作用，例如，Dim doc As Document，现在当您键入 doc. 时，您将获得一个可供探索的选项列表。（续）
(cont) 您不能在 VBScript 中执行此操作，因此首先在 VBA 中工作很有用。其他非常有用的工具包括对象浏览器、Watch 和 (tada) F1。
我明白了，谢谢。 “您不能在 VBScript 中执行此操作，因此首先在 VBA 中工作很有用” - 是的，但据我所知，VBA 非常适合在您使用时编写和使用宏“Word”，而我目前的需要是在不打开“Word”文档的情况下自动修改（或添加内容）的过程 - 这就是为什么我需要学习如何在文字外工作 VBS 中编程.