1

我正在尝试编写一个 VB 脚本，它在指定路径中一个一个地打开 word 文档，将这些文档链接到我创建的 .dot 模板，然后执行位于其中的两个宏（“ViewPrintLayout”和“ProcedureFormatBulletPoints”）模板。

我设法让脚本打开文档并尝试执行宏。但是它失败了，因为我无法成功地将它链接到模板。我的代码副本如下；

Dim objWord, objFSO, objFile, objFolder
Dim strList

strPath = InputBox("Enter Path Name") 

If strPath = "" Then WScript.Quit

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(strPath)

Set objWord = WScript.CreateObject("Word.Application")
objWord.Visible = True




For Each objFile In ObjFolder.Files

    If LCase(Right(objFile.Path, 4))  = ".doc" Then
        objWord.Documents.Open objFile.Path
        objWord.AddIns.Add FileName:="\My Documents\MEGA\PDF Templates\MyTemplate.dot"
        objWord.Run "ViewPrintLayout"
        objWord.Run "ProcedureFormatBullets2"
        ObjWord.Documents.Close
    End If
Next

objWord.Quit

谁能帮助解释为什么这不起作用？我收到运行时错误。亲切的问候。

4

1 回答 1

0

也许你可以在这里找到一些有用的代码：

http://support.microsoft.com/default.aspx?scid=kb;EN-US;830561#3

此 MS 页面中的代码主要是将 doc 文件的 .dot 模板分离/重置为标准/默认 .dot/template，但也许您可以使用类似的代码将新的 .dot 模板附加/链接到现有文档文件。

截至今天，我正在尝试重用这个旧代码来重置数百个旧 .doc 文件中的 .dot 文件......（.doc 文件中引用的 .dot 文件不再存在，这是每次打开这些 .doc 文件时都会造成很多延迟）

于 2014-02-21T14:06:03.913 回答