如何用VBA将全文指定字符结尾的段落设置为指定标题样式，设置后清除掉指定字符。

lisongmei

北佳木 发表于 2024-7-30 19:32
For Each p In ThisDocument.Paragraphs这一行修改为For Each p In ActiveDocument.Paragraphs就好了。
...

好嘛。。我是没想到你是去控制其他document。一般都是对当前文档进行处理

1478525

请问发帖的那个已解决怎么改成这样的

北佳木

1478525 发表于 2024-7-31 22:06
请问发帖的那个已解决怎么改成这样的

修改帖子，在标题前面有选项，选择 已解决 就行

蜀中草莽

北佳木 发表于 2024-8-24 13:14
修改帖子，在标题前面有选项，选择 已解决 就行

Sub biaoti()
    Dim doc As Document, i As Long
    ARR = Array("AA", "SS", "DD", "FF")
    BRR = Array(-2, -3, -4, -5)
    Set doc = ActiveDocument
    For i = LBound(ARR) To UBound(ARR)
        With doc.Range.Find
            .Text = ARR(i) & Chr(13)
            .MatchWildcards = True
            Do While .Execute
                With .Parent
                    .Paragraphs(1).Style = BRR(i)
                    .End = .End - 1
                    .Text = ""
                    .Collapse 0
                End With
            Loop
        End With
    Next
End Sub