zhigang的博客

打开word点击开发新建vba文件copy以下代码执行OKOption ExplicitSub docx2other()On Error Resume NextDim sEveryFile As String, sSourcePath As String, sNewSavePath As StringDim CurDoc As ObjectsSourcePath = "C:\Users\59949\Desktop\word_1\"sEveryFile = Dir(sSourceP.