我正在尝试编写一个 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
谁能帮助解释为什么这不起作用?我收到运行时错误。亲切的问候。