[client_ideas]

; 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