word 使用什么代码VBA可以让提示窗口不显示，自动选否就可以

hbdzlp033 · 发表于 2020-12-26 19:10

由于经常复制粘贴网页的内容，会带进来不同的空格，自己录制了宏（见下面的代码），可每执行一次都会弹出窗口，询问是否查找全部文件（文件较大查找全部特别慢）。有没有代码可以不出这个提示，在执行完后再打开提示，就象EXCEL里的
Application.DisplayAlerts = False
Application.DisplayAlerts = True

word里如何使用没有查到，希望大神帮忙，谢谢

Sub 清除双空格()
'
' 清除双空格宏
' 双空格，包括全角双空格，半角双空格，全角加半角空格
'

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
      .Text = " "
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindAsk
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
      .Text = "　　"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindAsk
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
      .Text = "　  "
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindAsk
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

hbdzlp033 · 发表于 2020-12-26 19:12

忘记说了，弹出来

选择否

413191246se · 发表于 2020-12-26 22:18

楼主，你的代码不要用了，用我的吧！——可以选定文字，也可以不选。

Sub 删除所有空格()
Dim r As Range
With Selection
If .Type = wdSelectionIP Then .WholeStory
Set r = .Range
With r.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute "^w", , , 0, , , , , , "", 2
.Execute "　", , , 0, , , , , , "", 2
End With
End With
End Sub

复制代码

hbdzlp033 · 发表于 2020-12-27 10:54

413191246se 发表于 2020-12-26 22:18
楼主，你的代码不要用了，用我的吧！——可以选定文字，也可以不选。

非常感谢，我好好学习一下

晨晓之黎 · 发表于 2020-12-27 20:55

413191246se 发表于 2020-12-26 22:18
楼主，你的代码不要用了，用我的吧！——可以选定文字，也可以不选。

测试结果：

413191246se老师，英文之间能不能加一个空格，多余空格替换为一个空格

413191246se · 发表于 2020-12-28 02:02

* Demo-Text:

　                　
　                　Eliminate       Internal Negative Chatter　                　
　                　The first 　step is one of awareness. It  will  be  hard to make a change to    　　  positive thinking without being acutely intimate with the thoughts that run through your mind. Recently, I was amazed to discover deep buried emotions from negative thoughts that I had for fewer than 10 minutes. Without awareness, I would have carried　the hurt and anger inside. Awareness helped me to bring them out to the open for me to deal with. 　                　

　                　

Sub delSpaceEnglish()
With ActiveDocument
With .Content.Find
.Execute "[^13^l]", , , 1, , , , , , "^p", 2
.Execute "[ 　^s^t]{1,}", , , 1, , , , , , " ", 2
End With
.Select
CommandBars.FindControl(ID:=122).Execute
CommandBars.FindControl(ID:=123).Execute
Dim i As Paragraph
For Each i In .Paragraphs
If Len(i.Range) = 1 Then i.Range.Delete
Next
End With
Selection.HomeKey 6
End Sub

复制代码

wdpfox · 发表于 2020-12-28 08:54

本帖最后由 wdpfox 于 2020-12-29 06:37 编辑

把.Wrap = wdFindAsk改为：.Wrap = wdFindContinue，把Selection.Find.Execute Replace:=wdReplaceAll改为：Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop

We meet by chance like patches of drifting duckweed,
May everything be fine with you everyday !
（你我萍水相逢，愿君一切安好！）

晨晓之黎 · 发表于 2020-12-28 18:48

413191246se 发表于 2020-12-28 02:02
* Demo-Text:

　　

多谢！

		自动登录	找回密码
密码			免费注册