word win32com 通过python添加附件 小附件 vba转换

import win32com.client as win32
from win32com.client import constants
# import originpro as op
import time

# src_opju = op.path('e')+ r'SamplesMap Data.opju'
# op.open(file = src_opju, readonly = True)

word = win32.gencache.EnsureDispatch('Word.Application')
word_doc = word.Documents.Add()

# gp = op.find_graph('Graph9')
# gp.activate()
# 4 refers to OLE Object
# https://www.originlab.com/doc/COM/Classes/Application/CopyPage
# op.po.CopyPage(gp.name,4)

tic = time.perf_counter()
word_doc.ActiveWindow.Selection.InlineShapes.AddOLEObject(
        ClassType='Word.Document.12',
        FileName="E:工作相关客户需求.doc",
LinkToFile=True,
    DisplayAsIcon=True,
        IconFileName= r"C:WindowsInstaller{90160000-0011-0000-1000-0000000FF1CE}wordicon.exe",
         IconIndex =13,
        IconLabel="1.docx"
        )
toc = time.perf_counter()
print(f"Adding embedded object took {toc - tic:0.4f} seconds")

word_doc.SaveAs2(r"D:KKCap1.docx")

效果图

VBA参考

Sub エ栋6()
'
' エ栋6 エ栋
'
'
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.12", _
        FileName:="C:UsersH7113492Documentsㄏノ" & ChrW(35828) & " for" & _
        ChrW(32418) & ".docx", LinkToFile:=True, DisplayAsIcon:=True, _
        IconFileName:= _
        "C:WindowsInstaller{90160000-0011-0000-1000-0000000FF1CE}wordicon.exe" _
        , IconIndex:=13, IconLabel:="ㄏノ" & ChrW(35828) & " for" & ChrW(32418) & _
         ".docx"
End Sub

参考代码

shape = self.wordDoc.InlineShapes.AddOLEObject(
        ClassType='Excel.Chart',
        FileName=filename
        )
    # set height and width in points
    shape.Height = height
    shape.Width = width

import win32com.client as win32
from win32com.client import constants
import originpro as op
import time

src_opju = op.path('e')+ r'SamplesMap Data.opju'
op.open(file = src_opju, readonly = True)

word = win32.gencache.EnsureDispatch('Word.Application')
word_doc = word.Documents.Add()

gp = op.find_graph('Graph9')
gp.activate()
# 4 refers to OLE Object
# https://www.originlab.com/doc/COM/Classes/Application/CopyPage
op.po.CopyPage(gp.name,4)

tic = time.perf_counter()
word_doc.ActiveWindow.Selection.PasteSpecial(DataType=constants.wdPasteOLEObject)
toc = time.perf_counter()
print(f"Adding embedded object took {toc - tic:0.4f} seconds")

word_doc.SaveAs2("C:\test\test.docx")
op.exit()

参考
https://my.originlab.com/forum/topic.asp?TOPIC_ID=47379

http://www.icodeguru.com/webserver/Python-Programming-on-Win32/ch10.htm