word查找指定缩进的段落

drea0mer

想用查找替换功能，找到全篇文档中，分别格式为缩进1.57厘米， 缩进2.34厘米 的行

想问下如何在查找替换中，设置我点击了格式，选择了段落，然后在里面写了缩进为1.57厘米，


点击查找，但是没有查找结果

我想问下是不是因为这里查找条件 过于详细了，其实我只想让系统帮我查找到缩进是1.57厘米的，后面什么"段落前段落后自动“我都不想让系统限制了查找范围。

drea0mer

【想要实现的问题是】想用查找替换功能，找到全篇文档中，分别格式为缩进1.57厘米， 缩进2.34厘米 的行  想问下如何在查找替换中，设置我点击了格式，选择了段落，然后在里面写了缩进为1.57厘米，

wdpfox

在查找内容中输入“*”，试试

413191246se

1. Sub Loop_All_Para()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If Round(i.Range.ParagraphFormat.LeftIndent / 28.36, 2) = 1.57 Then i.Range.Font.ColorIndex = wdRed
   
5.     Next
   
6. End Sub
   

复制代码

drea0mer

413191246se 发表于 2020-7-27 09:24

感谢，对我有帮助哎，想问下要找 缩进 长度为其他的段落，修改下代码里的1.57的地方就可以吗？
如果我想把找到的 指定缩进的段落，改为 一级标题，二级标题……的格式，如何实现呢？

413191246se

是的，修改“1.57”就行了！
Sub Loop_All_Para_style()
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Round(i.Range.ParagraphFormat.LeftIndent / 28.36, 2) = 1.57 Then i.Range.Style = wdStyleHeading2
    Next
End Sub