VBA copy file word hàng loạt

Chia sẻ bởi:hands

★★★★★

‹ Tìm và thay thế những từ/cụm từ... [Giúp đỡ] Tìm kiếm, lọc và lấy... ›

Quảng cáo

E chào mọi người

Em có 1000 file word (A1,…,A1000)
E mong muốn tạo code
Copy nội dung bên trong file A1 sang file word có tên là B
rồi lưu lại ở một thư mực có tên là "Thay_ten" với tên là A1
Tương tự lặp lại với file A2,…,A1000. File word B không đổi
Mong nhận được sự giúp đỡ của mọi người
Chú ý: Khi copy phải giữ nguyên định dạng (tô đậm, in nghiêng,..) và trong file A có ảnh, bảng biểu, hình vẽ

Tui record macro từ Word được đoạn code này.

Sub Macro1()
    ChangeFileOpenDirectory "C:UsersAdministratorDownloads"
    Documents.Open FileName:="B.docx", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto, XMLTransform:=""
    Selection.EndKey Unit:=wdStory
    Selection.InsertFile FileName:="A.docx", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    ActiveDocument.SaveAs2 FileName:="Thanh Pham.docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=14
    ActiveWindow.Close
End Sub