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

北佳木

如：对“AA”结尾的文字，设置为标题1。对“SS”结尾的文字，设置为标题2。对“DD”结尾的文字，设置为标题3。对“FF”结尾的文字，设置为标题4。之后清除掉AA、SS、DD、FF
问题：下面代码只能替换一部分，其他不能替换，也没法清除掉制定字符。
求助：如何用VBA将全文指定字符结尾的段落设置为指定标题样式，设置后清除掉指定字符。

见2楼 lisongmei 坛友给的答案。

lisongmei

。。。。。。

北佳木

lisongmei 发表于 2024-7-30 12:42
。。。。。。

你好，用您的代码，没有任何反应。

lisongmei

北佳木 发表于 2024-7-30 14:26
你好，用您的代码，没有任何反应。

有反应啊，我都测过的。。又重新测了一遍

lisongmei

北佳木 发表于 2024-7-30 14:26
你好，用您的代码，没有任何反应。

你是不是把代码放到最上面的normal里面去了。是放到当前文档新建一个模块下 执行哟。

1478525

用这个可以，但是这个还需要用通配符，再次查找一下再设置样式

北佳木

lisongmei 发表于 2024-7-30 14:38
你是不是把代码放到最上面的normal里面去了。是放到当前文档新建一个模块下 执行哟。

我直接创建运行和保存好bas文件，导入再运行，都不行
copy您的代码，应该没错。

Sub demo()
Dim p As Paragraph
Dim sr As String
For Each p In ThisDocument.Paragraphs
    sr = Right(Replace(p.Range.Text, Chr(13), ""), 2)
    Select Case sr
      Case "AA"
       p.Range.Style = wdStyleHeading1
      Case "SS"
       p.Range.Style = wdStyleHeading2
      Case "DD"
       p.Range.Style = wdStyleHeading3
      Case "FF"
       p.Range.Style = wdStyleHeading4
   End Select
Next
End Sub

lisongmei

北佳木 发表于 2024-7-30 17:03
我直接创建运行和保存好bas文件，导入再运行，都不行

那你等等其他人吧。我这边运行一切安好，至于你那边为啥不行，我不晓得咯

北佳木

1478525 发表于 2024-7-30 15:32
用这个可以，但是这个还需要用通配符，再次查找一下再设置样式

谢谢，想用VBA实现这个功能

北佳木

lisongmei 发表于 2024-7-30 14:38
你是不是把代码放到最上面的normal里面去了。是放到当前文档新建一个模块下 执行哟。

For Each p In ThisDocument.Paragraphs这一行修改为For Each p In ActiveDocument.Paragraphs就好了。
ThisDocument限定了，ActiveDocument只要是活动的文档窗口就能用。您的代码可以运行，谢谢。