VBA copy file word hàng loạt

[Chu Hà]

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ẽ

 

[Hoàng Tuấn 868]

[Help] VBA copy file word hàng loạt​

...........................

Nội quy diễn đàn. .

 

[giaiphap]

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ẽ

Muốn giúp phải code file để thử chứ, chẳng lẻ tạo file cho bạn luôn à, mà bạn nên xóa chữ Help trong tiêu đề vì nó vi phạm nội quy diễn đàn.

 

[VetMini]

Muốn giúp phải code file để thử chứ, chẳng lẻ tạo file cho bạn luôn à, mà bạn nên xóa chữ Help trong tiêu đề vì nó vi phạm nội quy diễn đàn.

Tại thớt lô gic ngược.
Chứ bài này đáng lẽ là:
Copy 1000 files từ thư mục X sang thư mục Y
Copy file B vào đầu mỗi file trên.

Chú thích: để các styles của B không ảnh hưởng đến A's, nên lập thêm một section break ở giữa và đặt rằng 2 sections hoàn toàn không kiên hệ nhau.

 

[Chu Hà]

Nội quy diễn đàn. .

Muốn giúp phải code file để thử chứ, chẳng lẻ tạo file cho bạn luôn à, mà bạn nên xóa chữ Help trong tiêu đề vì nó vi phạm nội quy diễn đàn.

dạ em đã sửa lại ạ

Tại thớt lô gic ngược.
Chứ bài này đáng lẽ là:
Copy 1000 files từ thư mục X sang thư mục Y
Copy file B vào đầu mỗi file trên.

dạ không phải nhé bác. do em muốn sử dụng watermark của file B nên mới phải làm như vậy ạ.

 

[Chu Hà]

E đã đính kèm file A,B làm mẫu rồi ạ

 

[befaint]

không phải

Chép khúc đầu File B và watermark vào file Ai là xong.

 

[Chu Hà]

vậy header với footer của file thành phẩm vẫn là của file A rồi bác

Chép khúc đầu File B và watermark vào file Ai là xong.

 

[giaiphap]

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

Sub Macro1()
    ChangeFileOpenDirectory "C:\Users\Administrator\Downloads\"
    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

 

[Chu Hà]

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

Sub Macro1()
    ChangeFileOpenDirectory "C:\Users\Administrator\Downloads\"
    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

dạ để em test lại ạ.

 

[Chu Hà]

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

Sub Macro1()
    ChangeFileOpenDirectory "C:\Users\Administrator\Downloads\"
    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

Cảm ơn bác với sự giúp đỡ trên em đã làm được rồi ạ
Bác cho e hỏi, làm sao để ghi được record macro từ Word mà lấy cả được đường dẫn của file đó ạ

 

[VetMini]

...
dạ không phải nhé bác. do em muốn sử dụng watermark của file B nên mới phải làm như vậy ạ.

Hồi nào giờ tôi vẫn nói: "cái hại của VBA là nó làm cho người ta lười học các thao tác căn bản MS Office"
Nên học lại cấu trúc văn bản Word.