Stuart đã viết về nhu cầu mà anh ấy có là hợp nhất nhiều tệp văn bản khác nhau thành một tài liệu Word duy nhất. Việc chèn các tệp theo cách thủ công tỏ ra tẻ nhạt, đặc biệt khi có 20 hoặc 30 tệp văn bản khác nhau được kết hợp.

May mắn thay cho Stuart, tên tệp của anh ấy có thể dự đoán được: C1000.TXT, C1001.TXT, v.v. Điều này làm cho việc kết hợp một macro để thực hiện hợp nhất khá dễ dàng. Ví dụ sau sẽ tìm kiếm các tệp từ C1000.TXT đến C1030.TXT, tất cả đều nằm trong thư mục C: \ và kết hợp chúng thành tài liệu hiện tại:

Sub CombineFiles()

Dim J As Integer     Dim sFile As String     For J = 1000 To 1030         sFile = "c:\c" & Trim(Str(J)) & ".txt"

If (Dir(sFile) > "") Then             Selection.InsertFile FileName:=sFile, ConfirmConversions:=False             Selection.TypeParagraph         End If     Next End Sub

Nếu bạn muốn thay đổi phạm vi tệp đang được chèn, chỉ cần thay đổi các giá trị ở đầu vòng lặp For …​ Next. Nếu các tệp nằm trong một thư mục khác, bạn có thể thay đổi đường dẫn được sử dụng trong dòng mã tiếp theo, nơi sFile được đặt. Nếu một tệp trong phạm vi bị thiếu, nó sẽ tự động bị bỏ qua.

Tuy nhiên, có một cách dễ dàng hơn để kết hợp các tệp mà thậm chí không liên quan đến việc sử dụng Word. Bạn có thể sử dụng lệnh sau tại dấu nhắc lệnh của Windows:

copy C1???.txt single.txt

Điều này sẽ kết hợp tối đa 1000 tệp, C1000.TXT đến C1999.TXT, thành một tệp văn bản duy nhất được gọi là SINGLE.TXT. Các tệp gốc vẫn không bị ảnh hưởng.

Nếu bạn muốn kết hợp một số lượng tệp nhỏ hơn, bạn có thể sử dụng định dạng này:

copy C1020.txt+C1021.txt+C1022.txt+C1023.txt single.txt

Việc sử dụng này dẫn đến bốn tệp, C1020.TXT đến C1023.TXT, được kết hợp thành SINGLE.TXT. Bạn có thể thêm nhiều tệp với nhau theo cách này tùy thích.

Tuy nhiên, có một lưu ý đối với kỹ thuật này. Lệnh sao chép dẫn đến không có ký tự thừa nào được thêm vào tệp. Nói cách khác, nội dung của C1021.TXT được đặt ngay sau C1020.TXT. Ví dụ: nếu C1020.TXT chứa “văn bản 1020” và C1021.TXT chứa “văn bản 1021” thì SINGLE.TXT sẽ chứa “văn bản 1020text 1021”. Cách duy nhất để giải quyết vấn đề này là chỉnh sửa từng tệp nguồn để đảm bảo rằng tệp đó kết thúc bằng dấu xuống dòng hoặc sử dụng macro đã trình bày trước đó.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.