VBScript：在MS“Word”2003文档中附加一个单词

Question

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

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

我需要在本文档的最后添加一个单词“bottle”（打开后）。我应该将哪些行添加到我的小vbs脚本中？

Answer 1

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

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