从 PowerPoint 操作按钮打开时，Word 宏无法正确运行

Question

我有一个Word模板（来自建议），其中包括一个自动新建宏，用于在书签处插入参考编号，以及一个操作按钮（提交），该按钮将参考编号作为文件名的一部分保存结果文档并关闭Word。通过 Windows 资源管理器打开模板时，此功能非常有效。

我们还有一个 PowerPoint 演示，其中包含指向各种文档的超链接的操作设置。该链接将打开上述模板，但不会插入参考号。此外，当点击“提交”按钮时，文件将另存为另一个包含参考号的模板。

我不确定问题是与 Word 还是 PowerPoint 相关。 Word 模板的代码是

Sub AutoNew()

REF = System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", _
        "MacroSettings", "REF")

If REF = "" Then
    REF = 1
Else
    REF = REF + 1
End If

System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", "MacroSettings", _
        "REF") = REF

ActiveDocument.Bookmarks("REF").Range.InsertBefore Format(REF, "000#")


End Sub


Private Sub CommandButton1_Click()

REF = System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", _
        "MacroSettings", "REF")

ActiveDocument.SaveAs FileName:="L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Suggestion " & Format(REF, "000#.doc")
Application.Quit

End Sub

任何帮助或指针将不胜感激，就好像它有效一样我想将其用于各种其他模板。

Answer 1

从描述中，很难准确地了解正在发生的情况，但听起来 AUTONEW 可能无法在该特定组合中运行。

您可以通过使用一些日志记录或 MSGBOX 调用来验证这一点，以准确查看正在运行的宏以及何时运行。

在此处查看有关 Autonew 的文档

http://support.microsoft.com/kb/211659

听起来像如果宏以“正常”保存，它将不会运行，这听起来不像这里的情况，但值得注意。

您还可以考虑使用 AutoOpen 宏并检查其他元素，以确保这是一个全新的文档，而不是已保存的文档（例如检查 Document.Fullname 属性的内容）。