最近領導提了個需求 需要把多個word和多個圖片 放在一起并且轉換成pdf格式
我這里的思路是先把多個word放在一個新的word里
再把圖片循環添加到這個新的word文檔里
保存之后轉換成PDF格式
之前用的spire Doc的這個插件實現的 但是因為這個插件生成后會有水印 雖然它有免費版本的 但是轉換pdf格式只會轉換3頁 超出部分顯示不了 所以研究了一下微軟的Microsoft.Office.Interop.Word 完美解決
現在還有一個沒解決的問題就是怎么設置這個添加圖片的位置 如何把兩個圖片放在同一行中 如果有知道的大佬希望可以得到您的幫助(●’?’●) 愛你 比心
（需要引用 Microsoft.Office.Interop.Word）

附上代碼

/// <summary>/// 將多個word拼成一個 插入圖片后轉成PDF/// </summary>/// <param name="ImageFileNames">圖片路徑</param>/// <param name="OldDocFileName">word路徑</param>/// <param name="NewDocFileName">插入文檔之后新的word文檔路徑</param>/// <param name="PdfFileName">轉換后pdf的路徑</param>/// <returns></returns>public bool ConverterToPDF(List<string> ImageFileNames, List<string> OldDocFileName, string NewDocFileName, string PdfFileName){Microsoft.Office.Interop.Word.Application App = new Microsoft.Office.Interop.Word.Application();Microsoft.Office.Interop.Word.Document Doc = new Microsoft.Office.Interop.Word.Document();object lobjMissing = System.Reflection.Missing.Value;object lobjSaveChanges = null;try{#region 拼接wordobject oPageBreak = WdBreakType.wdLineBreak;//接下行合并(LineBreak)//object oPageBreak = WdBreakType.wdPageBreak;//接下頁合并(PageBreak)object docFileName = null;object NewdocFileName = null;OldDocFileName = OldDocFileName.Reverse<string>().ToList();for (int i = 0; i < OldDocFileName.Count; i++){NewdocFileName = (object)NewDocFileName;docFileName = OldDocFileName[i];if (i == 0){Doc = App.Documents.Open(ref docFileName, ref lobjMissing, ref lobjMissing, ref lobjMissing,ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing,ref lobjMissing, false, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);Doc.Activate();}else if (i == OldDocFileName.Count - 1){App.Selection.Range.InsertFile(OldDocFileName[i], ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);App.Selection.Range.InsertBreak(ref oPageBreak);Doc.SaveAs(ref NewdocFileName, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);//Doc.Close(ref NewdocFileName, ref lobjMissing, ref lobjMissing);App.ActiveDocument.Close(ref lobjMissing, ref lobjMissing, ref lobjMissing);}else{App.Selection.Range.InsertFile(OldDocFileName[i], ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);App.Selection.Range.InsertBreak(ref oPageBreak);//Doc.SaveAs(ref NewdocFileName, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);}}#endregion#region Spire.Doc 添加圖片到word(新建段落插入到最后一段)//ConvertToPDFSpireDOC(ImageFileNames, NewDocFileName);#endregion#region Microsoft.Office.Interop.Word 添加圖片到文檔打開文檔Doc = App.Documents.Open(NewDocFileName, ref lobjMissing, ref lobjMissing, ref lobjMissing,ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing,ref lobjMissing, false, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);App = Doc.Application;Microsoft.Office.Interop.Word.Selection selection = App.Selection;Microsoft.Office.Interop.Word.Sections sel = Doc.Sections;// App.Selection;//段落//newapp.Selection.EndKey(ref unite, ref nothing);//將光標移至文末Microsoft.Office.Interop.Word.Section section = sel.Add();//int sum = 1;foreach (var item in ImageFileNames.Reverse<string>()){//插入圖片 //App.ActiveDocument.Shapes.AddPicture(item, ref lobjMissing, ref lobjMissing, 0, ref lobjMissing, ref lobjMissing, ref lobjMissing);//if (sum == ImageFileNames.Count)//{ // //selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphLeft;// //selection.InlineShapes.AddPicture(item, ref lobjMissing, ref lobjMissing, ref lobjMissing);// Microsoft.Office.Interop.Word.InlineShape Inlineshape = section.Range.InlineShapes.AddPicture(item, ref lobjMissing, ref lobjMissing, ref lobjMissing);// Inlineshape.Select();// Microsoft.Office.Interop.Word.Shape cShape = Inlineshape.ConvertToShape();// cShape.Top = 900;//}//else//{Microsoft.Office.Interop.Word.InlineShape Inlineshape = section.Range.InlineShapes.AddPicture(item, ref lobjMissing, ref lobjMissing, ref lobjMissing);// sum++;//}}Doc.SaveAs(NewDocFileName, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);//插入圖片之后保存文檔#endregion#region Microsoft.Office.Interop.Word 將word保存為pdfDoc = App.Documents.Open(NewDocFileName, ref lobjMissing, ref lobjMissing,ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing,ref lobjMissing, false, ref lobjMissing, ref lobjMissing, ref lobjMissing, ref lobjMissing);//打開新的文檔object lobjFileFormat = WdSaveFormat.wdFormatPDF; //保存格式為PDFDoc.SaveAs(PdfFileName, lobjFileFormat);//轉換成pdf格式lobjSaveChanges = WdSaveOptions.wdDoNotSaveChanges;Doc.Close(ref lobjSaveChanges, ref lobjMissing, ref lobjMissing);Doc = null;App.Quit(ref lobjSaveChanges, ref lobjMissing, ref lobjMissing);App = null;#endregionreturn true;}catch (Exception e){Console.WriteLine(e.Message);return false;}finally{if (Doc != null){Doc.Close(ref lobjSaveChanges, ref lobjMissing, ref lobjMissing);Marshal.ReleaseComObject(Doc);Doc = null;}if (App != null){App.Quit(ref lobjSaveChanges, ref lobjMissing, ref lobjMissing);Marshal.ReleaseComObject(App);App = null;}//主動激活垃圾回收器，主要是避免超大批量轉文檔時，內存占用過多，而垃圾回收器并不是時刻都在運行！GC.Collect();GC.WaitForPendingFinalizers();}}

總結

以上是生活随笔為你收集整理的C# Microsoft.Office.Interop.Word 将多个word合成一个并插入图片 转换成pdf的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。