Office中国论坛/Access中国论坛

标题: 【作业】@VSTO易#初级班01期#第05课 [打印本页]

---

作者: pengjia89    时间: 2014-4-7 21:52
标题: 【作业】@VSTO易#初级班01期#第05课
[attach]53781[/attach]

---

作者: 闻启学    时间: 2014-4-8 17:49
先完成两个先
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.         }

复制代码

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.         }

复制代码

---

作者: microfaint    时间: 2014-4-11 20:40
留名占地

---

作者: 闻启学    时间: 2014-4-11 21:21
3

1.   private void btnMail_Click(object sender, RibbonControlEventArgs e)
   
2.         {   
   
3.             //将每个记录自动生成每个文档 文件名称以第一个字段命名
   
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.         }

复制代码

---

作者: Amas    时间: 2014-4-13 01:16
提交作业：http://www.office-cn.net/forum.p ... 2&fromuid=14932

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3