再次求助：如何去掉多余的（）

kenkhy

在写论文的过程中，我使用了endnote作为参考文献的整理工具，可以时时更新，但是，在插入后形成下面的样子：如下所示

（Xie, et al. (2003)；Klein (2002)；Peasnell Peasnell, et al. (2005)）

其中外面的括号时中文的，里面的括号是英文的

我希望可以变成：

（Xie, et al., 2003; Klein, 2002; Peasnell Peasnell, et al., 2005）

在判断存在“外面的括号时中文的，里面的括号是英文的”的情况下，作如下操作：

外面的括号不变，里面的左括号变成英文逗号，删掉原左括号前的空格，在原左括号后添加空格；右括号删掉。

也就是将原来的" (",变为", "（不含""）

请问有什么好的办法吗？

不胜感激。

[此贴子已经被作者于2006-6-27 23:45:19编辑过]

konggs

试试这个：

Sub aa速度()
Dim arange As Range
Dim brange As Range
Set arange = ActiveDocument.Range(0, 0)
arange.Select
With Selection.Find
    .ClearFormatting
    .Text = "（*）"
    .MatchWildcards = True
    .Execute
    Set brange = Selection.Range
    brange = Replace(brange, " (", ", ")
    brange = Replace(brange, ")", "")
End With
End Sub

kenkhy

非常感谢konggs斑竹的及时解答，

但是这段代码我运行的时候只会对文章中遇见的第一个

（Xie, et al. (2003)；Klein (2002)；Peasnell Peasnell, et al. (2005)）

进行替换，如何使他对全文搜索替换呢，就是 如果存在

（Xie, et al. (2003)；Klein (2002)；Peasnell Peasnell, et al. (2005)），（Jensen and Meckling (1976)）……

都可以被替换成

（Xie, et al., 2003; Klein, 2002; Peasnell Peasnell, et al., 2005），（Jensen and Meckling, 1976）……

是不是应该加入有关循环的控制呢？

谢谢斑竹。

另外，从头开始学习word vba斑竹有什么好建议吗，以前没有什么语言基础，今天搞了一晚上试图加一个循环，没有什么进展，有些沮丧。

[此贴子已经被作者于2006-6-27 23:44:30编辑过]

konggs

包歉是我的错。我没有经过测试。

再重写如下，请参考:

Sub aa速度()
Dim arange As Range
Dim brange As Range
Application.ScreenUpdating = False

Set arange = ActiveDocument.Range(0, 0)
arange.Select
With Selection.Find
    .ClearFormatting
    .Text = "（*）"
    .MatchWildcards = True
    Do While .Execute
        Set brange = Selection.Range
        brange = Replace(brange, " (", ", ")
        brange.Select
        brange = Replace(brange, ")", "")
        brange.SetRange brange.End, ActiveDocument.Range.End
        brange.Select
    Loop
End With
Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2006-6-28 9:51:10编辑过]

kenkhy

麻烦斑竹了，不过还是有些问题，在整个论文文档运行时会出现花屏现象，无法运行，我截取了其中的一部分运行也有问题，我不太懂，附上文档的一部分，麻烦斑竹再帮忙看一下。

谢谢

uIyNZG5i.rar (7.79 KB, 下载次数: 10)

2006-6-28 19:14 上传

点击文件名下载附件
再次求助：如何去掉多余的（）

konggs

先按CTRL+A，再按CTRL+SHIFT+F9,再运行。

Sub 试试这个()
Selection.HomeKey unit:=wdStory
With Selection.Find
    Do
        .ClearFormatting
        .MatchWildcards = True
        .Text = "（*）"
        .Replacement.Text = ""
        .Execute
        .Execute findtext:=" \((*)\)", replacewith:=", \1", Replace:=wdReplaceAll
       
    Loop Until .Found = False
End With
End Sub

[此贴子已经被作者于2006-6-29 9:29:16编辑过]

kenkhy

谢谢斑竹，这个可以。

[此贴子已经被作者于2006-6-29 15:38:48编辑过]