Ian có rất nhiều tài liệu bao gồm các liên kết đến các tài liệu khác.

(Đây không phải là siêu liên kết; chúng là các liên kết tài liệu thực tế trong Word.) Anh ta cần phải phá vỡ các liên kết đó và anh ta biết rằng anh ta có thể tải các tài liệu và ngắt các liên kết một. Tuy nhiên, anh ấy tự hỏi, nếu có sẵn một macro có thể duyệt qua tất cả các tài liệu trong một thư mục và tự động ngắt tất cả các liên kết trong các tài liệu đó.

Theo cách thủ công, bạn có thể ngắt liên kết bằng cách làm theo các bước sau:

  1. Bấm vào tab Tệp của ruy-băng.

  2. Đảm bảo rằng Thông tin được chọn ở phía bên trái của màn hình.

  3. Ở phía dưới cùng bên phải của màn hình, trong danh mục Tài liệu Liên quan, hãy nhấp vào Chỉnh sửa Liên kết đến Tệp. (Nếu tùy chọn này không khả dụng, điều đó có nghĩa là Word không nghĩ rằng có bất kỳ liên kết nào trong tài liệu hiện tại.) Word hiển thị hộp thoại Liên kết. (Xem Hình 1.)

  4. Chọn liên kết bạn muốn phá vỡ.

  5. Nhấp vào Liên kết ngắt. Bạn được yêu cầu xác nhận hành động của mình.

  6. Nhấp vào OK.

Các bước sẽ hơi khác nếu bạn đang sử dụng Word 2007:

  1. Bấm vào nút Office, sau đó bấm Chuẩn bị.

  2. Nhấp vào Chỉnh sửa liên kết đến tệp. (Nếu tùy chọn này không khả dụng, điều đó có nghĩa là Word không nghĩ rằng có bất kỳ liên kết nào trong tài liệu hiện tại.)

Word sẽ hiển thị hộp thoại Liên kết.

  1. Chọn liên kết bạn muốn phá vỡ.

  2. Nhấp vào Liên kết ngắt. Bạn được yêu cầu xác nhận hành động của mình.

  3. Nhấp vào OK.

Như bạn có thể nói, quá trình này khá tốn công sức, đặc biệt nếu bạn có nhiều tài liệu và mỗi tài liệu có nhiều liên kết. Bản chất đòi hỏi nhiều lao động của quá trình là lý do tại sao Ian đang tìm cách phá vỡ các liên kết dưới sự kiểm soát của một vĩ mô.

Để thực hiện việc này trong macro, macro cần mở từng tài liệu trong thư mục, ngắt bất kỳ liên kết nào mà nó tìm thấy, sau đó lưu tài liệu.

Việc tìm ra có bao nhiêu tài liệu trong một thư mục, mở và đóng chúng khá đơn giản. Nếu bạn muốn ngắt các liên kết, macro cần phải xem qua từng trường trong tài liệu và chỉ ngắt những trường sử dụng trường LINK. Macro sau đây cho thấy điều này được thực hiện như thế nào.

Dim fleArray() As String     Dim flCount As Long     Dim k As Long     Dim fle As String     Dim fld As Field     Dim currentFileName As String     Dim docPath As String     Dim bDirty As Boolean

docPath = ActiveDocument.Path & "\"

currentFileName = ActiveDocument.Name

fle = Dir(docPath & "doc")

flCount = -1     ReDim fleArray(0)

Do While fle <> ""

flCount = flCount + 1         ReDim Preserve fleArray(flCount)

fleArray(flCount) = fle         fle = Dir()

Loop

For k = 0 To UBound(fleArray)

fle = fleArray(k)

_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 (2357) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016.