Anthony thường xuyên nhập nhiều báo cáo, dưới dạng tệp văn bản (tức là filename.txt), vào Word. Sau đó, anh ta sử dụng macro để định dạng thông tin đã nhập này. Sau khi macro định dạng hoàn tất, Anthony sử dụng thủ công “Lưu dưới dạng” cho mỗi báo cáo để lưu dưới dạng tài liệu Word. Anh ấy đang tự hỏi mình nên thêm lệnh nào vào macro của mình để tự động hóa bước cuối cùng của quá trình lưu dữ liệu. Anthony muốn macro lưu tệp bằng cách sử dụng cùng tên gốc với tệp văn bản gốc, chỉ thay đổi nó thành định dạng Word, như trong filename.docx.

Các bước để thực sự lưu tệp tương đối dễ dàng. Hãy xem xét đoạn mã sau, đoạn mã này lưu tài liệu ở định dạng Word:

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

Tên của tệp được lưu trữ trong biến sDocName và cài đặt cho thuộc tính FileFormat cho biết rằng bạn muốn tài liệu được lưu ở định dạng Word. Trong một macro hiện có, việc duy nhất còn lại phải làm là thiết lập sDocName với tên tệp mong muốn.

Giả sử rằng bạn đã lưu tên tệp văn bản gốc của mình vào biến sOrigName, bạn có thể sử dụng mã sau để thay đổi phần mở rộng thành .doc, sau đó lưu tệp:

sDocName = Left(sOrigName, Len(sOrigName) - 4)

sDocName = sDocName & ".docx"

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

Mã giả định rằng bốn ký tự cuối cùng của sOrigName chứa phần mở rộng tên tệp (dấu chấm cộng với ba ký tự). Chúng bị loại bỏ và phần mở rộng “.docx” được thêm vào. Nếu bạn không chắc phần mở rộng tên tệp sẽ dành cho tệp gốc trong bao lâu, bạn có thể dựa vào chức năng Tách để tách nó ra, nếu muốn:

sNameParts = Split(sOrigName, ".")

sDocName = sNameParts(0) & ".docx"

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

Để làm cho macro này hoạt động, hãy đảm bảo bạn khai báo sNameParts dưới dạng một mảng chuỗi.

_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í.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (404) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016. Bạn có thể tìm phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: