Một trong những thuộc tính mà Word cho phép bạn lưu với tài liệu là tiêu đề cho tài liệu. Nếu bạn sử dụng thuộc tính này thường xuyên với các tài liệu mới của mình, bạn có thể tạo một cách để Word tự động đặt tên cho tài liệu của bạn bằng cách xem tiêu đề bạn đã cung cấp.

Macro đặc biệt này rất thích hợp để sử dụng với các chữ cái, mặc dù nó có thể dễ dàng sửa đổi cho các loại tài liệu khác. Macro được đặt tên là FileSaveAs, vì vậy nó thay thế lệnh Save As tích hợp sẵn. Nơi tốt nhất để lưu macro này là trong mẫu bạn sử dụng cho các chữ cái của mình:

Sub FileSaveAs()

Dim MyDocTitle As String     MyDocTitle = Format(Date, "yymmdd") + " letter"



Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     With Selection.Find         .Text = "^pDear "

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

If Selection.Find.Found Then         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.EndKey Unit:=wdLine, Extend:=wdExtend         Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend         If Len(Selection.Text) > 1 Then             MyDocTitle = MyDocTitle + " to " + Selection.Text         End If     End If

With Dialogs(wdDialogFileSummaryInfo)

.Title = MyDocTitle         .Execute     End With

Dialogs(wdDialogFileSaveAs).Show End Sub

Lưu ý rằng macro này chỉ hoạt động đúng khi bạn lần đầu tiên lưu một tài liệu mới. Nếu bạn sử dụng nó với tài liệu hiện có (tài liệu trước đó đã được lưu dưới một tên khác), tên gốc vẫn được đề xuất làm mặc định trong hộp thoại Save As, ngay cả khi tiêu đề tài liệu được sửa đổi.

Macro có thể được gán cho một nút trên thanh công cụ hoặc một tùy chọn menu để bạn có thể lưu tài liệu của mình và đặt tên cho chúng tự động.

_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 (1693) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: