我正在嘗試使用這里找到的代碼：
https://answers.microsoft.com/en-us/msoffice/forum/all/can-i-save-as-multiple-documents-at-one-time/eae10efb-1984-4131-b072-a96d45020ba9
Sub SaveAllOpenDocsAsDocx()
For Each aDoc In Application.Documents
aDoc.SaveAs FileName:=aDoc.FullName & ".doc", FileFormat:=wdFormatDocument
aDoc.Close
Next aDoc
End Sub
我想將任何打開的 word 檔案保存到特定的檔案夾路徑，我將如何更改
檔案名：=aDoc.FullName
到特定位置，例如 C:\Users\joe.blog\Desktop\Backup
uj5u.com熱心網友回復：
使用 FullName 屬性包括原始路徑。
您需要提取檔案名并將其附加到您的路徑
像這樣的東西
Sub SaveAllOpenDocsAsDocx()
Const MY_LOCATION = "C:\Users\joe.blog\Desktop\Backup\"
Dim myFileLocation As String
For Each aDoc In Application.Documents
myFileLocation = MY_LOCATION & aDoc.Name & ".doc"
aDoc.SaveAs FileName:=myFileLocation, FileFormat:=wdFormatDocument
aDoc.Close
Next aDoc
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/449926.html
上一篇：VBA回圈遍歷作業簿中的多個作業表以填充參考特定作業表名稱串列的值
下一篇：該作業簿中的宏可能不可用