MS Word vba在不转换活动文档的情况下将.docm保存为.docx
MS Word VBA是Microsoft Word的宏语言，可以通过编写VBA代码来自动化执行各种任务。在不转换活动文档的情况下将.docm保存为.docx，可以使用以下VBA代码：
Sub SaveAsDocx()
Dim filePath As String
Dim fileName As String
' 获取当前文档的路径和文件名
filePath = ActiveDocument.Path
fileName = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5) & ".docx"
' 保存为.docx格式
ActiveDocument.SaveAs2 filePath & "\" & fileName, wdFormatXMLDocument
' 关闭当前文档
ActiveDocument.Close
End Sub这段VBA代码将当前活动文档保存为.docx格式，而不进行任何转换。它首先获取当前文档的路径和文件名，然后使用SaveAs2方法将文档保存为.docx格式。最后，关闭当前文档。
这种方法适用于需要将.docm文件转换为.docx文件，但又不希望在保存过程中进行任何转换的情况。例如，如果你希望保留文档中的宏代码，并将其保存为.docx格式以与其他人共享，这个方法就非常有用。
腾讯云提供了一系列云计算产品，其中与文档处理相关的产品是腾讯云文档服务（Tencent Cloud Document Service）。该服务提供了文档转换、文档预览、文档编辑等功能，可以满足各种文档处理需求。你可以通过访问以下链接了解更多关于腾讯云文档服务的信息：
相关·内容
1回答
MS Word vba在不转换活动文档的情况下将.docm保存为.docx
vba、ms-word
我有一个带有宏的MS Word文档(.docm) 基于许多StackOverflow帖子，我已经编写了一个宏导出为pdf并保存为.docx 我打开/编辑.docm文档，其中有一个onSave宏，它将文档保存为.pdf格式和.docx格式，我将其分发给其他人使用。我将始终对.docm文档进行更改。 我的问题是，这样做会将活动(打开的)文档从.docm转换为.docx，这样我就不再对.docm进行更改。 Sub SaveActiveDocumentAsDocx()
On Error GoTo Errhandler
If InStrRev(ActiveDocument.Full
浏览 15提问于2020-10-02得票数 1
回答已采纳
1回答
如何在word中管理活动文档引用以保存和关闭新创建的输出？
vba、merge、ms-word、runtime-error
我正尝试在一个打开的.docm文件中使用VBA打开第二个只读.docx文件，然后从文件中插入-> object -> text (存储在同一文件夹中的第三个只读.docx )。
下面的代码正确地打开并合并了这两个文件，但是当涉及到保存输出时，它会返回一个运行时13“不匹配”错误。我有限的理解使我相信，在我正在保存的点上，活动文档引用仍然是原始的.docm，正是.docx指定导致了冲突。
我真的很难管理活动文档引用来避免这种情况。想必我错过了一些非常简单的东西，所有的帮助都是非常感激的。
Documents.Open ActiveDocument.Path & "\D
浏览 0提问于2020-09-16得票数 0
2回答
我正在尝试编写一个宏来保存“文档名称-更改”的.pdf副本，它显示所有跟踪的更改，然后接受所有更改并保存“文档名称-编辑”的.docx副本。导出所有作品和文件都是正确命名的，但是.pdf副本已经接受了所有更改，并且不显示任何更改，即使ActiveDocument.Revisions.AcceptAll直到创建.pdf之后才会出现。有人知道为什么会这样吗？
代码：
Sub ExportAndSave()
Dim CurrentFolder As String
Dim FileName As String
Dim myPath As String
'Store Informatio
浏览 0提问于2021-05-13得票数 0
1回答
如何在HTML中保存副本时打开原始word文档？
vba、ms-word
我遇到的问题是，当我运行宏将当前的Word文档保存为HTML类型时，文档仍然保持打开状态，但不是原来的.docx格式，而是.htm格式。
如果我要在宏运行后编辑文档，那么它将不会在以后保持原来的.docx格式。
我希望在保存一份不同格式的副本时，如何保持原来的格式，我将不胜感激。谢谢。
下面是我在VBA中的docx到html代码
Sub DocToHTML()
Dim slice As String
Dim strDocName As String
Dim PathOrg As String
On Error Resume Next
strDocN
浏览 1提问于2017-06-05得票数 4
2回答
在文件名中使用"Name:“前面的文本
vba、ms-word
在我输入了Word文档(在我的例子中是诊所记录)之后，我运行下面的VBA来自动保存PDF和文档的Word副本。
文件名包含：
日期+文档中的前两个单词。(例如，"2022-07-11蒂莫西·道尔顿“)
我希望文件名包含：
日期+文档中“病人姓名：”后面的前两个单词。
所以,
目前，我需要文件的前两个词作为病人的名字。在(希望)修改VBA代码之后，我将能够编写一个更恰当的开头：
亲爱的博士，
很高兴见到蒂莫西·道尔顿先生来我的诊所。详情如下：
病人名称:蒂莫西·道尔顿
年龄: 125岁
性别:男性
.
..。
..。
.
.
由衷地，
是的医生。
当前代码：
Sub PDF_Sv_An
浏览 4提问于2022-07-10得票数 0
1回答
我想在Word中创建一个VBA代码，该代码将创建具有不同文件名的多个word文件
vba、ms-word、filenames
我想使用visual basic创建同一word文件的多个保存。每个文件将需要命名与月份的日期和月份的名称(而不是数字)，我希望这运行从1到31在每个月。我有一个粗略的代码，
Sub Mine()
Dim DateStr, FileStr As String
DateStr = Format$(Date, "DD")
FileStr = DateStr & ".docx"
ActiveDocument.Save
ChangeFileOpenDirectory "Z:\FIR MASTER FOLDER\FCR briefing
浏览 5提问于2018-02-24得票数 1
回答已采纳
1回答
Excel VBA循环和关闭
excel、vba、ms-word
Sub CommandButton1_Click()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRng As Word.Range
Dim wdPath As String
Dim i As Integer
wdPath = "C:\Users\840\Desktop\TP CLients\"
ThisWorkbook.ActiveSheet.Range("A1:D1").Copy 'Excel sheet of condensed
T
浏览 5提问于2018-01-15得票数 0
回答已采纳
1回答
删除激活文字2013
vba、ms-word
我有一个表单，是发送给用户完成和电子提交，这实际上只是发送一个自动电子邮件与文档作为附件。为了将文档附加到电子邮件中，它首先会自动保存到用户桌面。我想要做的是找到一种方式删除该文件提交后。我在网上找到了几个示例，但没有一个对我有用，坦率地说，如果您有一行ActiveDocument.Close False，然后是删除文件路径的行，文档关闭，宏就不再运行，我就不知道它是如何工作的。
我从另一个用户的问题中找到了一个未加标记的答案：
Sub DeleteCurrentDoc()
Dim Doc1 As Document
Dim deletepath As String
浏览 2提问于2017-07-18得票数 0
1回答
我希望将文件夹中的所有docx文件转换为PDF。为了实现我的目标，我将所有文件(只有docx)放在与docm相同的文件夹中，并运行宏。它起了作用，但现在不起作用了，即使是同样的文件也不再起作用了。有时对第一个文件起作用，并停止使用以下警报：“运行时错误'5174'：找不到此文件(C:\Users...\Archive.docx)”
问题总是在Documents.Open上。
试过"OpenAndRepair"，"ReadOnly"，什么都不放，等等。
Sub Converter()
Dim CurrentFolder As String
浏览 1提问于2019-02-07得票数 0
回答已采纳
3回答
循环遍历目录中的所有Word文件
vba、ms-word
我有以下代码：
Sub WordtoTxtwLB()
'
' WordtoTxtwLB Macro
'
'
Dim fileName As String
myFileName = ActiveDocument.Name
ActiveDocument.SaveAs2 fileName:= _
"\\FILE\" & myFileName & ".txt", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRec
浏览 1提问于2012-07-18得票数 6
回答已采纳
2回答
如何根据书签中的数据命名文件
vba、ms-word、filenames
我正在尝试使用基于模板的名称保存Microsoft Word 2010文档。
我有一个具有书签名称的模板表单：
ProcNo (程序编号的书签)
RevNo (修订号书签)
我想打开另存为窗口，并以以下格式插入文件名：“ProcNo”Rev“RevNo”-附件4旅行者
其中“ProcNo”是从程序编号的书签中提取的文本，而“RevNo”是从修订编号的书签中提取的文本
然后在另存为窗口中选择文件目标。
我尝试使用宏录制器，单击文件，另存为，然后浏览，打开另存为窗口，并键入文档名称“ABC”，以了解代码的外观；但遇到以下问题：
我不知道打开“另存为”窗口的代码。
我不知道在包含上述文件命名格式的“
浏览 0提问于2020-12-31得票数 0
2回答
循环遍历PDF文件，并使用word将它们转换为doc。
vba、pdf、ms-word
我正在尝试使用VBA编码--这是我刚刚开始使用的--从PDF (不是图像)获得一系列.doc文档，也就是说，我试图循环各种PDF文件并以MS Word格式保存它们。我的经验是，word很好地阅读了我所拥有的PDF文档: word大部分时间都维护PDF文件的正确布局。我不确定这是否是解决这一问题的正确选择，我要求一个替代建议--如果可能的话，使用R。
总之，这是我找到的代码
Sub convertToWord()
Dim MyObj As Object, MySource As Object, file As Variant
file = Dir("C:\Users\us
浏览 4提问于2017-08-25得票数 11
回答已采纳
2回答
如何在用SaveAs2保存时从word文件中删除宏？
vba、ms-word
所以，我有一个包含宏的单词模板。我想实现什么？
保存文件时，我希望将Word-File保存为具有新名称和新目标的新docx-文件。
当我单击“立即保存”时，该文件已经使用新名称和新目标(也作为*docx文件)正确保存，但是宏仍然在里面，所以当我按“现在保存”时，宏仍然被执行(这就是我要删除的内容)。
那么，当保存新文件中的“所有宏”时，如何删除？
我目前的代码是：
Sub FileSave()
'
' saveFile Macro
'
'
DocDate = ActiveDocument.Tables(1).Cell(4, 2)
GCCName
浏览 2提问于2019-02-08得票数 0
1回答
在通过vba保存pdf之前更新formfield
ms-access、vba、ms-word
我是VBA和编码的初学者，而且我的VBA代码有问题。我想做的是：
我的Access数据库中有两个可填充字段(f_autpar_nom和f_autpar_fiche)，它们需要使用command_click()在两个formfield (eleves_nom和eleves_numfiche)上显示Word文件。然后，我的Word文档打开并提示我“您想保存这个吗”，然后Word文档保存为PDF格式并通过电子邮件发送。
除了一件事之外，一切都正常工作:当我打印PDF并返回我设置的默认消息(即"erreur")时，表单字段不会更新。
我需要的是找到一种方法，在我的消息框提示我发送电子邮
浏览 1提问于2017-12-21得票数 2
回答已采纳
3回答
Word自动化-另存为
c++、com、ms-word
我试着写一个简单的MFC - Word自动化，每1分钟保存一次。我关注这篇文章：
这就是我正在尝试实现的，我是COM的新手，所以我认为这里有个问题:我的VBA是由Word 2010生成的：
ActiveDocument.SaveAs2 FileName:="1.docx", FileFormat:=wdFormatXMLDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecomm
浏览 0提问于2010-06-04得票数 3
回答已采纳
2回答
多条记录的邮件合并
vba、ms-word
这个单词VBA代码正确运行：
Sub Macro2()
Documents.Open Filename:="testing.docx", AddToRecentFiles:=False
strSourceDoc = ActiveDocument.Path & "" & "fixedcharge.xls"
ActiveDocument.MailMerge.OpenDataSource Name:=strSourceDoc,Format:=wdOpenFormatAuto, Connection:=
浏览 1提问于2018-03-25得票数 0
回答已采纳
1回答
附加Word docx文件，同时保持其在VBA中的格式
vba、ms-word
我正在创建一个Word宏，它接收两个参数: docx文档列表和新文件的名称。目标是宏一个接一个地插入文档，保留它们各自的格式，并另存为新的docx文档。
Sub Merger(path As String, args () As Variant)
Dim vArg As Variant
Active Document.Select
Selection.ClearFormatting
For Each vArg In args
ActiveDocument.Content.Words.Last.Se
浏览 1提问于2020-08-04得票数 0
2回答
无法打开用VBA保存的Word .docm文档
vba、ms-word
我试图保存一个启用Word宏的模板，然后通过电子邮件发送生成的文件，但是保存(并发送)为.docm的文件无法打开。它抛出此错误：
"We're sorry. We can't open B.docm because we found a problem with its contents"
我需要做些什么来“转换”文档吗？没有找到任何关于它的东西，每个人似乎都同意我保存文档的方式是好的。
这是我正在使用的代码：
Private Sub CommandButton1_Click()
'Save Document
Dim wdApp As Word
浏览 0提问于2018-10-18得票数 1
回答已采纳
2回答
可以执行循环来运行一组定义的变量吗？
vba、loops、ms-word
我正在编写一些代码，想知道是否有可能出现循环。我实际上是为Word而不是Excel写这段代码，我通常这样做，但我认为这无关紧要。我的vba技术水平是初级-中级。该代码旨在使用Word中的邮件合并功能，该功能会更改文档中的一些功能，然后对文件执行另存为，然后移动到下一个文件。 Sub Finsh_Merge_Save_302()
Dim date1 As String
Dim date2 As String
Dim filepath As String
Dim mainfile As String
Dim fund1 As String, fund2 As String, fund3
浏览 11提问于2019-06-26得票数 0
回答已采纳
1回答
将SaveAs2对话框文件类型与Application.FileDialog匹配
vba、ms-word、word-2013
假设您希望有一个按钮，用户可以单击该按钮并将当前文件的副本保存为PDF()：
Application.ActiveDocument.SaveAs2 fileName:="fileName.pdf", FileFormat:=wdFormatPDF
这样做很好，用户会看到一个保存对话框，选择一个位置并保存文件，但是有几件事情是不正确的：
所显示的类型与VBA中指定的类型不匹配，这怎么可能是正确的？它仍然保存为"PDF“类型，没有问题，即使在显示"DOCX”作为文件类型在“另存为类型”下拉。另外，"fileName.pdf“没有放在”文件名“框中，
浏览 3提问于2016-04-04得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
