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

[Decepticon]

Ai sửa hộ cái Macro "VietHoaSauDau2Cham" chỉ set Heading 2 giúp ta với

Attribute VB_Name = "VietHoaSauDau2Cham"

Sub VietHoaSauDau2Cham()
'
' Macro1 Macro
'
'
Application.ScreenUpdating = False
Dim oRng As Range, fRng As Range
With Selection
Set oRng = .Range
With .Find
.ClearFormatting
.MatchWildcards = True
.Wrap = wdFindContinue
.Forward = True
.Text = ": [a-z]"
Do While .Execute = True
Set fRng = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.End)
With fRng
.Text = UCase(.Text)
.Collapse Direction:=wdCollapseEnd
End With
Loop
End With
End With
oRng.Select
Set fRng = Nothing: Set oRng = Nothing
Application.ScreenUpdating = True
End Sub

[Nvlinh11188]

Nguyên văn bởi Decepticon

Ai sửa hộ cái Macro "VietHoaSauDau2Cham" chỉ set Heading 2 giúp ta với

Bạn thử dùng cái này xem sao. 30 char

Sub VietHoaSauHaiChamH2()
Application.ScreenUpdating = False
ActiveWindow.ActivePane.View.Type = wdOutlineView
ActiveWindow.View.ShowHeading 2
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = ":^$"
.Replacement.Text = ""
.Style = ActiveDocument.Styles("Heading 2")
.Format = True
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchPrefix = False
.MatchSuffix = False
.IgnorePunct = False
.IgnoreSpace = True
.Execute
While .Found
Selection.Range.Case = wdUpperCase
.Execute
Wend
End With
ActiveWindow.View.Type = wdPrintView
Selection.HomeKey Unit:=wdStory
ActiveDocument.UndoClear
Application.ScreenUpdating = True
End Sub

[Decepticon]

thanks bác nhiều. hehe thêm luôn vào cái macro Rutgonchuong cho tiện

Đây là các Macro của ta share cho mọi người sài https://drive.google.com/folderview?id=0B3fifHlUXtlgR2ZRVFU1VE5pSVk&usp=sha ring
(có 2 cái FixBasic và FixHD dùng cho file convert gộp của ta ko có tác dụng gì mấy đâu !^ ^)

Have Fun!

[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?

[Big Bang]

Nguyên văn bởi Nvlinh11188

Bạn thử dùng cái này xem sao. 30 char

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ừ:

While .Found
Selection.Range.Case = wdTitleWord

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.