请求指点 在半角标点符号后加空格

1he0ne

自己不会VBA。在论坛和网络上自学了一下，照猫画虎做了一个宏，试图将半角标点符号后加上空格，代码如下（见笑了）：

Sub 半角标点加空格()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

With Selection.Find
.Text = ","
.Replacement.Text = ", "
.Text = "."
.Replacement.Text = ". "
.Text = ";"
.Replacement.Text = "; "
.Text = ")"
.Replacement.Text = ") "
.Text = ":"
.Replacement.Text = ": "

.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchByte = True
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub


以如上代码运行后，文本中的冒号，句号，均能实现半角标点后加空格，但逗号、分号标点无论如何加不上去，具体症状如下：

“法经济学是20世纪50至60年代兴起于美国,且发展迅速的一门经济学与法学交叉的边缘学科;① 既是当代西方经济学的一个重要学术流派,也代表了20世纪后25年法学理论的重大发展(Posner,1973;史晋川,2003). Mercuro和Medema(1997)认为,法经济学是一门运用经济理论(主要是微观经济学和福利经济学的基本概念)来分析法律形成､法律框架和法律运作以及法律与法律制度所产生的经济影响的学科. 主要的研究目的是“使法律制度原则更清楚地显现出来,而不是改变法律制度”(Posner,1997). ”

特此向论坛各位专家高人请教。

特别感谢！周末愉快！

duquancai

Sub shishi()
    With ActiveDocument.Range(0, 0)
        Do
            If .MoveUntil(",.:;") = 0 Then Exit Do
            .MoveEndWhile ",.:; ": .Collapse 0
            .MoveStartWhile " ", wdBackward
            .Text = " ": .Collapse 0
        Loop
    End With
End Sub

1he0ne

好的，非常感谢duquancai老师的指导！我这就试试看。

duquancai

1he0ne 发表于 2017-5-21 10:02
好的，非常感谢duquancai老师的指导！我这就试试看。

Sub shishi2()
    sr$ = ",.:;" '枚举半角标点符号
    With ActiveDocument.Range(0, 0)
        Do While .MoveUntil(sr) <> 0
            .MoveWhile sr & Chr$(32)
            .MoveStartWhile Chr$(32), wdBackward
            .Text = Chr$(32): .Collapse 0
        Loop
    End With
End Sub

1he0ne

谢谢老师，成功了！非常顺利！再次感谢！
想继续求教，不知下面我的理解对不对：


Sub shishi()
    With ActiveDocument.Range(0, 0)
        Do
           If .MoveUntil(",.:;)") = 0 Then Exit Do ’没看懂 好像是继续向下，直到碰到引号内标点？
            .MoveEndWhile ",.:;)": .Collapse 0 ’当遇到引号内标点时，加入下面的“ ”
            .Text = " ": .Collapse 0 ‘加入空格
        Loop ‘循环
    End With
End Sub



无论如何，目前测试一切顺利，非常感谢啊！

效果如下：
“法经济学是20世纪50至60年代兴起于美国, 且发展迅速的一门经济学与法学交叉的边缘学科; ① 既是当代西方经济学的一个重要学术流派, 也代表了20世纪后25年法学理论的重大发展(Posner, 1973; 史晋川, 2003). Mercuro和Medema(1997) 认为, 法经济学是一门运用经济理论(主要是微观经济学和福利经济学的基本概念) 来分析法律形成&#65380;法律框架和法律运作以及法律与法律制度所产生的经济影响的学科.  主要的研究目的是“使法律制度原则更清楚地显现出来, 而不是改变法律制度”(Posner, 1997).  ”


追问请教： 不知为什么之前的那种方法（.Text  .Replacement）为何无法替换逗号，引号等符号呢？

duquancai

1he0ne 发表于 2017-5-21 10:18
谢谢老师，成功了！非常顺利！再次感谢！
想继续求教，不知下面我的理解对不对：

请用4楼的代码》》》》》》》》》》》》》》》》》》》》》》

1he0ne

duquancai 发表于 2017-5-21 10:27
请用4楼的代码》》》》》》》》》》》》》》》》》》》》》》

好的，谢谢老师。但第二个就完全看不懂了，太高深了……

duquancai

1he0ne 发表于 2017-5-21 10:18
谢谢老师，成功了！非常顺利！再次感谢！
想继续求教，不知下面我的理解对不对：

至于你那段代码，我不想评论，因为看别人的代码有点烦，修改更烦，每个人的思路有所不同，我要看你的代码就得跟着你的思维走！烦人！！！

小花鹿

Sub test()
Dim mydoc As Document
Set mydoc = ThisDocument
With mydoc.Range.Find
    Do While .Execute("[,;:\(\)]", , , 1)
        With .Parent
            .Collapse 0
            .Text = " "
            .Collapse 0
        End With
    Loop
End With
End Sub

1he0ne

试根据楼上老师的代码 自解释如下

Sub shishi2()
    sr$ = ",.:;" '枚举半角标点符号
    With ActiveDocument.Range(0, 0)
        Do While .MoveUntil(sr) <> 0 '碰到sr指定范围内的半角标点符号时执行                        .MoveWhile sr & Chr$(32) '碰到sr指定范围内的半角标点符号时，若有标点后有Chr$(32)即空格时，放过执行
            .MoveStartWhile Chr$(32), wdBackward '若无标点后有Chr$(32)即空格时，执行下面
            .Text = Chr$(32): .Collapse 0 '半角标点后加空格
        Loop '循环
    End With
End Sub

不知道这样理解对不对？Chr$(32)即空格 是百度来的。


万分感谢老师！！！