0

我正在尝试为发布者文档开发宏。此宏在运行时将显示一个弹出窗口，允许用户选择三种类型的客户端之一，并根据选择的选项向文本框添加不同的项目符号点。我有两个不同的问题，我怀疑它们来自同一来源。第一个问题是，当单击按钮时，我无法让用户表单上的按钮运行不同的宏。问题二是我已将宏添加到其中一个工具栏，当我单击它们时没有任何反应。在这两种情况下，它根本就没有运行宏。我究竟做错了什么？

用户窗体1

Private Sub CommandButton1_Click()
Application.Run ("ShapeTest")
End Sub

Private Sub UserForm_Initialize()
With ListBox1
.AddItem ("Federal")
.AddItem ("State")
.AddItem ("Local")
End With
End Sub

这个文件

Private Sub GenerateStatement()
UserForm1.Show
End Sub

Private Sub ShapeTest()
MsgBox ("Hello!")
Application.ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange.InsertAfter`enter code here`(Chr(13) & "My Text")
End Sub
4

1 回答 1

1

你为什么使用Application.Run("ShapeTest")而不是简单地使用ShapeTest？

我没有足够的信息来 100% 确定，但以下应该有效：要从ShapeTest用户窗体调用，您需要做两件事：

1）将其从ThisDocument通用代码模块（首先Insert/Module在编辑器中）。

2）消除Private前面的词Sub ShapeTest()——你不希望这是一个私有子，因为你希望模块之外的代码能够使用它。

编辑时：或者-您可以保留ShapeTest()它所在的位置ThisDocument，去掉Private限定符，并在用户表单代码中引用ShapeTestas ThisDocument.ShapeTest。我更喜欢使用第一种方法，因为我倾向于在通用代码模块中保留尽可能多的代码（保留ThisDocument事件处理程序之类的东西），但是我的 VBA 经验主要是 Excel 和少量 Word，可能有理由保留ThisDocumentPublisher 中的代码。我不知道 Publisher，但我有时在 Word 中遇到的一个问题是我有时不小心将代码放入了Normal我想放入文档项目的模板中。如果在 Publisher 中可能出现类似的情况，您应该仔细检查您的代码所在的位置。

于 2015-07-30T12:40:13.240 回答