[求教OLE达人]VC中调用Word文档进行Save As的问题

[miaomiao521]

我要把Word文档Save As为htm文件，可是格式都没了，怎么回事？
中间需要什么操作么？还是我Save As的函数参数不对？

部分代码如下：

_Application oApp;
Documents oDocs(oApp.GetDocuments());
_Document oDoc;


//Set up the DISPPARAMS for the SaveAs method (11 arguments)
VARIANT vArgsSaveAs[16];

BSTR bstrEmptyString;
bstrEmptyString = ::SysAllocString(OLESTR(""));

VARIANT vFalse, vTrue;
vFalse.vt = VT_BOOL;
vFalse.boolVal = FALSE;

vTrue.vt = VT_BOOL;
vTrue.boolVal = TRUE;

vArgsSaveAs[0].vt = VT_BSTR;
vArgsSaveAs[0].bstrVal = szhtmPath.AllocSysString(); //Filename
vArgsSaveAs[1].vt = VT_I4;
vArgsSaveAs[1].lVal = 4; //FileFormat
vArgsSaveAs[2] = vFalse; //LockComments
vArgsSaveAs[3].vt = VT_BSTR;
vArgsSaveAs[3].bstrVal = bstrEmptyString; //Password
vArgsSaveAs[4].vt = VT_BOOL;
vArgsSaveAs[4].boolVal = FALSE; //AddToRecentFiles
vArgsSaveAs[5].vt = VT_BSTR;
vArgsSaveAs[5].bstrVal = bstrEmptyString; //WritePassword
vArgsSaveAs[6] = vFalse; //ReadOnlyRecommended
vArgsSaveAs[7] = vTrue; //EmbedTrueTypeFonts
vArgsSaveAs[8] = vFalse; //SaveNativePictureFormat
vArgsSaveAs[9] = vFalse; //SaveFormsData
vArgsSaveAs[10] = vFalse; //SaveAsOCELetter
vArgsSaveAs[11] = vFalse; //Encoding
vArgsSaveAs[12] = vFalse; //InsertLineBreaks
vArgsSaveAs[13] = vFalse; //AllowSubstitutions
vArgsSaveAs[14] = vFalse; //LineEnding
vArgsSaveAs[15] = vFalse; //AddBiDiMarks

//Invoke the SaveAs method
oDoc.SaveAs(&vArgsSaveAs[0],
&vArgsSaveAs[1],
&vArgsSaveAs[2],
&vArgsSaveAs[3],
&vArgsSaveAs[4],
&vArgsSaveAs[5],
&vArgsSaveAs[6],
&vArgsSaveAs[7],
&vArgsSaveAs[8],
&vArgsSaveAs[9],
&vArgsSaveAs[10],
&vArgsSaveAs[11],
&vArgsSaveAs[12],
&vArgsSaveAs[13],
&vArgsSaveAs[14],
&vArgsSaveAs[15]
);

::SysFreeString(bstrEmptyString);

[逍遥的心]

帮顶，应该是参数

[fisker0303]

up too~

[rivershan]

不清楚

[蒋晟]

你自己保存成TXT了当然没格式了

// Save as a CommaSeparatedValue (CSV) flat file
adoc.SaveAs(variant("C:\\MrgSrc.txt"), //Filename
variant(4), //wdFormatDOSText = 4
variant(false), //LockComments
variant(""), //Password
variant(false), //Add to recent files
variant(""), //Write password
variant(false), //ReadOnlyRecommended
variant(false), //Embed TrueType fonts
variant(false), //SaveNativePictureFormat
variant(false), //SaveForms data
variant(false)); //SaveAsAOCELetter

[kyh99]

这样就OK了＾＿＾
COleVariant vFalse((short)FALSE);
mydoc.SaveAs (COleVariant("c:\\love.htm"),vFalse,vFalse, COleVariant(""),vFalse,
COleVariant(""),vFalse,vFalse,vFalse,vFalse,vFalse);

[rivershan]

WdSaveFormat

常量 值
wdFormatDocument 0
wdFormatDOSText 4
wdFormatDOSTextLineBreaks 5
wdFormatEncodedText 7
wdFormatFilteredHTML 10
wdFormatHTML 8
wdFormatRTF 6
wdFormatTemplate 1
wdFormatText 2
wdFormatTextLineBreaks 3
wdFormatUnicodeText 7
wdFormatWebArchive 9
wdFormatXML 11