首页 > WinForm利用Microsoft.Office.Interop.Word來合併多個Word檔

WinForm利用Microsoft.Office.Interop.Word來合併多個Word檔

互联网 2021-04-18 20:04:55

最近同事問到這個問題小弟一樣去找解答分享一下測試心得

首先準備好兩個測試的word檔(1.doc2.doc)放在c槽裡執行完程式就產生3.doc的合併檔了

WinForm(C#)WordCombine.cs

 

01using System; 02using System.Collections.Generic; 03using System.ComponentModel; 04using System.Data; 05using System.Drawing; 06using System.Text; 07using System.Windows.Forms; 08using Word = Microsoft.Office.Interop.Word;//這個要先加入Microsoft.Office.Interop.Word參考 09using System.Reflection;//這個記得參考 10  11namespace WindowsApplication1 12{ 13    public partial class WordCombine : Form 14    { 15        public WordCombine() 16        { 17            InitializeComponent(); 18        } 19  20        private void WordCombine_Load(object sender EventArgs e) 21        { 22            object missing = Missing.Value; 23            string oFirstDoc = @"c:/1.doc";//word檔1 24            object oSecondDoc = @"c:/2.doc";//word檔2 25            object oOutputDoc = @"c:/3.doc";//合併檔 26  27            //object oPageBreak = Word.WdBreakType.wdLineBreak;//接下行合併(LineBreak) 28            object oPageBreak = Word.WdBreakType.wdPageBreak;//接下頁合併(PageBreak) 29  30            Word.Application wordApp = new Word.Application(); 31            Word.Document origDoc = wordApp.Documents.Open(ref oSecondDoc ref missing ref missing ref missing refmissing ref missing ref missing ref missing ref missing ref missing ref missing ref missing ref missing refmissing ref missing ref missing); 32            origDoc.Activate(); 33            wordApp.Selection.InsertFile(oFirstDoc ref missing ref missing ref missing ref missing); 34            wordApp.Selection.InsertBreak(ref oPageBreak); 35            wordApp.ActiveDocument.SaveAs(ref oOutputDoc ref missing ref missing ref missing ref missing refmissing ref missing ref missing ref missing ref missing ref missing ref missing ref missing ref missing refmissing ref missing); 36            wordApp.ActiveDocument.Close(ref missing ref missing ref missing); 37            wordApp.Quit(ref missing ref missing ref missing);//加這行可以 Kill WINWORD.EXE process 38        } 39    } 40}  

 

執行結果:原始word檔→1.doc2.doc

 

合併word檔→接下行合併(LineBreak)

 

合併word檔→接下頁合併(PageBreak)

參考網址:http://bytes.com/forum/thread236890.html

免责声明:非本网注明原创的信息,皆为程序自动获取互联网,目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责;如此页面有侵犯到您的权益,请给站长发送邮件,并提供相关证明(版权证明、身份证正反面、侵权链接),站长将在收到邮件12小时内删除。