通过 VBA 删除 Word 模板的内部链接

Question

我正在尝试创建一个小型 VB 应用程序，删除 Word 文档中与其模板的内部链接。

我找到了这个指南 http://word.tips.net/Pages/T001437_Batch_Template_Changes.html 我正在尝试修改它，以使用 VBA 而不是 Office 内部的宏编程。

但是，我陷入了如何让 Document.Open 工作的困境。任何帮助表示赞赏。

它应该作为独立的应用程序运行，而不是在 Word 中运行。 我正在寻找一种方法来执行宏的功能，但不是从 Word 内部执行。

Answer 1

这里有两个坏消息要告诉大家。

1）文档必须有模板。您无法删除它，只能将其更改为其他内容。

2）无论如何，更改模板没有任何作用。请参阅此页面。

我想知道 Open 方法的问题是否是您正在尝试打开“.doc”扩展文件，而不是现代的“.docx”扩展文件。您链接到的 VBA 子例程仅处理“.doc”文件。此 VBA 代码执行以下两项操作：

Function StringEndsWith( _
    ByVal strValue As String, _
    CheckFor As String) As Boolean

  Dim sCompare As String
  Dim lLen As Long

  lLen = Len(CheckFor)
  If lLen > Len(strValue) Then Exit Function
  sCompare = Right(strValue, lLen)
  StringEndsWith = StrComp(sCompare, CheckFor, vbTextCompare) = 0
End Function


Sub ChangeTemplates()
    Dim strDocPath As String
    Dim strTemplateB As String
    Dim strCurDoc As String
    Dim docCurDoc As Document

    ' set document folder path and template strings
    strDocPath = "C:\tmp\"

    ' get first doc - only time need to provide file spec
    strCurDoc = Dir(strDocPath & "*.doc*")

    ' ready to loop (for as long as file found)
    Do While strCurDoc <> ""
        If (StringEndsWith(strCurDoc, ".doc") Or StringEndsWith(strCurDoc, ".docx")) Then
            ' open file
            Set docCurDoc = Documents.Open(FileName:=strDocPath & strCurDoc)
            ' change the template back to Normal
            docCurDoc.AttachedTemplate = ""
            ' save and close
            docCurDoc.Close wdSaveChanges
        End If
        ' get next file name
        strCurDoc = Dir
    Loop
    MsgBox "Finished"
End Sub

Answer 2

答案之间的时间很长，但可能对其他人有用。如果您有权访问 Word 文档的 VBE [Alt F11]，并且想要删除引用，请转到“工具/引用”[顶部菜单]，然后从引用文件列表中取消选择它。我遇到了类似的问题，模板不再存在，但它仍然在项目窗口中被“引用”，所以我执行了上述操作。