如何删除这种空格？

zzpsx

如何删除空格.rar (4.09 KB, 下载次数: 20)

2018-10-23 08:36 上传

点击文件名下载附件

约定的童话

Sub 删除空格()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
用上面的代码试一下，好用记得评分！

wdpfox

是不间断空格，可用：
sub 删除不间断空格()

    With ActiveDocument.Content.Find
        
        
        .Execute "([^s]{@})", , , 1, , , , , , " ", 2
        
        
    End With
   
    end sub
完成

201228

现在word都流行VBA替换了吗？

相见是缘8

wdpfox 发表于 2018-10-23 09:29
是不间断空格，可用：
sub 删除不间断空格()

朋友、这个代码我运行时，怎么提示运行错误。

Sub 删除不间断空格()
    With ActiveDocument.Content.Find
        .Execute "([^s]{@})", , , 1, , , , , , " ", 2
    End With
End Sub

413191246se

1. Sub test()
   
2.     ActiveDocument.Content.Find.Execute "^s", , , 0, , , , , , " ", 2 '<不间断空格>全部替换为<半角空格>
   
3.     ActiveDocument.Select '全选
   
4.     CommandBars.FindControl(ID:=122).Execute '删除段落首尾空格（居中）
   
5.     CommandBars.FindControl(ID:=123).Execute '删除段落首尾空格（两端对齐）
   
6. End Sub

复制代码