用python批量合并word文件并统一调整图片大小

复制代码
import os,time
from docx import Document
from docxcompose.composer import Composer
import win32com.client as win32
# 获取要处理的文件夹路径
folder_path = r"C:\Users\Thinkpad\Desktop\wordoutput"
datanames = os.listdir(folder_path)
list_wordoutname = []
for i in datanames:
    # 获取文件名称中日期
    list_wordoutname.append(folder_path+"\\"+i)

print(list_wordoutname)
#以下函数用于合并指定文件夹中所有word文件
# 创建新的空白Word文档
merged_doc = Document()
def HB_wordwj(files, final_docx):
    new_document = Document()
    composer = Composer(new_document)
    for fn in files:
        composer.append(Document(fn))
    composer.save(final_docx)

# 保存合并后的文档
desktop_path = os.path.expanduser("~\Desktop") #获取当前桌面路径
merged_file_name = desktop_path+"\\"+"合并输出文件.docx"
print(merged_file_name)
HB_wordwj(list_wordoutname,merged_file_name)
print("已将文件夹中的所有Word文件合并为", merged_file_name)
#------以下程序用于执行word中宏程序,用于调整合并插入的图片大小---------------------
# 创建 Word 应用程序对象
word = win32.gencache.EnsureDispatch('Word.Application')
# 打开文件
doc = word.Documents.Open(merged_file_name)
try:
    # 运行宏
    doc.Application.Run("setpicsize")
finally:
    # 关闭文件并退出 Word 应用程序
    doc.Close()
    word.Quit()

注:setpicsize宏文件先要放如word中的视图-宏中,宏文件代码如下

Sub setpicsize()

Dim n

On Error Resume Next

For n = 1 To ActiveDocument.InlineShapes.Count

ActiveDocument.InlineShapes(n).Height = 27.31 * 20

ActiveDocument.InlineShapes(n).Width = 19.33 * 20

Next n

End Sub

相关推荐
江公望21 小时前
Qt QML实现无边框窗口
开发语言·qt
秦禹辰21 小时前
宝塔面板安装MySQL数据库并通过内网穿透工具实现公网远程访问
开发语言·后端·golang
黄焖鸡能干四碗21 小时前
智慧教育,智慧校园,智慧安防学校建设解决方案(PPT+WORD)
java·大数据·开发语言·数据库·人工智能
one9961 天前
WPF应用程序中的异常处理
c#·.net·wpf
一只乔哇噻1 天前
java后端工程师进修ing(研一版 || day41)
java·开发语言·学习·算法
钮钴禄·爱因斯晨1 天前
深入剖析LLM:从原理到应用与挑战
开发语言·人工智能
六点半8881 天前
【C++】C++11 篇二
开发语言·c++
DDDDDDDRDDR1 天前
C++容器:list
开发语言·c++·stl
Elnaij1 天前
从C++开始的编程生活(7)——取地址运算符重载、类型转换、static成员和友元
开发语言·c++
almighty271 天前
C# ObjectListView实现树状文件夹浏览
c#·树状图·objectlistview·c#树状图·文件显示