如何在從HTML轉換爲RTF時強制Word嵌入圖像？

我正在使用Word的自動化功能將具有圖像的HTML文件轉換爲RTF文件。如何在從HTML轉換爲RTF時強制Word嵌入圖像？

問題是Word不會將圖像嵌入到RTF文件中，而是使用INCLUDEPICTURE來從外部引用圖像。這種連鎖效應是Windows Rich Edit控件忽略此關鍵字並且不呈現圖像。

LPDISPATCH lpd = docs.Open(COleVariant(sHtmlFilename), // FileName 
        varFalse,       // ConfirmConversions 
        varFalse,       // ReadOnly 
        varFalse,       // AddToRecentFiles 
        varNull,       // PasswordDocument 
        varNull,       // PasswordTemplate 
        varTrue,       // Revert 
        varNull,       // WritePasswordDocument 
        varNull,       // WritePasswordTemplate 
        COleVariant(wdOpenFormatWebPages), // Format 
        COleVariant(msoEncodingAutoDetect), // Encoding 
        varFalse,       // Visible 
        varFalse,       // OpenAndRepair 
        varZero,       // DocumentDirection 
        varTrue,       // NoEncodingDialog 
        varNull);       // XMLTransform 


if (lpd == NULL) 
    return FALSE; 

_Document doc(lpd); 

doc.SaveAs(COleVariant(sRtfFilename),    // FileName 
       COleVariant(wdSaveFormatRTF),  // FileFormat 
       varFalse,       // LockComments 
       varNull,       // Password 
       varFalse,       // AddToRecentFiles 
       varNull,       // WritePassword 
       varFalse,       // ReadOnlyRecommended 
       varFalse,       // EmbedTrueTypeFonts 
       varFalse,       // SaveNativePictureFormat 
       varFalse,       // SaveFormsData 
       varFalse,       // SaveAsAOCELetter 
       COleVariant(msoEncodingAutoDetect), // Encoding 
       varFalse,       // InsertLineBreaks 
       varFalse,       // AllowSubstitutions 
       varOne,        // LineEnding 
       varFalse);       // AddBiDiMarks

我的問題是：自動化模型中是否有其他功能會強制Word將圖像嵌入到RTF中？

注意：我目前正在嘗試通過後處理RTF手動嵌入圖像，但這是一種不雅且可能很脆弱的解決方案。

來源

2014-08-28 user1793036

我最近遇到同樣的問題，並設法解決它的方式：

procedure TMWnd.UnlinkImages(ADoc: Variant); 
var 
    fCnt, sCnt, iCnt, i : Cardinal; 
    field, shape, ishape : Variant; 
begin 
    fCnt := ADoc.Fields.Count; 
    for i:=1 to fCnt do begin 
     field := ADoc.Fields.Item(i); 
     if VarIsClear(field)or VarIsClear(field.LinkFormat) then 
      Continue; 
     if field.Type <> wdFieldIncludePicture then 
      Continue; 
     field.LinkFormat.SavePictureWithDocument := True; 
     field.LinkFormat.BreakLink; 
    end; 


    sCnt := ADoc.Shapes.Count; 
    for i:=1 to sCnt do begin 
     shape := ADoc.Shapes.Item(i); 
     if VarIsNull(shape)or VarIsClear(shape.LinkFormat) then 
      continue; 
     shape.LinkFormat.SavePictureWithDocument := True; 
     shape.LinkFormat.BreakLink; 
    end; 

    iCnt := ADoc.InlineShapes.Count; 
    for i:=1 to iCnt do begin 
     ishape := ADoc.InlineShapes.Item(i); 
     if VarIsClear(ishape)or VarIsClear(ishape.LinkFormat) then 
      Continue; 
     ishape.LinkFormat.SavePictureWithDocument := True; 
     ishape.LinkFormat.BreakLink; 
    end; 
end;

這是德爾福代碼，但它可以很容易地適用於任何語言，因爲它是簡單的OLE自動化方法調用。

來源

2014-12-12 09:19:40 Ari0nhh

真棒。謝謝。我一直在Google上搜索幾個小時。 – 2015-05-13 23:42:54

我需要將它翻譯成VBscript。也許這對別人有用。

const wdFormatRTF=6 
Set Word = CreateObject("Word.Application") 
Word.Documents.Open("fullpathtomyfile.htm") 
set ADoc=Word.ActiveDocument 

fCnt = ADoc.Fields.Count 
for Each field In ADoc.Fields 
    field.LinkFormat.SavePictureWithDocument = True 
    field.LinkFormat.BreakLink 
next 


For Each shape In ADoc.Shapes 
    shape.LinkFormat.SavePictureWithDocument = True 
    shape.LinkFormat.BreakLink 
next 

For Each iShape In ADoc.InlineShapes 
    ishape.LinkFormat.SavePictureWithDocument = True 
    ishape.LinkFormat.BreakLink 
Next 

Word.ActiveDocument.SaveAs2 "fullpathtomyfile.rtf", wdFormatRTF 
Word.Documents.Close 
Word.Quit

最好的問候，米哈爾

來源

2017-04-21 13:06:31

如何在從HTML轉換爲RTF時強制Word嵌入圖像？

回答

相關問題