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 回答