打包Word Office 2010与宏从桌面运行

时间:2015-11-05 12:30:31

标签: vba ms-word word-vba


我正在使用Office 2010特别是microsoft word。从这个link获取一些宏,并且能够使用word文档模板生成序列号。

我的问题是,如何打包此模板以供第三方使用。

模板将从客户端计算机的桌面运行。

是否有解释如何打包启用宏的模板的链接。

以下是他的代码:



Sub AutoNew()
'
' AutoNew Macro
'
'

Order = System.PrivateProfileString("C:\dtp\Settings.Txt", _
        "MacroSettings", "Order")

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

System.PrivateProfileString("C:\dtp\Settings.txt", "MacroSettings", _
        "Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
ActiveDocument.SaveAs FileName:="DTP" & Format(Order, "00#")

End Sub




2 个答案:

答案 0 :(得分:0)

如果您想要在用户打开模板时自动激活特定Macro(说出Userform),那么在项目中,导航到

Microsoft Word Objects \ ThisDocument 添加以下Sub

Private Sub Document_New()

Call SomeSub

End

答案 1 :(得分:0)

您需要做的是将所有宏和用户表单复制到" Document1"项目。要复制,只需单击并将模块或UserForm从正常项目拖动到Document1项目。您还需要复制您在Normal模板中保存的任何其他项目,例如标题或快速文本或字体样式。

一旦全部保存在Document1模板中,您就可以将其保存为可以备份或与其他方共享的宏启用模板