python word中插入excel文件以图标显示（win32com调用vba代码）

参考文章:(5条消息) python extension(pywin32) 插入宏到word_hit_liuanhuaming的专栏-CSDN博客

功能需求:在C:\Users\user\Desktop\20210408-1\xxx.docx中插入xxx.xlsx文件以图标显示，如下图:

1.准备:

1）python模块安装:

pip install pypiwin32

2）word启用宏功能:

文件-选项

信任中心-信任中心设置

勾选信任对VBA工程对象模型的访问

python代码:

目标:将C:\Users\user\Desktop\tianqing-auto\vba.bas(vba）代码自动嵌入xxx.doc文档中，并执行vba代码

import win32com.client
import pythoncom
import time

def embed_excel_file(filePath,embeddedFilePath,embeddedFileName):

    pythoncom.CoInitialize() # 声明 doc 之前要加入的代码
    #创建word应用程序实例

    docApp = win32com.client.Dispatch('Word.Application')
    # run in back-control and no warnings
    doc=docApp.Documents.Open(filePath)
    docApp.Visible = 1    #值为0操作文档不可见，为1可见
    docApp.DisplayAlerts = 0 #不显示警告信息

    #导入宏代码
    #通过文档实例，获取VBProject的组件，其中VBComponents中的参数至关重要，因为ThisDocument表示该文档，也就是说所有这篇生成文档的操作在该组件中都可以捕获#到，那么就可以在里面创建Document_Open函数来监控文档被打开

    docCode = doc.VBProject.VBComponents("ThisDocument").CodeModule
    macro = ""

    #vba.bas为宏文件，需要导入到ThisDocument，ThisDocument即对应word下，按Alt+F11,调出vba窗口，该文档下的Microsoft Word对象下的ThisDocument。
    string=open("C:\\Users\\user\\Desktop\\tianqing-auto\\vba.bas")
    macro=string.read()
    docCode.AddFromString(macro)
    print("embeddedFileName:",embeddedFileName)
    docApp.Application.Run("delandinsDocFile1",embeddedFilePath,embeddedFileName)
    #运行vba.bas中的delandinsDocFile1方法，embeddedFilePath和embeddedFileName为传递的参数

    doc.Save()
    doc.Save()
    time.sleep(3)
    doc.Close()
    docApp.Quit()
    pythoncom.CoUninitialize() # 关闭 doc 之后加入的代码

filePath=r'C:\Users\user\Desktop\20210408-1\xxx.docx'
dest_dir1=r'C:\Users\user\Desktop\20210408-1\\'
embeddedFileName='xxx.xlsx'
embeddedFilePath=dest_dir1 + embeddedFileName
embed_excel_file(filePath,embeddedFilePath,embeddedFileName)

注: Python代码中的docApp.Application.Run("delandinsDocFile1",embeddedFilePath,embeddedFileName)代表运行vba.bas中的delandinsDocFile1方法，而embeddedFilePath和embeddedFileName为传递的两个参数，相当于调用vba.bas的Sub delandinsDocFile1(embeddedFilePath as String,embeddedFileName as String)方法

vba.bas宏代码如下(可以通过word中录制宏功能生成大概的vba代码，然后按自己需求修改（比如我这里函数中使用了embeddedFilePath和embeddedFileName两个参数供python代码调用），word录制宏功能稍后在文章尾部提供

Sub delandinsDocFile1(embeddedFilePath as String,embeddedFileName as String)
'
' delandinsDocFile1 宏
'
'
    Selection.EndKey Unit:=wdStory        
    Selection.MoveUp Unit:=wdLine, Count:=6
    Selection.TypeBackspace
'定位插入位置
'
    Selection.Delete Unit:=wdCharacter, Count:=1
'删除之前插入的文件，下面插入excel文件
'
    Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName _
        :=embeddedFilePath _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Windows\Installer\{90140000-0011-0000-0000-0000000FF1CE}\xlicons.exe" _
        , IconIndex:=1, IconLabel:=embeddedFileName
    ActiveDocument.Save
End Sub