不使用VBA代码将文档另存为.docx

Question

我用VBA代码和用户窗体创建了一个模板。我将其另存为.dotm（启用宏的模板）。

我想打开模板，使用该界面在文档中进行更改，然后将文档另存为.docx，而不引用模板/代码。当我打开docx并打开可视化基本编辑器时，在其中找到了代码。

这是我从界面退出的代码

Private Sub Sair_Click()
ActiveDocument.Bookmarks("NomeProj").Range.text = Nomeproj.Value
ActiveDocument.TablesOfContents(1).Update
Application.Quit

End Sub

Answer 1

ActiveDocument.SaveAs FileName:="Test.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="",
AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

 ActiveDocument.Convert 'Required if not Word 2007 format

编辑：

VBA 代码也被存储。如果您想防止这种情况发生，最好的方法是将文本移动到新文档中并保存该文档。
简单的例子，基于书签的存储：

Option Explicit

Sub Save_Doc_NoMacros()

Dim ThisDoc         As Word.Document
Dim oDoc            As Word.Document


Set ThisDoc = ActiveDocument

ThisDoc.Bookmarks("Bookmark1").Select
Selection.Copy
Set oDoc = Documents.Add
Selection.Paste

oDoc.SaveAs FileName:="U:/Text.docx", FileFormat:=wdFormatDocument
oDoc.Close

End Sub