使用“宏”删除WORD中的重复字

 时间：2024-10-14 05:04:10

有如下文档，要求删除里面的重复字符。

使用“宏”删除WORD中的重复字

二、建立宏。主要代码如下

Dim str As String

Dim bstr As String

Dim cf As String

Dim i As Long

Selection.WholeStory

str = Selection.Text

For i = 1 To Len(str)

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = Mid(str, i, 1)

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchByte = True

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute

If Selection.Find.Found = True Then

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Text = Mid(str, i, 1)

cf = cf & Mid(str, i, 1)

End If

Next i

MsgBox cf

使用“宏”删除WORD中的重复字

三、运行宏

使用“宏”删除WORD中的重复字

四、结果如下

使用“宏”删除WORD中的重复字

  • PPT2010如何将图片裁剪成形状？
  • word2019怎么设置字体和字号
  • 如何终结word2010 文档每次打开都显示标记
  • Word中重复的内容如何创建文档部件
  • 如何使用word的英文同义词库？
    • 热门搜索
    emba是什么 mb什么意思 吃香蕉有什么好处 什么人不能吃枸杞 我还是从前那个少年是什么歌 裸色是什么颜色 我总在每一个黑夜想你是什么歌 潍坊有什么好玩的地方 maybe是什么意思 top10是什么意思