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

weiyingde

求句word替换法代码：删除段落首位空格
我这样写，没有效果：
ActiveDocument.Content.Find.Execute "([!^13]@)^32{1,}(^13)", , , 1, , , , , , "\1\3", 2 '删去段尾的空格。
ActiveDocument.Content.Find.Execute "^32{1,}([!^13]@)(^13)", , , 1, , , , , , "\2\3", 2 '删去段首的空格。

weiyingde

自我解决了
Sub 删除段落首位空格没有效果()
ActiveDocument.Content.Find.Execute "([!^13]@)^32{1,}(^13)", , , 1, , , , , , "\1\2", 2 '删去段尾的空格。
ActiveDocument.Content.Find.Execute "(^32{1,})([!^13]@)(^13)", , , 1, , , , , , "\2\3", 2 '删去段首的空格
End Sub

duquancai

Sub shishi()
    Dim reg As Object, doc As Document
    Set doc = ActiveDocument
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.MultiLine = True
    reg.Pattern = "^[\xa0\s\u3000]+|[\xa0\s\u3000]+$"
    doc.Content = reg.Replace(doc.Content, "")
End Sub

duquancai

weiyingde 发表于 2017-4-20 20:00
自我解决了
Sub 删除段落首位空格没有效果()
ActiveDocument.Content.Find.Execute "([!^13]@)^32{1,}(^1 ...

用你的代码试试这个文档》》》》》

weiyingde

duquancai 发表于 2017-4-20 20:52
用你的代码试试这个文档》》》》》

是的，没有效果，我的代码是：
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 "([!一-隝^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
改了一下，却只能删除段前段后的空格，而中间的空格却安然无恙。
这到底是什么回事，愿听杜老师讲解。
如果继续用查找替换法，该怎样写代码？
期待指点，谢谢！！

duquancai

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

Sub del_段首段尾空白()
    Dim p As Range, doc As Document
    Set doc = ActiveDocument
    doc.Content.Find.Execute "^11", , , 1, , , , , , "^p", 2
    Set p = doc.Paragraphs(1).Range
    With p
        .Collapse: .MoveEnd , 1
        If .Find.Execute("^w") Then
            doc.Paragraphs(1).Range.Find.Execute "^w", , , , , , , 0, , "", 1
        End If
    End With
    doc.Content.Find.Execute "^p^w", , , , , , , , , "^p", 2
    doc.Content.Find.Execute "^w^p", , , , , , , , , "^p", 2
End Sub

weiyingde

duquancai 发表于 2017-4-20 22:37
Sub del_段首段尾空白()
    Dim p As Range, doc As Document
    Set doc = ActiveDocument

中间的空格还是不能删去，能完善一下吗？

duquancai

weiyingde 发表于 2017-4-20 22:40
中间的空格还是不能删去，能完善一下吗？

中间本来就不要删除，只是删除 段首和段尾的

weiyingde

而且，
For i = 1 To .Paragraphs(.Paragraphs.Count)
      .Paragraphs(i).Format.CharacterUnitLeftIndent = 2
  Next
也不能起作用。

duquancai

weiyingde 发表于 2017-4-20 22:42
而且，
For i = 1 To .Paragraphs(.Paragraphs.Count)
      .Paragraphs(i).Format.CharacterUnitLeftIn ...

对于缩进，并非本题研究的范围。只是删除段首和段尾的空白区域。