兩個賬號的網友留言：

其實自己用的話，沒必要那么復雜，錄制一下就明白了。

新建一個空白文檔，點開發(fā)工具，點錄制宏，然后將文檔另存為成.doc文件，停止錄制

你就可以看到代碼了，紅框內是另存為? SaveAs2我們詳細的講過

SaveAs2的參數在微軟官網上可以找到

https://learn.microsoft.com/zh-cn/office/vba/api/Word.SaveAs2

Ps：VBA語言是微軟發(fā)明的，不是我創(chuàng)造的，我只是學習者，根據微軟提供的每一個函數，應用到我自己的需求上來。不知道就錄制，總能找到答案。沒必要把SaveAs2的所有參數都復制，前兩個參數就夠了，保存到哪里，用什么文件類型。

打開一個空白Word文檔 ，在VBE編輯器中使用如下代碼

第2~4行代碼：Access第三季FSO對象，檢查D盤孫興華這個文件夾是否存在，如果不存在就創(chuàng)建。

從第5行代碼：ExcelVBA筆記18.7，通過彈出的對話框選擇文件

第11行，遍歷你鼠標選中的文檔，這些文件是可以按住Ctrl鍵多選的

第12行，打開文檔

第13行，FSO對象提取文件名，例如，“c:\網友\張三.docx”? ?提取：“張三”

第14行，另存的文件名和類型

第15行，關閉打開的文檔

禁止屏幕刷新的代碼就自己加吧

Application.ScreenUpdating = False

Application.ScreenUpdating = True

第一句加在set對話框的前面，第二句加在end sub前面

用這個方法你們可以實現各種類型的轉換，不限于Word，Excel、Access、PPT都可以轉。我手上沒有支持office2003或2007的電腦，你們可以自行試一下，在不安裝升級補丁的情況下，這么轉換是否可以打開，我不用老版本已經很多年了，從來沒有測試過，高版本改個后綴名都能打開，主要是看低版本是否兼容。有問題隨時留言。

ExcelVBA及WordVBA篇：https://www.bilibili.com/video/BV1rt4y1a72y

Access篇+AccessVBA篇：https://www.bilibili.com/video/BV1tf4y117Sh

更多教程：https://www.bilibili.com/read/cv10222110