Trích:
Nguyên văn bởi Nvlinh11188
Bạn thử dùng cái này xem sao. 30 char
Code:
While .Found
Selection.Range.Case = wdUpperCase
|
Nếu không thích tựa chương toàn chữ hoa thì có thể thử kiểu chỉ viết hoa chữ đầu tiên của mỗi từ:
Code:
While .Found
Selection.Range.Case = wdTitleWord
Trích:
Nguyên văn bởi Decepticon
Ai biết tạo dòng chữ ký kiểu "ebook for 4VN.eu" ở cuối các Chương xx00, xx20, xx40, xx60, xx80 phải làm thế nào không?
|
Tại sao lại chỉ ký 1 lần sau 20c ? Hết 1 trang à?
Nếu chương nào cũng vậy thì dễ, xài Replace với wildcards. Nếu viết macro thì đặt
Find.MatchWildcards = True
Find what:
Chương ([0-9]@)
Replace with:
_YOUR_SIGNATURE_GOES_HERE_^pChương \1
Nếu chỉ làm 1 lần sau mỗi 20c thì phiền một chút. Trước tiên các tiêu đề chương đều phải có 1 style thống nhất (ví dụ Heading 1)
Bước 1: chèn một chuỗi đánh dấu vào tiêu đề các chương xx01, xx21, xx41, xx61, xx81
Find what:
([02468])1:
Format: Heading 1
Replace with:
\11_MARKED_LINE_:
Bước 2: Xóa chuỗi đánh dấu, thêm chữ ký
Find what:
Chương ([0-9]@)_MARKED_LINE_:
Format: Heading 1
Replace with:
_YOUR_SIGNATURE_GOES_HERE_^pChương \1:
Bước 3: Áp dụng style thích hợp hoặc xóa style của chữ ký vì nó đang có style Heading 1
Nếu thích sang trang mới thì ở bước 2 đổi
_YOUR_SIGNATURE_GOES_HERE_^pChương \1: thành
_YOUR_SIGNATURE_GOES_HERE_^p^mChương \1:
Mấy bước này đều rõ ràng nên lập trình không có vấn đề. Bạn làm lấy.