ASP.NET操作Word在Word文檔中插入圖片.doc

實例說明在Word文檔的使用過程中，我們可以輕松的向文檔中插入圖片信息，那么，怎樣使用C#向Word文檔中插入圖片呢？本實例將會介紹一種方法，可以方便的 實現(xiàn)上述功能。實例運行效果如圖1所示。圖1 在Word文檔中插入圖片實例運行中單擊“創(chuàng)建Word文檔”按鈕，會根據(jù)用戶選擇的路徑位置創(chuàng)建Word文檔并向文檔中添加圖片，而文檔的名稱就是當前系統(tǒng)日期與時間。創(chuàng)建的 Word文檔如圖2所示。圖2 被插入圖片的Word文檔n關鍵技術本實例重點在于向讀者介紹怎樣使用InlineShapes集合的AddPicture方法向Word文檔中插入圖片，下面對本實例用到的關鍵技術進行詳 細講解。使用Documents對象的Add方法可以創(chuàng)建Word文檔，使用Open方法可以打開Word文檔，當?shù)玫轿臋n對象后可以根據(jù) InlineShapes屬性得到InlineShape對象的集合，InlineShape對象包括圖片、ActiveX控件等信息。使用 InlineShapes集合的AddPicture方法可以方便的向文檔中插入圖片，AddPicture方法的語法格式如下：InlineShape AddPicture(string FileName, ref object LinkToFile, ref object SaveWithDocument, ref object Range);AddPicture方法中的參數(shù)說明如表1所示。表1 AddPicture方法中的參數(shù)說明參數(shù)描述 FileName將要插入的圖片文件名稱及路徑 LinkToFile如果為true， 則將圖片鏈接到創(chuàng)建該對象的文件；如果為false則將圖片作為該文件的獨立副本， 默認為false SaveWithDocument如果為true， 則鏈接的圖片與工作表一起保存，默認為false Range插入圖片的范圍n設計過程（1）打開Visual Studio 2008開發(fā)環(huán)境，新建一個Windows窗體應用程序，命名為AddImage。（2）使用C#操作Word文檔，需要引用相關的COM組件，引用COM組件的步驟請參照實例002中的設計過程。（3）更改默認窗體Form1的Name屬性為Frm_Main，更改Text屬性為“在Word文檔中插入圖片”，并向窗體中添加兩個TextBox控 件，控件分別用顯示圖片路徑和顯示W(wǎng)ord文檔保存路徑；向窗體中添加4個Button按鈕，這4個按鈕分別用于選擇向Word文檔中插入的圖片、選擇 Word文檔保存路徑、創(chuàng)建Word文檔和顯示W(wǎng)ord文檔。（4）程序主要代碼如下：private void btn_New_Click(object sender, EventArgs e) btn_New.Enabled = false;/停用新建按鈕 ThreadPool.QueueUserWorkItem(/使用線程池 (P_temp) =/使用lambda表達式 G_wa = new Word.Application();/創(chuàng)建Word應用程序?qū)ο?Word.Document P_wd = G_wa.Documents.Add(/建立新文檔 ref G_missing, ref G_missing, ref G_missing, ref G_missing); Word.Range P_Range = P_wd.Paragraphs1.Range;/得到段落范圍 object P_Ranges = P_Range;/創(chuàng)建ojbect對象 P_wd.InlineShapes.AddPicture(/向文檔中插入圖片 G_OpenFileDialog.FileName, ref G_missing, ref G_missing, ref P_Ranges); G_str_path = string.Format(/計算文件保存路徑 01, G_FolderBrowserDialog.SelectedPath, DateTime.Now.ToString(yyyy年M月d日h時s分m秒fff毫秒) + .doc); P_wd.SaveAs(/保存Word文件 ref G_str_path, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing, ref G_missing); (Word._Application)G_wa.Application).Quit(/退出應用程序 ref G_missing, ref G_missing, ref G_missing); this.Invoke(/開始執(zhí)行窗體線程 (Met