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

[Andγ★]

Hiện giờ mình không thấy mục lưu trữ ở cuối web 4vn nữa. Ai chỉ giúp mình bước này. cám ơn

[ansu16]

Nguyên văn bởi Andγ★

Hiện giờ mình không thấy mục lưu trữ ở cuối web 4vn nữa. Ai chỉ giúp mình bước này. cám ơn

Cái này ad khóa đó bạn, muốn làm ebook thì bạn chịu khó sang 4r khác để lấy text vậy

[Decepticon]

Lão Nvlinh11188 hay BigBang làm giúp ta cái Macro xóa mọi ký tự sau dấu 2 chấm (heding 2) với !
Vd: Chương 2: abcxxx ====> Chương 2

Nhiều lúc mấy cha TG đặt tựa đề chương làm lộ hết cả nội dung rất chi là ghét. chương trước thằng nvc kim đan kỳ đang đánh nhau với 1 thằng độ kiếp kỳ chương sau tựa đề: "Cái chết của 1 đô kiếp kỳ" thử hỏi có vl ko cơ chứ. Gặp truyện mấy tên này tốt nhất là xóa hết tựa đề cho nó lành

[Nvlinh11188]

Nguyên văn bởi Decepticon

Lão Nvlinh11188 hay BigBang làm giúp ta cái Macro xóa mọi ký tự sau dấu 2 chấm (heding 2) với !
Vd: Chương 2: abcxxx ====> Chương 2

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

Sub Noname()
With Selection.Find
.Style = ActiveDocument.Styles("Heading 2")
.Replacement.Style = ActiveDocument.Styles("Heading 2")
.Format = True
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchPrefix = False
.MatchSuffix = False
.IgnorePunct = False
.IgnoreSpace = False
.Text = "([c,C][h,H][" & ChrW(432) & "," & ChrW(431) & "][" & ChrW(417) & "," & ChrW(416) & "][n,N][g,G] [0-9]{1,}):*^13"
.Replacement.Text = "\1^p"
.Execute Replace:=wdReplaceAll
End With
End Sub

[thannam89]

có macro cho dấu nhiều dấu chấm trở về thành dấu "..."
ví dụ: "......" thành "..."