【作業(yè)】@VSTO易#初級(jí)班01期#第05課

pengjia89

聞啟學(xué)

先完成兩個(gè)先
1，

1. private void button2_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             //插入字符串
   
4.             int iIngEnd = GetWordApp().ActiveDocument.Paragraphs[3].Range.End;
   
5.             int iIngStart = GetWordApp().ActiveDocument.Paragraphs[3].Range.Start;
   
6. 
   
7.             GetWordApp().ActiveDocument.Range(iIngStart, iIngEnd).InsertAfter("西西師傅！我來了");
   
8.            
   
9.         }

復(fù)制代碼

2，

1. private void button3_Click(object sender, RibbonControlEventArgs e)
   
2.         {
   
3.             //刪除嵌入圖片
   
4.             foreach (var item in GetWordApp().ActiveDocument.InlineShapes)
   
5.             {
   
6.                 InlineShape aa = item as InlineShape;
   
7.                 aa.Delete();
   
8.             }
   
9.         }

復(fù)制代碼

microfaint

留名占地

聞啟學(xué)

3

1.   private void btnMail_Click(object sender, RibbonControlEventArgs e)
   
2.         {   
   
3.             //將每個(gè)記錄自動(dòng)生成每個(gè)文檔 文件名稱以第一個(gè)字段命名
   
4.             Word.MailMerge Mymer = GetWordApp().ActiveDocument.MailMerge;
   
5.             string fildName = "";
   
6.             if (GetWordApp().ActiveDocument.MailMerge == null)
   
7.             {
   
8.                 return;
   
9.             }
   
10. 
    
11.             if (Mymer.State == WdMailMergeState.wdMainAndDataSource)
    
12.             {
    
13.                 Mymer.DataSource.ActiveRecord = WdMailMergeActiveRecord.wdFirstRecord;
    
14.                 for (int i = 1; i <= Mymer.DataSource.RecordCount; i++)
    
15.                 {
    
16.                     Mymer.DataSource.FirstRecord = i;
    
17.                     Mymer.DataSource.LastRecord = i;
    
18.                     Mymer.Destination = WdMailMergeDestination.wdSendToNewDocument;
    
19.                     fildName = Mymer.DataSource.DataFields[1].Value; //可以選擇字段?
    
20.                     Mymer.DataSource.ActiveRecord = WdMailMergeActiveRecord.wdNextRecord;
    
21.                     Mymer.Execute();
    
22.                     GetWordApp().ActiveDocument.Content.Characters.Last.Previous().Delete();
    
23.                     string myDocPath = @"I:\test"; //可以選擇路徑？
    
24.                     try
    
25.                     {
    
26.                         GetWordApp().ActiveDocument.SaveAs(FileName: myDocPath + fildName + ".doc");
    
27.                     }
    
28.                     catch (Exception ex)
    
29.                     {
    
30.                         System.Windows.Forms.MessageBox.Show(ex.Message);
    
31.                                             }
    
32.                   
    
33.                     GetWordApp().ActiveDocument.Close();
    
34. 
    
35.                 }
    
36. 
    
37.             }
    
38.         }

復(fù)制代碼

Amas

提交作業(yè)：http://www.mzhfr.cn/forum.p ... 2&fromuid=14932