用word VBA 遍历文件打开word文档

摄狼一线天

用word VBA 遍历文件打开word文档（用word  VBA来写）

在文件夹里有后缀名为DOC和后缀名为DOCX的word文档，如何用用 word  VBA遍历文件同时打开word文档。

jiangxiaoyun

do loop  加上dir

山菊花

Private Sub CommandButton1_Click()
    Dim cPath$, cFile$
    cPath = ThisDocument.Path & "\"
    cFile = Dir(cPath & "\*.doc*")
    Do While cFile <> ""
        If cFile <> ThisDocument.Name Then
            Documents.Open (cPath & cFile)
        End If
        cFile = Dir
    Loop
End Sub

将附件保存到同一文件夹中。

摄狼一线天

山菊花 发表于 2024-1-10 09:53
Private Sub CommandButton1_Click()
    Dim cPath$, cFile$
    cPath = ThisDocument.Path & "\"

谢谢山菊花老师

摄狼一线天

jiangxiaoyun 发表于 2024-1-10 09:44
do loop  加上dir

谢谢老师的帮助

摄狼一线天

山菊花 发表于 2024-1-10 09:53
Private Sub CommandButton1_Click()
    Dim cPath$, cFile$
    cPath = ThisDocument.Path & "\"

谢谢老师的帮助，再请教一个问题，如果在这个目录下有一个*.docm文件，不想同时打开这个docm文件，要这么写？

山菊花

摄狼一线天 发表于 2024-1-10 11:04
谢谢老师的帮助，再请教一个问题，如果在这个目录下有一个*.docm文件，不想同时打开这个docm文件，要这么 ...

Private Sub CommandButton1_Click()
    Dim cPath$, cFile$
    cPath = ThisDocument.Path & "\"
    cFile = Dir(cPath & "\*.doc*")
    Do While cFile <> ""
        If Not LCase(cFile) Like "*.docm" Then
            Documents.Open (cPath & cFile)
        End If
        cFile = Dir
    Loop
End Sub

wh1813

山菊花 发表于 2024-1-10 09:53
Private Sub CommandButton1_Click()
    Dim cPath$, cFile$
    cPath = ThisDocument.Path & "\"

请问老师，如何实现依次打开文件夹内所有docx，然后依次另存在指定文件夹下，并关闭呢

摄狼一线天

山菊花 发表于 2024-1-10 11:28
Private Sub CommandButton1_Click()
    Dim cPath$, cFile$
    cPath = ThisDocument.Path & "\"

谢谢老师，收到了。

山菊花

wh1813 发表于 2024-1-10 13:44
请问老师，如何实现依次打开文件夹内所有docx，然后依次另存在指定文件夹下，并关闭呢

Private Sub CommandButton1_Click()
    Dim cPath$, cPath2$, cFile$, myDoc As Document
    cPath = ThisDocument.Path & "\"
    cPath2 = "c:\Temp\"
    cFile = Dir(cPath & "\*.doc*")
    Do While cFile <> ""
        If Not LCase(cFile) Like "*.docm" Then
            Set myDoc = Documents.Open(cPath & cFile)
            
            '处理文档
            '
            '
            myDoc.SaveAs2 cPath2 & cFile
            myDoc.Close
        Exit Do
        End If
        cFile = Dir
    Loop
End Sub