我的宏

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

‘ ^p是回车 ^t是tab键
Set myRange = ActiveDocument.Content

myRange.Find.Execute FindText:="？", ReplaceWith:="？^p", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=wdReplaceAll

myRange.Find.Execute FindText:="。", ReplaceWith:="。^p", Replace:=wdReplaceAll
myRange.Find.Execute FindText:="^p^p", 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
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.MoveLeft Unit:=wdCharacter, Count:=2
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.MoveLeft Unit:=wdCharacter, Count:=1

End Sub

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

‘
Selection.InsertBefore Text:="”"
Selection.MoveLeft Unit:=wdCharacter, Count:=1

End Sub

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

‘
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