我的宏

Sub Macro12()
'ctrl+0
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'   ^p是回车    ^t是tab键
    Set myRange = ActiveDocument.Content
  
  myRange.Find.Execute FindText:="^t", ReplaceWith:="", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:=" ", ReplaceWith:="", Replace:=wdReplaceAll
  
  myRange.Find.Execute FindText:="。", ReplaceWith:="。^p", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=wdReplaceAll
  
  myRange.Find.Execute FindText:="^p”", ReplaceWith:="”", Replace:=wdReplaceAll
  'myRange.Find.Execute FindText:="。", ReplaceWith:="。^p", Replace:=wdReplaceAll
  
End Sub

Sub Macro11()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29“：
'

'
    Set myRange = ActiveDocument.Content
    
  myRange.Find.Execute FindText:="莫要", ReplaceWith:="魔药", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="抹药", ReplaceWith:="魔药", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="膜要", ReplaceWith:="魔药", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="科林", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="科林", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="柯林", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="科琳", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="读了", ReplaceWith:="杜勒", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="堵了", ReplaceWith:="杜勒", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="笔下", ReplaceWith:="陛下", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="前行", ReplaceWith:="潜行", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="光换", ReplaceWith:="光环", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="杜乐", ReplaceWith:="杜勒", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="干道夫", ReplaceWith:="甘道夫", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="说到", ReplaceWith:="说道", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="咯汗", ReplaceWith:="卡汉", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="卡汗", ReplaceWith:="卡汉", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="客人", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="陈", ReplaceWith:="臣", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="可怜", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="笔试", ReplaceWith:="比试", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="卡号", ReplaceWith:="卡汉", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="收到", ReplaceWith:="说道", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="新到", ReplaceWith:="心道", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="爱丽莎", ReplaceWith:="艾丽莎", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="罪恶之之", ReplaceWith:="罪恶之枝", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="文档", ReplaceWith:="问道", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="旋风", ReplaceWith:="玄风", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="凯恩", ReplaceWith:="卡恩", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="舞者", ReplaceWith:="武者", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="可林", ReplaceWith:="克林", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="零对", ReplaceWith:="零队", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="王工", ReplaceWith:="王宫", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="感到服务", ReplaceWith:="甘道夫", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="灵队", ReplaceWith:="零队", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="令队", ReplaceWith:="零队", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="干到服务", ReplaceWith:="甘道夫", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="感恩道服务", ReplaceWith:="甘道夫", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="问的", ReplaceWith:="问道", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="见识", ReplaceWith:="箭矢", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="工件", ReplaceWith:="弓箭", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="树皮公", ReplaceWith:="树皮弓", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="树皮工", ReplaceWith:="树皮弓", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="树皮攻", ReplaceWith:="树皮弓", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="那介质中", ReplaceWith:="纳戒之中", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="固原王国", ReplaceWith:="古元王国", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="古猿王国", ReplaceWith:="古元王国", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="那届", ReplaceWith:="纳戒", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="西路", ReplaceWith:="西陆", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="回复", ReplaceWith:="恢复", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="贾元王国", ReplaceWith:="古元王国", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="中路", ReplaceWith:="中陆", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="磨药", ReplaceWith:="魔药", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="么厉害", ReplaceWith:="魔力海", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="破甲剑", ReplaceWith:="破甲箭", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="护廷", ReplaceWith:="护庭", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="魔法杆之力", ReplaceWith:="魔法感知力", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="护廷13队", ReplaceWith:="护庭十三队", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="路易14", ReplaceWith:="路易十四", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="中甲", ReplaceWith:="重甲", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="护庭13队", ReplaceWith:="护庭十三队", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="长工", ReplaceWith:="长弓", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="丁", ReplaceWith:="叮", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="领队", ReplaceWith:="零队", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="工会", ReplaceWith:="公会", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="南路", ReplaceWith:="南陆", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="北路", ReplaceWith:="北陆", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="东路", ReplaceWith:="东陆", Replace:=wdReplaceAll
  
  myRange.Find.Execute FindText:="柯林", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="科琳", ReplaceWith:="克林", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="读了", ReplaceWith:="杜勒", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="堵了", ReplaceWith:="杜勒", Replace:=wdReplaceAll
  
  
  '符号处理
  myRange.Find.Execute FindText:="：，", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="：。", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="，：", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="。：", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="？：", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="：？", ReplaceWith:="：“", Replace:=wdReplaceAll
  'myRange.Find.Execute FindText:="，“", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="“，", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="”。", ReplaceWith:="”", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="”，", ReplaceWith:="”", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="，”", ReplaceWith:="。”", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="“：", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="。。", ReplaceWith:="。”", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="，，", ReplaceWith:="：“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="““", ReplaceWith:="“", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="””", ReplaceWith:="”", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="。，", ReplaceWith:="，", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="，。", ReplaceWith:="，", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="。“", ReplaceWith:="：“", Replace:=wdReplaceAll
  '去掉段首的符号
  myRange.Find.Execute FindText:="^p，", ReplaceWith:="^p", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="^p。", ReplaceWith:="^p", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="^p？", ReplaceWith:="^p", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="^p！", ReplaceWith:="^p", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="^p”", ReplaceWith:="^p", Replace:=wdReplaceAll
  myRange.Find.Execute FindText:="，^p", ReplaceWith:="。^p", Replace:=wdReplaceAll
End Sub

Sub Macro1()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.MoveUp Unit:=wdParagraph

Selection.InsertBefore Text:="“"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Sub Macro2()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.MoveDown Unit:=wdParagraph

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.InsertAfter Text:="”"
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub


Sub Macro3()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.MoveDown Unit:=wdParagraph

Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1

End Sub

Sub Macro4()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.MoveDown Unit:=wdParagraph
    Selection.TypeBackspace
    Selection.TypeBackspace
    'Selection.Delete Unit:=wdCharacter, Count:=1
    'Selection.TypeBackspace
    Selection.InsertAfter Text:="，"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

End Sub

Sub Macro5()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.InsertBefore Text:="，"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

End Sub

Sub Macro6()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.InsertBefore Text:="”"
    Selection.MoveRight Unit:=wdCharacter, Count:=1

End Sub

Sub Macro7()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.MoveUp Unit:=wdParagraph
    'Selection.InsertBefore Text:="”"
    'Selection.MoveRight Unit:=wdCharacter, Count:=1

End Sub


Sub Macro8()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.MoveDown Unit:=wdParagraph
    'Selection.InsertBefore Text:="！"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

End Sub

Sub Macro9()
'
' Macro1 Macro
' 宏由 56373 录制，时间: 2019/06/29
'

'
    Selection.InsertBefore Text:="？"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

End Sub