Hướng dẫn toàn tập làm Ebook

[Nvlinh11188]

Nguyên văn bởi DrBlack

ai có marco sửa các chữ cái đầu mỗi từ trong Heading thành chữ hoa ko share cho mình với :(

Bạn có thể làm như sau, theo mình thì những việc đòi hỏi nhiều thao tác mới phải code macro, còn những việc như trên nên dùng tay @@

[DrBlack]

tks bạn, n bạn hiểu nhầm ỳ mình r

mình muốn viết hoa Chữ Đầu Tiên Của Mỗi Từ mà

dùng Open Office có thể chỉnh được như thế này, n khi mở lại = word file hay bị lỗi protect view, chọn edit anyway thì ko hiện thị được hết nội dung của file :(

[Nvlinh11188]

Nguyên văn bởi DrBlack

tks bạn, n bạn hiểu nhầm ỳ mình r

mình muốn viết hoa Chữ Đầu Tiên Của Mỗi Từ mà

dùng Open Office có thể chỉnh được như thế này, n khi mở lại = word file hay bị lỗi protect view, chọn edit anyway thì ko hiện thị được hết nội dung của file :(

Viết hoa chữ cái đầu tiên của mỗi từ thì mình nghĩ bạn có thể bấm Aa trên Tab Home, chọn Capitalize Each Word thay vì chọn Sentence Case như trong video.

[DrBlack]

như bạn nói, mình có thể dùng phím tắt Shift F3 mà :D

vấn đề là thủ công quá :-s

[Nvlinh11188]

Nguyên văn bởi DrBlack

như bạn nói, mình có thể dùng phím tắt Shift F3 mà :D

vấn đề là thủ công quá :-s

Mấy hôm trước mình bận, hôm nay mới có thời gian để thử code cái macro theo yêu cầu của bạn. Hy vọng sẽ dùng đc, mình mới chạy thử cho 1 file nhỏ.

Sub VietHoaChuCaiDau()
Application.ScreenUpdating = False
ActiveWindow.View.Type = wdOutlineView
ActiveWindow.View.ShowHeading 9
Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Range.Case = wdTitleWord
n = Selection.End
Selection.MoveRight Unit:=wdCharacter, Count:=2
Do Until Selection.End = n + 1
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Range.Case = wdTitleWord
n = Selection.End
Selection.MoveRight Unit:=wdCharacter, Count:=2
Loop
Selection.EndKey Unit:=wdStory
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Range.Case = wdTitleWord
ActiveWindow.View.Type = wdPrintView
Selection.HomeKey Unit:=wdStory
Application.ScreenUpdating = True
ActiveDocument.UndoClear
End Sub