from win32com import client # *** wps用kwps.Application;Microsoft word用Word.Application *** doc_app = client.Dispatch("kwps.Application") doc_app.Visible = False doc = doc_app.Documents.Open(r'C:\Users\meiya\PycharmProjects\copyExcelToWord_V2\CFIT-SDP0302_XX项目产品规格说明书模板(1).docx') fullrange = doc.Range() fullrange.Find.Execute('功能清单') fullrange.Find.Execute('功能清单') p= fullrange.Paragraphs(1) print(p) pnext = p.Next() print(pnext) # 遍历可以查找出所有包含关键字的段落 # 去掉遍历只查找到第一个包含关键字的段落 fullrange = doc.Range() for i in range(4): fullrange.Find.Execute('测试') p= fullrange.Paragraphs(1) print(p) # 找到目标段落后,设置段落内容的样式 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 # 返回文档的所有样式并输出 styles = doc.Styles for i in styles: print(i) doc.Save() doc.Close() doc_app.Quit()