ĐIỀU CHỈNH ĐỊNH DẠNG SUPERSCRIPT VÀ SUBSCRIPT

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ằnghai 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 MSWord từ 97 đến 2010.
Nội dung trích xuất từ tài liệu:
ĐIỀU CHỈNH ĐỊNH DẠNG SUPERSCRIPT VÀ SUBSCRIPT ĐIỀU CHỈNH ĐỊNH DẠNG SUPERSCRIPT VÀ SUBSCRIPT CỦA ĐIỀU CHỈNH ĐỊNH DẠNG SUPERSCRIPT VÀ SUBSCRIPT CỦA MS WORD BẰNG MACRO MS WORD BẰNG MACRO 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ằnghai 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 MSWord 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 inlà 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: Sub Superscript() Superscript Macro Makes the selection superscript (toggle) Selection.Font.Superscript = wdToggle End Sub Bạn xoá dòng lệnh Selection.Font.Superscript = wdToggle, thay bằng đoạn mã sau: With Selection.Font If .Superscript Then .Size = .Size - 1 Else .Size = .Size + 1 End If .Superscript = Not .Superscript End With 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ầnnhậ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ỏ). - Nếu là định dạng Superscript thì giảm giá trị của Font (đang sử dụng) 1 point. Nếu không phải định dạngSuperscript thì tăng giá trị Font (đang sử dụng) thêm 1 point. - Chuyển định dạng Font từ Superscript sang Normal, và ngược lại). 3. Bấm File/Close and Return to Microsoft Word, hoặc chỉ cần đóng cửa sổ VBE để trở về môi trường Word. Do Superscript và Subscript cũng là hai tên macro nội tạo của Word cho hai định dạng này, nên khi bạn tạomacro Superscript theo cách trên, thì macro do bạn tạo ra đã thay thế macro sẵn có của Word. Vì vậy bạn có thể chạymacro vừa tạo thông qua nút lệnh Superscript trên thanh Format như vẫn sử dụng. Nhưng bây giờ, khi bấm nútSuperscript (hoặc dùng phím tắt Ctrl++), cở font Superscript sẽ được tự động tăng lên 1 point (Ví dụ cở font sử dụng là11thì cở font Superscript sẽ tăng lên 12. Bạn thử quan sát trong hộp Font Size khi bấm nút). Khi bấm Superscript lần nữa đểtrở về định dạng Normal, thì macro sẽ điều chỉnh về cở font bình thường. Tuy bạn thay thế macro của Word bằng macro tự tạo, nhưng việc thay thế này sẽ không làm hỏng chương trình.Để Word trở lại bình thường, bạn chỉ cần xoá macro Superscript đã tạo bằng cách: mở lại hộp thoại Macros, chọnSuperscript rồi bấm Delete. II/ Tạo macro điều chỉnh cở font Subscript. Cách làm tương tự trên, với tên macro là Subscript và đoạn mã thay thế là: With Selection.Font If .Subscript Then .Size = .Size - 1 Else .Size = .Size + 1 End If .Subscript = Not .Subscript End With Trong cả hai đoạn mã, ở lệnh gán .Size = Size + 1 dưới từ khoá Else, thì số 1 xác định cở font tăng thêm. Nếumuốn cở font tăng thêm 2 hoặc 3 point… bạn thay 1 bằng 2 hoặc 3 … Nhưng khi đó, ở lệnh: .Size = Size – 1 dưới từkhoá If … Then, bạn cũng phải thay số 1 bằng số tương ứng 2 hoặc 3… III/ Điều chỉnh khoảng nâng cao và hạ thấp của các chỉ số. Bạn có thể thêm vào macro tính năng điều chỉnh khoảng nâng cao hoặc hạ thấp chỉ số. 1. Điều chỉnh khoảng nâng cao của chỉ số trên. Bạn thêm vào macro Superscript dòng lệnh: .Position = 0 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ồibấm Edit. Sau đó chỉnh sửa macro từ cửa sổ Code của VBE. Trường Sơn ...