Sub 图片替换文字()
'
Dim 原始字符串 As String
' 注意：查找和替换框里，不能有 无法查找的特殊字符，比如^c。否则，会:运行时错误5625
'
'加一条命令 清空查找内容
With Selection.Find
.ClearFormatting
.Text = "" ' 清空查找内容
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'ctrl+home
Selection.HomeKey Unit:=wdStory
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = "的" ' 查找目标
.Replacement.Text = "^c" ' ^c代表剪贴板内容
.Forward = True ' 向前查找
.Wrap = wdFindStop ' 不循环查找
.Format = False ' 不匹配格式
.Execute Replace:=wdReplaceAll ' 执行全部替换
End With
Selection.Find.Execute Replace:=wdReplaceAll
原始字符串 = "的一是了我不人在他有这个上们来到时大地为子中你说生国年着就那和要她出也得里后自以会家可下而过天去能对小多然于心学么之都好看起发当没成只如事把还用第样道想作种开美总从无情己面最女但现前些所同日手又行意动方期它头经长儿回位分爱老因很给名法间斯知世什两次使身者被高已亲其进此话常与活正感见明问力理尔点文几定本公特做外孩相西果走将月十实向声车全信重三机工物气每并别真打太新比才便夫再书部水像眼等体却加电主界门利更拉东神记处让母父应直字场平报友关放至张认接告入笑内英军候民岁往何度山觉路带万男边风解叫任金快原吃妈变通师立象数四失满战远格士音轻目条呢病始达深完今提求清王化空业思切怎非找片罗钱紶吗语元喜曾离飞科言干流欢约各即指合反题必该论交终林请医晚制球决窢传画保读运及则房早院量苦火布品近坐产答星精视五连司巴"
For i = 1 To Len(原始字符串)
查找的字符串 = Mid(原始字符串, i, 1)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = 查找的字符串 ' 查找目标
.Replacement.Text = "^c" ' ^c代表剪贴板内容
.Forward = True ' 向前查找
.Wrap = wdFindStop ' 不循环查找
.Format = False ' 不匹配格式
.Execute Replace:=wdReplaceAll ' 执行全部替换
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
'
Dim 原始字符串 As String
' 注意：查找和替换框里，不能有 无法查找的特殊字符，比如^c。否则，会:运行时错误5625
'
'加一条命令 清空查找内容
With Selection.Find
.ClearFormatting
.Text = "" ' 清空查找内容
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'ctrl+home
Selection.HomeKey Unit:=wdStory
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = "的" ' 查找目标
.Replacement.Text = "^c" ' ^c代表剪贴板内容
.Forward = True ' 向前查找
.Wrap = wdFindStop ' 不循环查找
.Format = False ' 不匹配格式
.Execute Replace:=wdReplaceAll ' 执行全部替换
End With
Selection.Find.Execute Replace:=wdReplaceAll
原始字符串 = "的一是了我不人在他有这个上们来到时大地为子中你说生国年着就那和要她出也得里后自以会家可下而过天去能对小多然于心学么之都好看起发当没成只如事把还用第样道想作种开美总从无情己面最女但现前些所同日手又行意动方期它头经长儿回位分爱老因很给名法间斯知世什两次使身者被高已亲其进此话常与活正感见明问力理尔点文几定本公特做外孩相西果走将月十实向声车全信重三机工物气每并别真打太新比才便夫再书部水像眼等体却加电主界门利更拉东神记处让母父应直字场平报友关放至张认接告入笑内英军候民岁往何度山觉路带万男边风解叫任金快原吃妈变通师立象数四失满战远格士音轻目条呢病始达深完今提求清王化空业思切怎非找片罗钱紶吗语元喜曾离飞科言干流欢约各即指合反题必该论交终林请医晚制球决窢传画保读运及则房早院量苦火布品近坐产答星精视五连司巴"
For i = 1 To Len(原始字符串)
查找的字符串 = Mid(原始字符串, i, 1)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With ActiveDocument.Content.Find
.Text = 查找的字符串 ' 查找目标
.Replacement.Text = "^c" ' ^c代表剪贴板内容
.Forward = True ' 向前查找
.Wrap = wdFindStop ' 不循环查找
.Format = False ' 不匹配格式
.Execute Replace:=wdReplaceAll ' 执行全部替换
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
