删除段落首尾空格没有效果

weiyingde

duquancai 发表于 2017-4-20 22:51
对于缩进，并非本题研究的范围。只是删除段首和段尾的空白区域。

忍不了要多问两句：
为什么下面的代码在别的文档上屡试不爽：能够删去段落首位和汉字之间的空格，而在此处却不行了呢？
这到底是怎么回事呢？
愿闻其详，听杜老师讲解一二……

Sub 删除段落首位空格没有效果()
SendKeys "^(ael)"
SendKeys "{Enter}"
With ActiveDocument
  With .Content.Find
        .Execute "([!^13]@)^32{1,}(^13)", , , 1, , , , , , "\1\2", 2 '删去段尾的空格。
     .Execute "(^32{1,})([!^13]@)(^13)", , , 1, , , , , , "\2\3", 2 '删去段首的空格
     .Execute "([一-隝])(^32{1,})([一-隝])", , , 1, , , , , , "\1\3", 2 '删除汉字之间的空格
     ’.Execute "([!一-隝^1-^127])([^32]{1,})(*）", , , 1, , , , , , "\1\3", 2
       .Execute "([!一-隝^1-^127])([^32]{1,})([!^32]@)", , , 1, , , , , , "\1\3", 2
       .Execute "([!^32]@)([^32]{1,})([!一-隝^1-^127])", , , 1, , , , , , "\1\3", 2
  End With
  For i = 1 To .Paragraphs(.Paragraphs.Count)
      .Paragraphs(i).Format.CharacterUnitLeftIndent = 2
  Next
End With
End Sub

weiyingde

经过观察发现：中间的空格，既不是全角空格，也不是半角空格。
全、半角空格的宽度分别相当于一个或半个汉字的宽度；而文档中的空格，要不就是三个汉字的宽度，要不就是半角的一半。
这到底是什么空格呢？
又是怎么输入上去的呢？
字符代码是什么呢？
又能用什么方法去删除呢？
……
茫然不得其解？？？？

weiyingde

duquancai 发表于 2017-4-20 22:42
中间本来就不要删除，只是删除 段首和段尾的

又把你的原文档对比了一下，发现首尾的空格和中间的空格一样，猜想：
想必\xa0\s\u3000就是他们的正则代码吧。
是不是？
如果是，那么另两种空格的名称是什么？是怎么输入的呢？

13907933959

weiyingde 发表于 2017-4-20 22:34
是的，没有效果，我的代码是：
Sub 删除段落首位空格没有效果()
SendKeys "^(ael)"

对4楼、杜前辈“附件”上的空格、空白区域，我用的是简单粗暴的方法，好像也可以删除。

Sub 删除空格＿空白区域()
    ActiveDocument.Content.Find.Execute findtext:="　", replacewith:="", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute findtext:="^w", replacewith:="", Replace:=wdReplaceAll
End Sub

duquancai

不要回避主题，最有意义的是   删除每一段（如果有的话）段首和段尾的空白区域，除了段首和段尾的其它段落中的空白区域千万不要删除了！千万别 答非所问！！！

weiyingde

13907933959 发表于 2017-4-21 14:56
对4楼杜前辈“附件”上的空格、空白区域，我用的是简单粗暴的方法，可以删除。

Sub 删除空格＿空白区 ...

确实有效，很好。

weiyingde

13907933959 发表于 2017-4-21 14:56
对4楼杜前辈“附件”上的空格、空白区域，我用的是简单粗暴的方法，可以删除。

Sub 删除空格＿空白区 ...

其实只有一句就行：
ActiveDocument.Content.Find.Execute "^w", , , , , , , , , "", 2
但有个问题，不能变通。

weiyingde

duquancai 发表于 2017-4-21 17:12
不要回避主题，最有意义的是   删除每一段（如果有的话）段首和段尾的空白区域，除了段首和段尾的其它段落 ...

杜老师，尽管不是这个帖子的主题，但还是想向你请教：
有没有通吃段落空格所有空格（只保留英文单词之间半角空格）的简单而完美的解决方案的代码？

duquancai

weiyingde 发表于 2017-4-21 20:33
杜老师，尽管不是这个帖子的主题，但还是想向你请教：
有没有通吃段落空格所有空格（只保留英文单词之间 ...

有。。。。。。。。。

leikaiyi123

有的所谓空格或是按Tab键生成的