 |
|
CHÍP CÙNG “DÂN
KẸP GIẤY” |
|
Gỡ bỏ hàng loạt liên kết trong MS Word |
|
Trong Word, nếu chúng ta không tắt chế độ tự động
tạo liên kết tới địa chỉ trang web thì mỗi lần đánh
một địa chỉ web, chương trình sẽ tự động chuyển
thành liên kết (hyperlink). Nếu bạn muốn sửa địa chỉ
này thì không thể, bạn phải nhấn chuột phải vào,
chọn Remove Hyperlink để gỡ bỏ liên kết mới sửa
được. Khi cần gỡ bỏ nhiều liên kết thì làm cách trên
sẽ rất mất công. Tôi sẽ cung cấp cho bạn một macro
để gỡ bỏ hàng loạt liên kết thật nhanh chóng. |
|
Trước tiên, bạn vào menu Tools\ Macro\ Visual Basic
Editor (Alt+F11). Tại cửa sổ Microsoft Visual Basic,
vào menu Insert\ Module và nhập đoạn mã sau vào (có
thể chép tại www.echip.com.vn). |
Sub RemoveHyperLink()
Dim oHlink As Hyperlink, i As Long, MyRange As
Range, _
oToc As TableOfContents, LinkIsInToc As Boolean
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
With ActiveDocument.Hyperlinks(i)
Set MyRange = .Range
LinkIsInToc = False
For Each oToc In ActiveDocument.TablesOfContents
If MyRange.InRange(oToc.Range) Then
LinkIsInToc = True
Exit For
End If
Next oToc
If Not LinkIsInToc Then
.Delete
MyRange.Font.Reset
End If
End With
Next i
End Sub |
|
Nhập xong, nhấn
Alt+Q để quay về cửa sổ MS Word. Chạy macro bằng
cách vào menu Tools\ Macro\ Macros, chọn
RemoveHyperLink và nhấn nút Run. |
|
LÂM QUANG BÌNH (Hà Nội) |
|
|
|
Tạo một danh sách font trong máy tính bằng macro của
MS Word |
|
Để
dễ dàng xem và thay đổi các phông chữ trong tài
liệu, bạn có thể tạo ra một danh sách các phông chữ
(bao gồm mẫu phông) trong Word. Cách làm như sau:
- Mở Word, vào menu Tools\ Macro\ Visual Basic
Editor (hay nhấn Alt+F11). |
|
- Ở cửa sổ bên trái, nhấn đúp vào NewMacros. Ở cửa
sổ bên phải, nhập vào đoạn mã dưới đây (có thể chép
tại www.echip.com.vn): |
Sub ListAllFonts()
Dim J As Integer
Dim FontTable As Table
'Mo mot tai lieu moi
Set NewDoc = Documents.Add
'Tao bang va dat tieu de bang
Set FontTable = NewDoc.Tables.Add(Selection.Range,
FontNames.Count + 1, 2)
With FontTable
.Borders.Enable = False
.Cell(1, 1).Range.Font.Name = "Arial"
.Cell(1, 1).Range.Font.Bold = 1
.Cell(1, 1).Range.InsertAfter "Font Name"
.Cell(1, 2).Range.Font.Bold = 1
.Cell(1, 2).Range.InsertAfter "Font Example"
End With
'Duyet qua tat ca cac phong va them chung vao bang
For J = 1 To FontNames.Count
With FontTable
.Cell(J + 1, 1).Range.Font.Name = "Arial"
.Cell(J + 1, 1).Range.Font.Size = 10
.Cell(J + 1, 1).Range.InsertAfter FontNames(J)
.Cell(J + 1, 2).Range.Font.Name = FontNames(J)
.Cell(J + 1, 2).Range.Font.Size = 10
.Cell(J + 1, 2).Range.InsertAfter "ABCDEFG abcdefg
1234567890"
End With
Next J
FontTable.Sort SortOrder:=wdSortOrderAscending
End Sub |
- Nhấn Alt+Q để trở về cửa sổ Word. Vào menu Tools\
Macro\ Macros (hoặc nhấn Alt+F8), chọn tên macro
ListAllFonts, nhấn nút Run.
- Word sẽ tạo ra một danh sách phông trong tài liệu
mới. Từ đây bạn cũng có thể in nó ra giấy dễ dàng. |
|
NGUYỄN HỮU ĐỨC (An Giang) |
|
|
|
|
|
|
