我需要提供将RTF / WORD文件转换为PDF并将其作为附件发送到电子邮件中的功能,为此我尝试了如下所示的代码:
// Create a new Microsoft Word application object
Microsoft.Office.Interop.Word.Application word = new Microsoft.Office.Interop.Word.Application();
// C# doesn't have optional arguments so we'll need a dummy value
object oMissing = System.Reflection.Missing.Value;
Document doc;
protected void Page_Load(object sender, EventArgs e)
{
ConvertToPDF("test.doc");
}
void ConvertToPDF(string sFileName)
{
// Create a new Microsoft Word application object
Microsoft.Office.Interop.Word.Application word = new Microsoft.Office.Interop.Word.Application();
// C# doesn't have optional arguments so we'll need a dummy value
object oMissing = System.Reflection.Missing.Value;
Document doc;
try
{
word.Visible = false;
word.ScreenUpdating = false;
DirectoryInfo dirInfo = new DirectoryInfo(Server.MapPath(".") + "\\TempDoc");
FileInfo[] wordFile = dirInfo.GetFiles(sFileName);
if (wordFile.Length > 0)
{
Object filename = (Object)wordFile[0].FullName;
// Use the dummy value as a placeholder for optional arguments
doc = word.Documents.Open2000(ref filename, ref oMissing,
ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing,
ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
doc.Activate();
object outputFileName = wordFile[0].FullName.Replace(".doc", "");
object fileFormat = WdSaveFormat.wdFormatPDF;
// Save document into PDF Formats
doc.SaveAs2000(ref outputFileName, ref fileFormat, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
}
}
catch (Exception ex)
{
Response.Write(ex);
}
finally
{
// Close the Word document, but leave the Word application open.
// doc has to be cast to type _Document so that it will find the
// correct Close method.
doc = null;
// word has to be cast to type _Application so that it will find
// the correct Quit method.
word = null;
}
}
但它给出了错误 doc.SaveAs2000(ref outputFileName,ref fileFormat,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing); 言。
这可能是因为我们有Microsoft Office 2007,因此没有任何选项可以保存为PDF文件。在Microsoft Office 2010中,它具有该选项,因此在服务器上安装Microsoft Office 2010时,此代码可能会起作用。
答案 0 :(得分:1)
是的,它确实在2010年有效。我最近使用过它,但我相信2007年还有一个补丁,它还将另存为PDF功能
也许试试这个http://msdn.microsoft.com/en-us/library/bb412305(v=office.12).aspx
答案 1 :(得分:0)
Microsoft.Office.Interop.Word.Application appWord = new Microsoft.Office.Interop.Word.Application();
appWord.Visible = false;
//object oMissing = Type.Missing;
object oMissing = System.Reflection.Missing.Value;
// Declare variables for the Document.ExportAsFixedFormat method parameters.
bool paramOpenAfterExport = false;
Office.WdExportOptimizeFor paramExportOptimizeFor =
Office.WdExportOptimizeFor.wdExportOptimizeForOnScreen;
Office.WdExportRange paramExportRange = Office.WdExportRange.wdExportAllDocument;
int paramStartPage = 0;
int paramEndPage = 0;
Office.WdExportItem paramExportItem = Office.WdExportItem.wdExportDocumentWithMarkup; //This is
//the key to keep track changes markup;
bool paramIncludeDocProps = true;
bool paramKeepIRM = true;
Office.WdExportCreateBookmarks paramCreateBookmarks =
Office.WdExportCreateBookmarks.wdExportCreateWordBookmarks;
bool paramDocStructureTags = true;
bool paramBitmapMissingFonts = true;
bool paramUseISO19005_1 = false;
Microsoft.Office.Interop.Word.Document wordDocument = appWord.Documents.Open(fileToProcess);
wordDocument.ExportAsFixedFormat(tempPDFFilePath, Office.WdExportFormat.wdExportFormatPDF, paramOpenAfterExport, paramExportOptimizeFor, paramExportRange, paramStartPage, paramEndPage, paramExportItem,
paramIncludeDocProps, paramKeepIRM, paramCreateBookmarks, paramDocStructureTags, paramBitmapMissingFonts, paramUseISO19005_1, ref oMissing);
((Office._Document)wordDocument).Close(false, Type.Missing, Type.Missing);
((Office._Application)appWord).Quit(false);
首先需要从块包中添加Microsoft.Office.Interop.dll。将.rft原始文件添加为fileToProcess,并在tempFilePath中添加需要保存转换后的pdf文件的位置路径。