Đ
Đ
Đ
I
I
I
Ề
Ề
Ề
U
U
U
C
C
C
H
H
H
Ỉ
Ỉ
Ỉ
N
N
N
H
H
H

S
S
S
U
U
U
P
P
P
E
E
E
R
R
R
S
S
S
C
C
C
R
R
R
I
I
I
P

C
C
R
R
R
I
I
I
P
P
P
T
T
T
C
C
C
Ủ
Ủ
Ủ
A
A
A

M
M
M
S
S
S
W
W
W
O
O
O
R
R
R
D

R
R
O
O
O
Tuy Word không có phần tuỳ chọn cho kích thước mặc định của số mũ (Superscript) và chỉ số dưới (Subscript);
nhưng nếu bạn cảm thấy các chỉ số này hơi nhỏ so với font bình thường, bạn có thể điều chỉnh kích thước của chúng bằng
hai macro đơn giản dưới đây. Macro được viết bằng Visual Basic for Application (VBA), áp dụng cho các phiên bản MS
Word từ 97 đến 2010.
I/ Tạo macro điều chỉnh cở font Superscript.
1. Mở Tools/Macro/Macros… ® Trong hộp thoại Macros, nhập Superscript ở Macro name, chọn Macros in
là Normal.dot ® bấm Create.
2. Môi trường VBE (Visual Basic Editor) sẽ mở. Trong cửa sổ Code, bạn thấy có sẵn macro:
Bạn xoá dòng lệnh "Selection.Font.Superscript = wdToggle", thay bằng đoạn mã sau:
Bạn nhập mã bình thường từ bàn phím. Những khoảng thụt đầu dòng không cần chính xác, nhưng nên canh tương
đối để dễ phân biệt các nhóm lệnh. Khi nhập dấu chấm (.), nếu VBE hiện hộp danh sách thuộc tính, bạn cuộn đến từ cần
nhập (ví dụ: Size) rồi bấm kép.
(Đoạn mã trên bao gồm các chỉ thị:
- Chọn định dạng Font (ở vị trí đặt trỏ).
Sub Superscript()
'
' Superscript Macro
' Makes the selection superscript (toggle)
'
Selection.Font.Superscript = wdToggle
End Sub
With Selection.Font

dưới từ khoá If … Then, và thêm
.Position = 2
dưới từ khoá Else.
Trong đó 2 là số point được dời thêm lên trên, bạn có thể thay đổi số này theo ý mình.
2. Điều chỉnh khoảng hạ thấp của chỉ số dưới.
Làm tương tự trên với macro Subscript nhưng thêm dấu trừ (-) vào trước số 2 (.Position = - 2).
Khi cần chỉnh sửa macro (như sửa lại số), bạn chọn Tools/Macro/Macros ® hộp thoại Macros, bạn chọn macro rồi
bấm Edit. Sau đó chỉnh sửa macro từ cửa sổ Code của VBE.
Trường Sơn
With Selection.Font
If .Subscript Then
.Size = .Size - 1
Else
.Size = .Size + 1
End If
.Subscript = Not .Subscript
End With