Linda có một tài liệu Word chứa nhiều (hơn 1.800) siêu liên kết đến các tài nguyên trên Internet. Cô ấy cần chuyển đổi tất cả các siêu liên kết để chúng không phải là tuyệt đối thành một URL trên Web, nhưng để chúng trỏ đến một vị trí tương đối trên ổ USB. Tên của tệp HTML sẽ giống như trên ổ USB như trên Web, nó chỉ là vị trí của tệp HTML đó đang thay đổi. Linda băn khoăn về cách tốt nhất để thực hiện chuyển đổi.

Cách tốt nhất là thực hiện chuyển đổi bằng cách sử dụng macro. Mỗi siêu kết nối trong tài liệu của bạn được lưu trữ trong bộ sưu tập Siêu kết nối có thể dễ dàng truy cập qua VBA. Điều này cho phép bạn duyệt qua tập hợp các siêu liên kết, kiểm tra địa chỉ của từng siêu liên kết, sau đó thực hiện sửa đổi chúng. Đây là một ví dụ về macro như vậy:

sNewBase = "c:\myplace\"

sChanged = ""

sNotChanged = ""



For J = Len(sTemp) To 2 Step -1                 If Mid(sTemp, J, 1) = "/" Then                     sFile = Right(sTemp, Len(sTemp) - J)

Exit For                 End If             Next J

If sFile > "" Then                 sNewFile = sNewBase & sFile                 h.Address = sNewFile                 sChanged = sChanged & sTemp & " (changed to " & _                   sNewFile & ")" & vbCrLf             Else                 sNotChanged = sNotChanged & sTemp & vbCrLf             End If         Else             sNotChanged = sNotChanged & sTemp & vbCrLf         End If     Next h

Macro bắt đầu bằng cách bước qua bộ sưu tập Siêu liên kết. Mỗi địa chỉ được gán cho biến sTemp, sau đó sẽ được kiểm tra xem có bắt đầu bằng “https:” hay không. Một số siêu liên kết — ví dụ, những siêu liên kết dành cho địa chỉ e-mail hoặc tới các tệp hiện có — sẽ không bắt đầu bằng những ký tự này.

Nếu tìm thấy kết quả khớp, thì mã lùi lại qua địa chỉ để tìm dấu gạch chéo cuối cùng trong địa chỉ đó. Khi nó được tìm thấy, thì sFile được đặt bằng mọi thứ sau dấu gạch chéo cuối cùng đó, có nghĩa là nó sẽ bằng với tệp HTML.

Một lưu ý phụ thú vị ở đây là khi bạn tạo siêu kết nối trong tài liệu word, Word sẽ xử lý một chút đối với những gì bạn nhập so với những gì thực sự được lưu trữ trong siêu kết nối. Ví dụ, giả sử rằng bạn nhập nội dung sau vào một tài liệu:

www.Tips.net

Word tự động nhận dạng đây là một trang web và chuyển đổi nó thành một siêu liên kết. (Tất nhiên, giả sử rằng bạn đã thiết lập Word để thực hiện chuyển đổi URL tự động.) Nếu bạn nhìn vào địa chỉ thực sự được lưu trữ trong siêu liên kết đã tạo, bạn sẽ thấy như sau:

https://www.Tips.net/

Vì địa chỉ này bắt đầu bằng “https:”, macro sẽ coi nó là thứ có thể xử lý được. Tuy nhiên, vòng lặp lùi qua địa chỉ tìm kiếm ký tự gạch chéo cuối cùng sẽ tìm thấy nó ở cuối. Điều này có nghĩa là sFile sẽ trống vì mã này:

sFile = Right(sTemp, Len(sTemp) - J)

Độ dài của sTemp và J hoàn toàn giống nhau đối với ký tự cuối cùng trong chuỗi, vì vậy sFile kết thúc chứa 0 ký tự ngoài cùng bên phải, nghĩa là nó trống. Điểm mấu chốt là nó sẽ không chứa tên tệp, vì vậy URL ban đầu không được chuyển đổi thành một thứ khác.

Không mất nhiều thời gian để chạy macro; nó rất nhanh, bất kể có bao nhiêu siêu liên kết trong tài liệu của bạn. Khi macro hoàn tất, macro sẽ tạo một tài liệu mới hiển thị các siêu liên kết đã sửa đổi và những siêu liên kết chưa được sửa đổ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.

https: – wordribbon.tips.net-WordTipsMacros [Nhấp vào đây để mở trang đặc biệt đó trong tab trình duyệt mới] `.

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 (12931) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.