将新文档保存为单词VBA中的标签名称

Question

对于一个项目，我必须生成许多带有单独性能报告的word文档。我已经有了创建这些单独报告的宏。我现在想要的是一个宏，它使用创建标签的值（例如，我希望文档具有标签“username”的名称），该文件位于文档中。我担心我无法提供代码，因为我没有比“另存为”命令更进一步（这很容易）。提前谢谢。

Answer 1

如果我理解正确，您希望使用Userform中的标签标题生成文件名，然后将文档另存为文件名吗？

我认为，然后您将标签标题从模块传递给Userform。如果是这种情况，那么您只需将Label Caption字符串添加到一起，然后使用ActiveDocument.SaveAs。见下文：

Sub SomeSub()


Dim NewFileName As String


'Do something

'Do something else

'Create and send labels

'Now you would have created the captions for your labels
'and then sent them to the labels

'Just add the various captions

EmailKontact = "someemail@email.com"

Code = "2323"

CaptureDate = "2015.09.21"

NewFileName = EmailKontact & Code & CaptureDate

'For this example
'NewFileName is then = someemail@email.com23232105.09.21

'if you want to save it somewhere specific then you can add
'the folder paths to the NewFileName otherwise is will save it to My Documents

ActiveDocument.SaveAs (NewFileName)


End Sub

您也可以将此代码插入CommandButton标签＆＃34;另存为＆＃34;在您的Userform中，它将作为ActiveDocument。