如何使用 VB 将 word 文档链接到自定义模板？答案

【问题标题】：How to link a word document to a custom template using VB?如何使用 VB 将 word 文档链接到自定义模板？
【发布时间】：2013-11-11 16:34:50
【问题描述】：

我正在尝试编写一个 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

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

【问题讨论】：

标签： vb.net templates macros document

【解决方案1】：

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

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

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

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

【讨论】：