word VBA使用InsertFile插入word文件(其中图引用于外部excel对象)后弹出“链接的文件不可用”

[一路潇洒~]

主要语句：docObject.ActiveWindow.Selection.InsertFile(wordPath);office 2010与office2016报错信息如下。同时尝试被插入word中的excele对象断开，也一样出现该问题。

该程序功能对应于word界面：“插入--对象--文件中的文字 ”。
在word中操作，一切正常。
无法实现的程序：
shapsCount:= r.InlineShapes.Count; //代表图片、OLE 对象以及作为 INCLUDEPICTURE 或 EMBED 域结果的 ActiveX 控件
r.InlineShapes(i).LinkFormat.AutoUpdate:= false;
r.InlineShapes(i).LinkFormat.BreakLink();

[一路潇洒~]

Sub demo() ' ' demo 宏 ' MsgBox "fields:" & ActiveDocument.Fields.Count MsgBox "InlineShapes:" & ActiveDocument.InlineShapes.Count Application.ScreenUpdating = False For i = 1 To ActiveDocument.InlineShapes.Count '=====8 'MsgBox wdInlineShapeLinkedPictureHorizontalLine MsgBox "InlineShapes(" & i & ").LinkFormat.Type:" & ActiveDocument.InlineShapes(i).LinkFormat.Type '==8 MsgBox ActiveDocument.InlineShapes(i).LinkFormat.Type 带有横线的链接图片 'ActiveDocument.InlineShapes(i).LinkFormat.BreakLink 'ActiveDocument.InlineShapes(i).ConvertToShape 'ActiveDocument.InlineShapes(i).LinkFormat.SavePictureWithDocument = True 'msoLinkedOLEObject----10 '---8 'MsgBox ActiveDocument.InlineShapes(i).LinkFormat.Type MsgBox "excel SourceName:" & ActiveDocument.InlineShapes(i).LinkFormat.SourceName Documents(ActiveDocument.InlineShapes(i).LinkFormat.SourceName).Fields(1).Unlink 'MsgBox ActiveDocument.InlineShapes(i).LinkFormat.AutoUpdate = False ActiveDocument.InlineShapes(i).LinkFormat.BreakLink 'ActiveDocument.InlineShapes(i).LinkFormat.Update Next i ActiveDocument.Save End Sub

[一路潇洒~]

人都去哪儿呢？

[赵4老师]

请检查每个函数调用的返回值。

[一路潇洒~]

最终解决方法，word VBA程序如下： Sub convertExcelLinkToPicture() ' ' demo 宏 'OLEFormat '或者Chart对象 '或者直接CopyAsPicture ' ' ActiveDocument.Content.Select ' With Selection ' .CopyAsPicture ' .Collapse Direction:=wdCollapseEnd ' .PasteSpecial DataType:=wdPasteMetafilePicture ' End With MsgBox "fields:" & ActiveDocument.Fields.Count MsgBox "InlineShapes:" & ActiveDocument.InlineShapes.Count Application.ScreenUpdating = False Application.DisplayAlerts = wdAlertsNone For i = 1 To ActiveDocument.InlineShapes.Count 'MsgBox ActiveDocument.InlineShapes(i).OLEFormat.ClassType ' ConvertTo _ ' ClassType:="Word.Picture" 'OK ActiveDocument.InlineShapes(i).Select Selection.Cut Selection.PasteSpecial link:=False, _ DataType:=14 Next i ActiveDocument.Save End Sub

[一路潇洒~]

TSL语言解决方法： getOleObject('word.application',3,wApp); if not ifObj(wApp) then begin writetolog('log','','【Error】无法使用getOleObject获取word组件！'); return false; end; if not FileExists('',wordPath) then return false; docObj := wApp.documents.Open(wordPath); if not ifObj(docObj) then return false; //Word 仍允许此过程用状态栏提示、输入框、对话框或信息框等工具来显示和检索信息 wApp.ScreenUpdating:= False; wApp.DisplayAlerts := wdAlertsNone(); shapeCount:= docObj.InlineShapes.Count; if shapeCount>0 then begin for i:= 1 to shapeCount do begin if docObj.InlineShapes(i).Type<>12 then continue; docObj.InlineShapes(i).Select(); docObj.ActiveWindow.Selection.Cut(); docObj.ActiveWindow.Selection.PasteSpecial(0,false,wdInLine(),false,14,"",""); end; end; docObj.Application.Templates("Normal.dotm").Saved := true; docObj.close(wdSaveChanges()); return 1;