问将文档另存为不带.docx代码的VBA
EN

Stack Overflow用户

提问于 2013-01-23 11:41:25

回答 2查看 26K关注 0票数 5

我用VBA代码和用户表单创建了一个模板。我将它保存为.dotm (启用宏的模板)。

我想打开模板，使用界面在文档中进行更改，然后将文档另存为.docx，而不引用模板/代码。当我打开docx并打开visual basic编辑器时，我在那里找到了代码。

这是我从界面退出的代码

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

End Sub

ms-word

vba

边缘安全加速平台EO 1.8折起

边缘节点遍布全球，提供域名解析、动静态智能加速、TCP/UDP 四层加速、DDoS/CC/Web/Bot 防护、边缘函数计算等边缘一体化服务

回答 2

Stack Overflow用户

发布于 2013-01-23 11:51:34

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

票数 2

Stack Overflow用户

发布于 2019-04-21 05:11:34

docx文件不能包含任何VBA代码。句号。但是，每个docx文件都可以访问它所附加到的模板中的任何代码。默认情况下，从模板创建新文档时，该文档将附加到该模板。如果不希望生成的docx文件进一步访问其附加模板中的VBA，请将其附加到合适的dotx模板。假设您有这样一个dotx模板，您可以通过Developer|Document Template>Templates>Attach或AttachedTemplate方法来完成。

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/14478865

复制

VBA代码库06：实现健壮的“另存为”功能

编程算法

下面的自定义函数GetSaveAsFilenamePlus函数的代码能够更好地实现GetSaveAsFilename方法的“另存为”功能。该函数接受两个参数，分别是文件名和路径，用于“另存为”对话框中的默认值。如果用户输入的文件名已存在，则会询问用户是否覆盖掉已存在的文件、输入另一个文件名、或者取消保存操作。如果用户取消保存，则该函数返回零长字符串。

fanjy

2019/07/18

2.2K0

Python将数据渲染到docx文档指定