Mình là fan của Huỳnh Dị tiên sinh. Mình biết Huỳnh Dị tiên sinh có viết bộ Phá Toái Hư Không, thể loại kiếm hiệp giống như BHTT và DDSL, xin hỏi có bác nào có bản convert không? Nếu muốn nhờ vả các bác làm dùm bản convert thì vào đâu để nhờ?
Xin cám ơn.
Hix mọi người đều đọc truyện của Khô lâu tinh linh rồi đúng ko?:D
Mình thấy lão lại viết 1 bộ về khoa huyễn tên là Võ trang phong bạo
ko bít ai có bản convert ko nhỉ cho mình xin với
Link tiếng Trung : http://www.qidian.com/book/1562523.aspx
; Macro 1: Đổi tên riêng sang hàng loạt (hay dùng với địa danh):
ví dụ: chọn bôi đen từ: Kim đan rồi chạy macro (có thể gán phím tắt cho lẹ), thì toàn bộ các từ: kim đan, kim Đan, Kim Đan trong file sẽ được đổi thành Kim đan
; Macro 2: Đổi tên riêng sang chữ Hoa hàng loạt (thường dùng với tên nhân vật)
ví dụ: chọn bôi đen từ: kim đan rồi chạy macro (có thể gán phím tắt cho lẹ), thì toàn bộ các từ: kim đan, kim Đan, Kim Đan trong file sẽ được đổi thành Kim Đan
----------------------------------------
Bước 1: Các bác vào menu: Tool->Macro->Visual Basic Editer và copy 2 macro sau chèn vô phần text cửa sổ bên phải
Bước 2: Trong cửa sổ Visual Basic Editer vào menu: Tool->References rồi nhấn dấu chọn: Microsoft form 2 Object Library.
-----------------------------------
; Macro 1: Đổi tên riêng hàng loạt
Sub CaseName()
'
' CaseName Macro
' Macro recorded 19/05/2010 by user
'
Selection.Range.Case = wdNextCase
Selection.Copy
Dim sFindText As String
Dim sReplaceText As String
Dim oClip As DataObject
Set oClip = New DataObject
oClip.GetFromClipboard
sFindText = oClip.GetText
sReplaceText = oClip.GetText
With Selection
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = sFindText
.Replacement.Text = sReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
End With
End Sub
; Macro 2: :Đổi tên riêng sang viết Hoa hàng loạt.
Sub CaseNAME2()
'
' CaseNAME2 Macro
' Macro recorded 19/05/2010 by user
'
Selection.Range.Case = wdTitleWord
Selection.Copy
Dim sFindText As String
Dim sReplaceText As String
Dim oClip As DataObject
Set oClip = New DataObject
oClip.GetFromClipboard
sFindText = oClip.GetText
sReplaceText = oClip.GetText
With Selection
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = sFindText
.Replacement.Text = sReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With
End With
End Sub
