win32com：word操作之 通过文字查找段落并修改段落内容

 

 练习：

# 遍历可以查找出所有包含关键字的段落
# 去掉遍历只查找到第一个包含关键字的段落

fullrange = doc.Range()
for i in range(4):
    fullrange.Find.Execute('测试')
    prange= fullrange.Paragraphs(1)
    print(prange)

# 找到段落后修改段落内容

while fullrange.Find.Execute('测试'):
    p = fullrange.Paragraphs(1)
    p.Range.Font.Name = '楷体'
    p.Alignment = 1
    p.CharacterUnitFirstLineIndent = -2
    p.LineUnitAfter = 3
    p.LineUnitBefore = 5
    p.LineSpacingRule = 2
    p.OutlineLevel =1