各种空格的输入和查找方法

kingtau

因为遇到过需要查找连续空格的问题，在代码里怎么表示犯了难。
通过专门对空格的研究，空格的输入、选择和在VBA中的表示方法总结了一些经验。
常见的空格种类：

在VBA中的空格，每一行代码都有所区别，有需要的可以逐条运行看效果：
实际运用时按需选择

1. Sub 空格输入和选择试验()
   
2. Set docNew = Documents.Add
   
3. ActiveWindow.Panes(1).View.ShowAll = True
   
4.     With docNew.Content
   
5.         .InsertAfter " " & "粘贴到代码窗口的半角空格" & vbCr
   
6.         .InsertAfter "　" & "粘贴到代码窗口的全角空格" & vbCr
   
7.         .InsertAfter Space(1) & "Space函数得到的半角空格" & vbCr
   
8.         .InsertAfter Chr(32) & "ASCII码得到的半角空格" & vbCr
   
9.         .InsertAfter ChrW(160) & "Unicode码得到的半角空格" & vbCr
   
10.         .InsertAfter ChrW(12288) & "Unicode码得到的全角空格" & vbCr
    
11.         .InsertAfter "   " & "粘贴到代码窗口的3个连续半角空格" & vbCr
    
12.         .InsertAfter "　　　" & "粘贴到代码窗口的3个连续全角空格" & vbCr
    
13.         .InsertAfter Space(3) & "Space函数得到的3个连续半角空格" & vbCr
    
14.         .InsertAfter String(4, 32) & "ASCII码得到的4个连续半角空格" & vbCr
    
15.         .InsertAfter String(5, ChrW(160)) & "Unicode码得到的5个连续半角空格" & vbCr
    
16.         .InsertAfter String(6, ChrW(12288)) & "Unicode码得到的6个连续全角空格" & vbCr
    
17.         Stop
    
18.         .Font.Name = "宋体" '注意观察字体改变后，句号型半角空格的变化
    
19.     End With
    
20.     With Selection.Find
    
21.         .Execute Space(5) '查找5个连续的无论以什么方式获得的半角空格
    
22.         .Parent.HomeKey wdStory
    
23.         .Execute String(6, ChrW(12288)) '查找6个连续的全角空格
    
24.     End With
    
25. End Sub

复制代码

tangqingfu

谢谢楼主分享

cuanju

可使用如下代码尝试删除不间断空格和全角空格。

==============================
sub 删除不间断空格和全角空格()
       ActiveDocument.Content.Find.Execute FindText:=ChrW(160), ReplaceWith:="", Replace:=wdReplaceAll '删除不间断空格
       ActiveDocument.Content.Find.Execute FindText:="　", ReplaceWith:="", Replace:=wdReplaceAll, MatchWildcards:=True '删除全角空格
End Sub

小声说话666

cuanju 发表于 2019-11-25 15:02
可使用如下代码尝试删除不间断空格和全角空格。

==============================

删除不间断空间原来如此简单。

由于刚注册级别低不能发站内短信。 还有一个问题借此贴一并请教了：
由于经常识别一些文字，需要断行重排。如果直接 直接删除行尾的^p，会把一些短标题都连成一段。 我的思路如下：
1   选择一句最长的句子，取字数，比这个数少3个字的段落标记不删。
3  以“ 。 ； ！ "结尾的段落标记不删。
4  其余的段落标记和硬回车删掉完成断句相连。
期待您的代码。

nikichannel

小声说话666 发表于 2020-4-11 01:11
删除不间断空间原来如此简单。

由于刚注册级别低不能发站内短信。 还有一个问题借此贴一并请教了：

If Selection.Characters.Last.Text = Chr(13) Then
Selection.Characters.Last.Font.Underline = wdUnderlineNone
Selection.MoveEnd 1, -1
End If
s = Selection.Text

小声说话666

nikichannel 发表于 2020-5-11 08:52
If Selection.Characters.Last.Text = Chr(13) Then
Selection.Characters.Last.Font.Underline = wdUnd ...

实话实说,小白一个.   你的代码真没看懂,  这段代码我试了一下没啥反应, 能否标注一下每句的意思.

一直在论坛里抄作业, 以我的理解组合了一个代码,  可否移驾审阅一下

http://club.excelhome.net/thread-1532715-1-2.html

在WORD 如果圈选一句话, 会直接显示在查找替换框里.
我的思路是根据圈选的句子返回一个数值 当一个变量  对应我代码里的 25 这个字数