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

附上代碼

/// <summary>/// 將多個(gè)word拼成一個(gè) 插入圖片后轉(zhuǎn)成PDF/// </summary>/// <param name="ImageFileNames">圖片路徑</param>/// <param name="OldDocFileName">word路徑</param>/// <param name="NewDocFileName">插入文檔之后新的word文檔路徑</param>/// <param name="PdfFileName">轉(zhuǎn)換后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;//接下頁(yè)合并(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 添加圖片到文檔打開(kāi)文檔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);//將光標(biāo)移至文末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);//打開(kāi)新的文檔object lobjFileFormat = WdSaveFormat.wdFormatPDF; //保存格式為PDFDoc.SaveAs(PdfFileName, lobjFileFormat);//轉(zhuǎn)換成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;}//主動(dòng)激活垃圾回收器，主要是避免超大批量轉(zhuǎn)文檔時(shí)，內(nèi)存占用過(guò)多，而垃圾回收器并不是時(shí)刻都在運(yùn)行！GC.Collect();GC.WaitForPendingFinalizers();}}

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。