如何选择特定字符开始的段落？

fysf

用替换的方式设定标题，如图，如何选择以“正文”开始的段落呢？将其替换为样式。但是有的正文里面也有“正文”两个字

约定的童话

能上个文件吗？这样不好模拟

fysf

约定的童话 发表于 2018-11-27 16:11
能上个文件吗？这样不好模拟

好的。 盗墓笔记.rar (1.36 MB, 下载次数: 4)

2018-11-27 16:18 上传

点击文件名下载附件

fysf

我的做法是查找“正文”，替换为标题1样式，但凡是与正文的段落都变成标题1样式了。网上查找一番没找到合适的方法

wdpfox

宏就不写了，看图说话：
第1步：



第2步：

fysf

非常感谢指导，但是我操作了一下，还是不对，看截图：


我在2016下，操作后，正文被替换了，正文所在前一段落变成标题样式了。不知怎么回事

gbgbxgb

试下如下代码：

1. Sub theSpecialParagraphFormatSet()
   
2.     Dim theParagraph As Paragraph, theStr$
   
3.     Dim reg As Object
   
4.     '
   
5.     Set reg = CreateObject("VBScript.RegExp")
   
6.     With reg
   
7.         .Pattern = "^[ 　]*正文"
   
8.         For Each theParagraph In ActiveDocument.Paragraphs
   
9.             theStr = theParagraph.Range
   
10.             If .test(theStr) Then
    
11.                 theParagraph.Style = ActiveDocument.Styles("标题 1")
    
12.             End If
    
13.         Next theParagraph
    
14.     End With
    
15. The_Exit:
    
16.     Set reg = Nothing
    
17. End Sub

复制代码

wdpfox

fysf 发表于 2018-11-28 15:37
非常感谢指导，但是我操作了一下，还是不对，看截图：

第一步，是删除“正文  ”，我截图时没注意，鼠标点击\1替换栏处，取消标题1，即不限定格式，手机回复，大致这个意思。就不会出现你说的问题了。

相见是缘8

gbgbxgb 发表于 2018-11-28 18:23
试下如下代码：

老师好！如换成控制段落结尾的字符，这个要怎样修改？谢谢！有其他老师知道的，也请赐教！谢谢！