Office2007需要借助的插件完成，Office2010可以直接兼容。
Office2PDF主要采用的是 Microsoft.Office.Interop的方式进行，PDF2SWF主要采用的是的pdf2swf工具。至于SWFTools的各种命令，网上有很多的资料可以参考，这里就不一一举例了。
1 ///2 /// 把Word文件转换成为PDF格式文件 3 /// 4 /// 源文件路径 5 /// 目标文件路径 6 ///true=转换成功 7 public static bool WordToPDF(string sourcePath, string targetPath) 8 { 9 bool result = false; 10 Word.WdExportFormat exportFormat = Word.WdExportFormat.wdExportFormatPDF; 11 object paramMissing = Type.Missing; 12 Word.Application wordApplication = new Word.Application(); 13 Word.Document wordDocument = null; 14 try 15 { 16 object paramSourceDocPath = sourcePath; 17 string paramExportFilePath = targetPath; 18 Word.WdExportFormat paramExportFormat = exportFormat; 19 bool paramOpenAfterExport = false; 20 Word.WdExportOptimizeFor paramExportOptimizeFor = Microsoft.Office.Interop.Word.WdExportOptimizeFor.wdExportOptimizeForPrint; 21 Word.WdExportRange paramExportRange = Word.WdExportRange.wdExportAllDocument; 22 int paramStartPage = 0; 23 int paramEndPage = 0; 24 Word.WdExportItem paramExportItem = Word.WdExportItem.wdExportDocumentContent; 25 bool paramIncludeDocProps = true; 26 bool paramKeepIRM = true; 27 Word.WdExportCreateBookmarks paramCreateBookmarks = Word.WdExportCreateBookmarks.wdExportCreateWordBookmarks; 28 bool paramDocStructureTags = true; 29 bool paramBitmapMissingFonts = true; 30 bool paramUseISO19005_1 = false; 31 wordDocument = wordApplication.Documents.Open( 32 ref paramSourceDocPath, ref paramMissing, ref paramMissing, 33 ref paramMissing, ref paramMissing, ref paramMissing, 34 ref paramMissing, ref paramMissing, ref paramMissing, 35 ref paramMissing, ref paramMissing, ref paramMissing, 36 ref paramMissing, ref paramMissing, ref paramMissing, 37 ref paramMissing); 38 if (wordDocument != null) 39 wordDocument.ExportAsFixedFormat(paramExportFilePath, 40 paramExportFormat, paramOpenAfterExport, 41 paramExportOptimizeFor, paramExportRange, paramStartPage, 42 paramEndPage, paramExportItem, paramIncludeDocProps, 43 paramKeepIRM, paramCreateBookmarks, paramDocStructureTags, 44 paramBitmapMissingFonts, paramUseISO19005_1, 45 ref paramMissing); 46 result = true; 47 } 48 catch 49 { 50 result = false; 51 } 52 finally 53 { 54 if (wordDocument != null) 55 { 56 wordDocument.Close(ref paramMissing, ref paramMissing, ref paramMissing); 57 wordDocument = null; 58 } 59 if (wordApplication != null) 60 { 61 wordApplication.Quit(ref paramMissing, ref paramMissing, ref paramMissing); 62 wordApplication = null; 63 } 64 GC.Collect(); 65 GC.WaitForPendingFinalizers(); 66 GC.Collect(); 67 GC.WaitForPendingFinalizers(); 68 } 69 return result; 70 //bool result = false; 71 //Microsoft.Office.Interop.Word.WdExportFormat exportFormat = Microsoft.Office.Interop.Word.WdExportFormat.wdExportFormatPDF; 72 //Microsoft.Office.Interop.Word.Application application = null; 73 74 //Microsoft.Office.Interop.Word.Document document = null; 75 //try 76 //{ 77 // application = new Microsoft.Office.Interop.Word.Application(); 78 // application.Visible = false; 79 // document = application.Documents.Open(sourcePath); 80 // document.SaveAs(); 81 // document.ExportAsFixedFormat(targetPath, exportFormat); 82 // result = true; 83 //} 84 //catch (Exception e) 85 //{ 86 87 // result = false; 88 // throw e; 89 //} 90 //finally 91 //{ 92 // if (document != null) 93 // { 94 // document.Close(); 95 // document = null; 96 // } 97 // if (application != null) 98 // { 99 // application.Quit();100 // application = null;101 // }102 // GC.Collect();103 // GC.WaitForPendingFinalizers();104 // GC.Collect();105 // GC.WaitForPendingFinalizers();106 //}107 //return result;108 }
ExcelToPDF 1 ///2 /// 把Microsoft.Office.Interop.Excel文件转换成PDF格式文件 3 /// 4 /// 源文件路径 5 /// 目标文件路径 6 ///true=转换成功 7 public static bool ExcelToPDF(string sourcePath, string targetPath) 8 { 9 bool result = false;10 Excel.XlFixedFormatType targetType = Excel.XlFixedFormatType.xlTypePDF;11 object missing = Type.Missing;12 Excel.Application application = null;13 Excel.Workbook workBook = null;14 try15 {16 application = new Excel.Application();17 object target = targetPath;18 object type = targetType;19 workBook = application.Workbooks.Open(sourcePath, missing, missing, missing, missing, missing,20 missing, missing, missing, missing, missing, missing, missing, missing, missing);21 workBook.ExportAsFixedFormat(targetType, target, Excel.XlFixedFormatQuality.xlQualityStandard, true, false, missing, missing, missing, missing);22 result = true;23 }24 catch25 {26 result = false;27 }28 finally29 {30 if (workBook != null)31 {32 workBook.Close(true, missing, missing);33 workBook = null;34 }35 if (application != null)36 {37 application.Quit();38 application = null;39 }40 GC.Collect();41 GC.WaitForPendingFinalizers();42 GC.Collect();43 GC.WaitForPendingFinalizers();44 }45 return result;46 //bool result = false;47 //Microsoft.Office.Interop.Excel.XlFixedFormatType targetType = Microsoft.Office.Interop.Excel.XlFixedFormatType.xlTypePDF;48 //object missing = Type.Missing;49 //Microsoft.Office.Interop.Excel.Application application = null;50 //Microsoft.Office.Interop.Excel.Workbook workBook = null;51 //try52 //{53 // application = new Microsoft.Office.Interop.Excel.Application();54 // application.Visible = false;55 // workBook = application.Workbooks.Open(sourcePath);56 // workBook.SaveAs();57 // workBook.ExportAsFixedFormat(targetType, targetPath);58 // result = true;59 //}60 //catch (Exception e)61 //{62 63 // result = false;64 // throw e;65 //}66 //finally67 //{68 // if (workBook != null)69 // {70 // workBook.Close(true, missing, missing);71 // workBook = null;72 // }73 // if (application != null)74 // {75 // application.Quit();76 // application = null;77 // }78 // GC.Collect();79 // GC.WaitForPendingFinalizers();80 // GC.Collect();81 // GC.WaitForPendingFinalizers();82 //}83 //return result;84 }
PowerPointToPDF 1 ///2 /// 把PowerPoint文件转换成PDF格式文件 3 /// 4 /// 源文件路径 5 /// 目标文件路径 6 ///true=转换成功 7 public static bool PowerPointToPDF(string sourcePath, string targetPath) 8 { 9 bool result;10 PowerPoint.PpSaveAsFileType targetFileType = PowerPoint.PpSaveAsFileType.ppSaveAsPDF;11 12 object missing = Type.Missing;13 PowerPoint.Application application = null;14 PowerPoint.Presentation persentation = null;15 try16 {17 application = new PowerPoint.Application();18 persentation = application.Presentations.Open(sourcePath, MsoTriState.msoTrue, MsoTriState.msoFalse, MsoTriState.msoFalse);19 persentation.SaveAs(targetPath, targetFileType, Microsoft.Office.Core.MsoTriState.msoTrue);20 result = true;21 }22 catch23 {24 result = false;25 }26 finally27 {28 if (persentation != null)29 {30 persentation.Close();31 persentation = null;32 }33 if (application != null)34 {35 application.Quit();36 application = null;37 }38 GC.Collect();39 GC.WaitForPendingFinalizers();40 GC.Collect();41 GC.WaitForPendingFinalizers();42 }43 return result;44 45 //bool result;46 //Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType targetFileType = Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType.ppSaveAsPDF;47 //object missing = Type.Missing;48 //Microsoft.Office.Interop.PowerPoint.Application application = null;49 //Microsoft.Office.Interop.PowerPoint.Presentation persentation = null;50 //try51 //{52 // application = new Microsoft.Office.Interop.PowerPoint.Application();53 // //application.Visible = MsoTriState.msoFalse; 54 // persentation = application.Presentations.Open(sourcePath, MsoTriState.msoTrue, MsoTriState.msoFalse, MsoTriState.msoFalse);55 // persentation.SaveAs(targetPath, targetFileType, Microsoft.Office.Core.MsoTriState.msoTrue);56 57 // result = true;58 //}59 //catch (Exception e)60 //{61 // result = false;62 // throw e;63 //}64 //finally65 //{66 // if (persentation != null)67 // {68 // persentation.Close();69 // persentation = null;70 // }71 // if (application != null)72 // {73 // application.Quit();74 // application = null;75 // }76 // GC.Collect();77 // GC.WaitForPendingFinalizers();78 // GC.Collect();79 // GC.WaitForPendingFinalizers();80 //}81 //return result;82 }
VisioToPDF 1 ///2 /// 把Visio文件转换成PDF格式文件 3 /// 4 /// 源文件路径 5 /// 目标文件路径 6 ///true=转换成功 7 public static bool VisioToPDF(string sourcePath, string targetPath) 8 { 9 bool result;10 11 Microsoft.Office.Interop.Visio.VisFixedFormatTypes targetType = Microsoft.Office.Interop.Visio.VisFixedFormatTypes.visFixedFormatPDF;12 object missing = Type.Missing;13 Microsoft.Office.Interop.Visio.Application application = null;14 Microsoft.Office.Interop.Visio.Document document = null;15 try16 {17 application = new Microsoft.Office.Interop.Visio.Application();18 application.Visible = false;19 document = application.Documents.Open(sourcePath);20 document.Save();21 document.ExportAsFixedFormat(targetType, targetPath, Microsoft.Office.Interop.Visio.VisDocExIntent.visDocExIntentScreen, Microsoft.Office.Interop.Visio.VisPrintOutRange.visPrintAll);22 result = true;23 }24 catch (Exception e)25 {26 result = false;27 28 throw e;29 }30 finally31 {32 if (application != null)33 {34 application.Quit();35 application = null;36 }37 GC.Collect();38 GC.WaitForPendingFinalizers();39 GC.Collect();40 GC.WaitForPendingFinalizers();41 }42 return result;43 }
因为这里的代码只支持Office2007以及以上版本，所以需要检测目标机器的Office版本，这里我的方法是查询注册表信息，对于绿色安装的Office楼主没有想到好的办法。
GetOfficePath 1 ///2 /// 获取当前某个版本Office的安装路径 3 /// 4 /// 返回当前系统Office安装路径 5 /// 返回当前系统Office版本信息 6 public static void GetOfficePath(out string Path, out string Version) 7 { 8 string strPathResult = ""; 9 string strVersionResult = ""; 10 string strKeyName = "Path"; 11 object objResult = null; 12 Microsoft.Win32.RegistryValueKind regValueKind; 13 Microsoft.Win32.RegistryKey regKey = null; 14 Microsoft.Win32.RegistryKey regSubKey = null; 15 16 try 17 { 18 regKey = Microsoft.Win32.Registry.LocalMachine; 19 if (regSubKey == null) 20 { //office2010 21 regSubKey = regKey.OpenSubKey(@"SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot", false); 22 strVersionResult = "office2010"; 23 strKeyName = "Path"; 24 try 25 { 26 27 objResult = regSubKey.GetValue(strKeyName); 28 29 regValueKind = regSubKey.GetValueKind(strKeyName); 30 31 } 32 33 catch (Exception ex) 34 { 35 36 regSubKey = null; 37 38 } 39 40 } 41 if (regSubKey == null) 42 { //office2007 43 regSubKey = regKey.OpenSubKey(@"SOFTWARE\Microsoft\Office\12.0\Common\InstallRoot", false); 44 strVersionResult = "office2007"; 45 strKeyName = "Path"; 46 try 47 { 48 49 objResult = regSubKey.GetValue(strKeyName); 50 51 regValueKind = regSubKey.GetValueKind(strKeyName); 52 53 } 54 55 catch (Exception ex) 56 { 57 58 regSubKey = null; 59 60 } 61 } 62 63 if (regSubKey == null) 64 { //Office2003 65 regSubKey = regKey.OpenSubKey(@"SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot", false); 66 strVersionResult = "office2003"; 67 strKeyName = "Path"; 68 try 69 { 70 71 objResult = regSubKey.GetValue(strKeyName); 72 73 regValueKind = regSubKey.GetValueKind(strKeyName); 74 75 } 76 77 catch (Exception ex) 78 { 79 80 regSubKey = null; 81 82 } 83 } 84 if (regSubKey == null) 85 { //officeXp 86 regSubKey = regKey.OpenSubKey(@"SOFTWARE\Microsoft\Office\10.0\Common\InstallRoot", false); 87 strVersionResult = "officeXP"; 88 strKeyName = "Path"; 89 try 90 { 91 92 objResult = regSubKey.GetValue(strKeyName); 93 94 regValueKind = regSubKey.GetValueKind(strKeyName); 95 96 } 97 98 catch (Exception ex) 99 {100 101 regSubKey = null;102 103 }104 }105 if (regSubKey == null)106 { //Office2000107 regSubKey = regKey.OpenSubKey(@"SOFTWARE\Microsoft\Office\9.0\Common\InstallRoot", false);108 strVersionResult = "office2000";109 strKeyName = "Path";110 try111 {112 113 objResult = regSubKey.GetValue(strKeyName);114 115 regValueKind = regSubKey.GetValueKind(strKeyName);116 117 }118 119 catch (Exception ex)120 {121 122 regSubKey = null;123 124 }125 }126 if (regSubKey == null)127 { //office97128 regSubKey = regKey.OpenSubKey(@"SOFTWARE\Microsoft\Office\8.0\Common\InstallRoot", false);129 strVersionResult = "office97";130 strKeyName = "OfficeBin";131 try132 {133 134 objResult = regSubKey.GetValue(strKeyName);135 136 regValueKind = regSubKey.GetValueKind(strKeyName);137 138 }139 140 catch (Exception ex)141 {142 143 regSubKey = null;144 145 }146 }147 148 objResult = regSubKey.GetValue(strKeyName);149 regValueKind = regSubKey.GetValueKind(strKeyName);150 if (regValueKind == Microsoft.Win32.RegistryValueKind.String)151 {152 strPathResult = objResult.ToString();153 }154 }155 catch (System.Security.SecurityException ex)156 {157 throw new System.Security.SecurityException("您没有读取注册表的权限", ex);158 }159 catch (Exception ex)160 {161 throw new Exception("读取注册表出错!", ex);162 }163 finally164 {165 166 if (regKey != null)167 {168 regKey.Close();169 regKey = null;170 }171 172 if (regSubKey != null)173 {174 regSubKey.Close();175 regSubKey = null;176 }177 }178 179 Path = strPathResult;180 Version = strVersionResult;181 }
当文档转成PDF后，就成功一半啦，接下来就只剩下转换成SWF了。
转换的命令其实很简单的，但是楼主在实际操作的时候出现了问题，在转换的时候我们一般使用的是Process在进行命令行的执行，但是此类提供的标准output流只有2k，对于页数很多的PDF转换SWF的时候，会出现SWF无法生成的问题，借助网上很多同仁的资料，改良后的方面对于处理五六十页以内的PDF转SWF的问题不大，具体代码如下：
1 //pdf转swf 2 string pdf2swfExe = @"SWFTools\pdf2swf.exe"; 3 4 string args = " -t \"" + szPDF + "\" -o \"" + szSWF 5 + "\" -s drawonlyshapes -s flashversion=9 -s poly2bitmap"; 6 using (Process p = new Process()) 7 { 8 9 string cmd = pdf2swfExe;10 11 12 p.StartInfo.FileName = cmd;13 p.StartInfo.Arguments = args;14 p.StartInfo.UseShellExecute = false;15 16 ////此类提供的标准output流只有2k,不要重定向17 p.StartInfo.RedirectStandardOutput = true;18 19 p.StartInfo.CreateNoWindow = true;20 p.Start();21 22 p.PriorityClass = ProcessPriorityClass.High;23 p.BeginOutputReadLine();24 p.OutputDataReceived += new DataReceivedEventHandler(process_OutputDataReceived);25 26 } 主要采用的方式是自行读取OUTPUT中的数据流，
process_OutputDataReceived 1 private void process_OutputDataReceived(object sender, DataReceivedEventArgs e) 2 { 3 4 // 这里仅做输出的示例，实际上您可以根据情况取消获取命令行的内容 5 6 // 参考：process.CancelOutputRead() 7 8 9 (sender as Process).Close();10 11 if (String.IsNullOrEmpty(e.Data) == false)12 {13 14 string szPDF = Fileinfo.FileNewName.Split('.')[0] + ".pdf";15 string szSWF = Fileinfo.FileNewName.Split('.')[0] + ".swf";16 if (File.Exists(szSWF))17 {18 try19 {20 21 22 23 ThreadDelegate changeProcessDel = delegate() //后台中要更改主线程中的UI，于是我们还是用委托来实现，再创建一个实例24 {25 DataGridTemplateColumn templeColumn = Datagrid.Columns[Datagrid.Columns.Count - 1] as DataGridTemplateColumn;26 FrameworkElement element = templeColumn.GetCellContent(Datagrid.Items[Index]);27 GifImage img = (GifImage)templeColumn.CellTemplate.FindName("gifimage", element);28 img.Visibility = System.Windows.Visibility.Hidden;29 Label Successed = (Label)templeColumn.CellTemplate.FindName("Successed", element);30 Successed.Visibility = System.Windows.Visibility.Visible;31 Successed.Content = "文件转换成功！";32 };//要调用的过程33 Dispatcher.BeginInvoke(DispatcherPriority.Send, changeProcessDel); //使用分发器让这个委托等待执行34 Thread.Sleep(3000);35 36 37 38 //删除原文件39 if (File.Exists(Fileinfo.FileNewName))40 {41 File.Delete(Fileinfo.FileNewName);42 }43 //删除pdf44 //if (File.Exists(szPDF))45 //{46 // File.Delete(szPDF);47 //}48 }49 catch (Exception ex)50 { 51 throw ex; 52 }53 }54 else55 {56 //ThreadDelegate changeProcessDel = delegate() //后台中要更改主线程中的UI，于是我们还是用委托来实现，再创建一个实例57 //{58 // DataGridTemplateColumn templeColumn = Datagrid.Columns[Datagrid.Columns.Count - 1] as DataGridTemplateColumn;59 // FrameworkElement element = templeColumn.GetCellContent(Datagrid.Items[Index]);60 // GifImage img = (GifImage)templeColumn.CellTemplate.FindName("gifimage", element);61 // img.Visibility = System.Windows.Visibility.Hidden;62 // Label Successed = (Label)templeColumn.CellTemplate.FindName("Successed", element);63 // Successed.Visibility = System.Windows.Visibility.Visible;64 // Successed.Content = "文件转换出错！";65 //};//要调用的过程66 //Dispatcher.BeginInvoke(DispatcherPriority.Send, changeProcessDel); //使用分发器让这个委托等待执行67 //Thread.Sleep(3000);68 69 }70 }71 72 } 本程序的框架是WPF搭建的。
关于PDF转SWF就说这么多了，当然楼主所有的代码中不乏是网上同仁的心血，楼主在这里只是对某些代码进行整改和总结，并非侵权。