✅作者简介：热爱科研的算法开发者，Python、Matlab项目可交流、沟通、学习。
🍎个人主页：算法工程师的学习日志
年底项目投标，需要整理大量的内容，标书的很多内容是其实是之前的标书重复的，可以把对应的各个部分内容合并，然后再处理格式等。如果采用常规操作每次操作需要打开子目录——>找到word文档——>全选复制——>粘贴到新文档——>调整格式——>核对检查，期间出现错误还得用更多的时间，这太浪费时间了！
采用Python的组间对象模型(COM)设计了一个同时对多个word文件进行合并的程序，代码如下:
import win32com.client as win32
import os
word = win32.gencache.EnsureDispatch('Word.Application')
#启动word对象应用
word.Visible = False
path = r'D:\doc'
files = []
for filename in os.listdir(path):
filename = os.path.join(path,filename)
files.append(filename)
#新建合并后的文档
output = word.Documents.Add()
for file in files:
output.Application.Selection.InsertFile(file)#拼接文档
#获取合并后文档的内容
doc = output.Range(output.Content.Start, output.Content.End)
output.SaveAs(r'D://doc//result.docx') #保存
output.Close()大概等了两三分钟一份110多页、2万多字的报告就自动完成了，
win32com库的一些其他的用法
1、添加多级标题
from win32com.client import constants
doc_app = win32.gencache.EnsureDispatch('Word.Application')#打开word应用程序
doc_app.Visible =1#设置应用程序可见
doc = doc_app.Documents.Add()#创建新得文档
#添加标题1
##添加文字
parag = doc.Paragraphs.Add()#添加新得段落
parag_range = parag.Range
parag_range.Text ='标题1'
###设置样式
parag_range.Style = doc.Styles("Heading 1")#Heading 1 是样式的名称
border = parag.Borders(constants.wdBorderBottom)
border.LineStyle = constants.wdLineStyleSingle
border.LineWidth = constants.wdLineWidth225pt
#添加标题2
parag_range.Text +='\n'
parag = doc.Paragraphs.Add()
parag_range = parag.Range
parag_range.Text ='标题2'
parag_range.Style = doc.Styles("Heading 2")#二级标题
##添加正文
parag_range.Text +='\n'
parag = doc.Paragraphs.Add()
parag_range = parag.Range
parag_range.Text ='正文'
parag_range.Style = doc.Styles("Normal")#正文使用add不会添加新的一个段落，而是指向当前所在的段落。
2、插入目录
import win32com.client as win32
from win32com.client import constants
doc_app = win32.gencache.EnsureDispatch('Word.Application')
doc_app.Visible =1
doc = doc_app.Documents.Add()
#添加标题1
##添加文字
parag = doc.Paragraphs.Add()
parag_range = parag.Range
parag_range.Text ='标题1'
###设置样式
parag_range.Style = doc.Styles("Heading 1")#Heading 1 是样式的名称
border = parag.Borders(constants.wdBorderBottom)
border.LineStyle = constants.wdLineStyleSingle
border.LineWidth = constants.wdLineWidth225pt
#添加标题2
parag_range.InsertParagraphAfter()#在当前位置之后，新插入一行
parag_range = parag.Range
parag_range.Text ='标题2'
parag_range.Style = doc.Styles("Heading 2")#二级标题
##添加正文
parag_range.InsertParagraphAfter()
parag_range = parag.Range
parag_range.Text ='正文'
parag_range.Style = doc.Styles("Normal")#正文
##插入目录
##parag_range = doc.Paragraphs(1)##找到第一行
doc.Paragraphs(1).Range.InsertParagraphBefore()#在首行之前插入一行，用于插入目录
parag_range = doc.Paragraphs(1).Range#指向新插入的行
#插入目录
##从当前指向的位置插入目录，使用默认样式设置目录样式，包含3级标题
doc.TablesOfContents.Add(Range=parag_range, UseHeadingStyles=True,LowerHeadingLevel=3)收录于合集 #python
个
上一篇Python编程特殊小技巧汇集（一）下一篇粒子群优化算法-Python版本和Matlab函数调用
