[求助]如何删除包含组合条件段落的段落标记？

cat2123

在我的问题里，我需要删除特定段落的段落换行符号（这些段落必须是字符数少于150个且段落里包含“Bibliographic Information-”），而且我处理的文件比较大，手动进行替换是不可能的，只能用VBA。恳请高手赐教！！！

样本例子在附件里。

我的QQ是38117260。

T8SZiZlR.rar (5.37 KB, 下载次数: 11)

2006-9-24 17:54 上传

点击文件名下载附件
[求助]如何删除包含组合条件段落的段落标记？

[此贴子已经被作者于2006-9-24 17:58:10编辑过]

守柔

先试一下这个：

Sub Rep()
    Dim myString As String, myArray() As String, aArray As Variant
    With ActiveDocument
        myString = .Content.Text
        myArray = VBA.Split(myString, Chr(13))
        For Each aArray In myArray
            If Len(aArray) <= 150 And InStr(aArray, "Bibliographic Information-") > 0 Then
                aArray = ""
            End If
        Next
        Me.Content.Text = VBA.Join(myArray, vbCrLf)
    End With
End Sub

cat2123

我调试了一下，错误说：

无效使用me关键字，怎么解决呀

cat2123

我将这句替换为：ActiveDocument.Content.Text = VBA.Join(myArray, vbCrLf)，程序调试无误，但是并没有将满足条件的段落标记删除。

守柔

QUOTE:

以下是引用cat2123在2006-9-24 18:57:04的发言：
我将这句替换为：ActiveDocument.Content.Text = VBA.Join(myArray, vbCrLf)，程序调试无误，但是并没有将满足条件的段落标记删除。

我理解错了。

再试一下这个：

Option Explicit
Sub Rep()
    Dim myString As String, myArray() As String, aArray As Variant
    Dim myText As String
    With ActiveDocument
        myString = .Content.Text
        myArray = VBA.Split(myString, Chr(13))
        For Each aArray In myArray
            If Len(aArray) <= 150 And InStr(aArray, "Bibliographic Information-") > 0 Then
            Else
            myText = myText & aArray & Chr(13)
            End If
        Next
        .Content.Text = myText
    End With
End Sub

cat2123

斑竹，你好，你的代码我调试了，您的代码运行后，将我那段给删除了。我的意思是删除那段末尾的段落标记，使得这段和下一段落能合并成一个段落。

cat2123

能不能和你在QQ上聊呢？

cat2123

非常感谢斑竹，问题已经解决了。最后的代码如下：

Public Sub cat2006()

    Dim myString As String, myArray() As String, aArray As Variant
    Dim myText As String
    With ActiveDocument
        myString = .Content.Text
        myArray = VBA.Split(myString, Chr(13))
        For Each aArray In myArray
            If Len(aArray) <= 150 And InStr(aArray, "Bibliographic Information-") > 0 Then
            myText = myText & aArray
            Else
            myText = myText & aArray & Chr(13)
            End If
        Next
        .Content.Text = myText
    End With

End Sub

cat2123

最后还有一个问题，能不能在工具栏上做个按钮或图标，直接调用这个宏呀，不然每次都要从工具栏->宏里找，那样太麻烦了，这个要怎么作呀？