請問高手如何自動開啟多個檔案?

我想要自動開啟檔案總管下的某個資料夾，其中有2000檔案，開啟之後再複製檔名放在開啟檔案的最前面，之後存檔再關閉，但是我想讓它動開啟、複製貼上，我錄製了一個由第20開啟檔案，複製檔名，貼上，關閉。
想讓它一直開啟到第2000個檔後停止。它那個要開啟第21，22 ，23…，下一個的語法是如何？謝謝
Sub 巨集1()
'開啟檔案與錄製檔名
' 巨集1 巨集
' 巨集錄製於 2021/4/10，錄製者 886917800605
'
    ChangeFileOpenDirectory "D:\01-小說檔\葉皓軒\"
    Documents.Open FileName:="""_第20章 千万花瓶 .doc""", ConfirmConversions:=False, _
         ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
        Encoding:=65001
    Selection.Paste
    ActiveDocument.SaveAs FileName:="_第20章 千万花瓶 .doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    ActiveWindow.Close
End Sub