首页
学习
活动
专区
圈层
工具
发布
社区首页 >专栏 >Csharp 简单操作Word模板文件

Csharp 简单操作Word模板文件

作者头像
geovindu
发布2026-06-18 10:02:37
发布2026-06-18 10:02:37
1800
举报

1.创建一个模板的Word文档  Doc1.dot 内容为:

To: <Name>

Sub:<Subject>

Website is ok geovindu 涂聚文好样的 work.

CEo

                         <Datetime>

Thanks.

2.程序操作代码为:

代码语言:javascript
复制
/// <summary>
 /// 簡單操作Word模板文件
 /// 塗聚文 2011-11-03
 /// 缔友计算机信息技术有限公司
 /// </summary>
 /// <param name="sender"></param>
 /// <param name="e"></param>
 private void button2_Click(object sender, EventArgs e)
 {
     DateTime startTime = DateTime.Now;
     DateTime endTime = DateTime.Now;
     System.Random srd = new Random();
     int srdName = srd.Next(1000);
     string newfile = path + DateTime.Now.ToString("yyyyMMddhhmmss") + srdName.ToString()+".doc"; //新文件名         
     try
     {
         
         startTime = DateTime.Now;   
         //killprocess("winword");
         //  復制模板文件
         File.Copy(path + fileName, newfile, true);//fileName = "Doc1.doc";//模板文件
        
         object missing = Missing.Value;
         
         Word.Application wordApp = new Word.ApplicationClass();
         endTime = DateTime.Now;
         
         Word.Document aDoc = null;
        
         object file = newfile;//新文件替換                
         if (File.Exists((string)file))//判斷新文件存在否
         {
             object readOnly = false;
             object isVisible = false;                    
             wordApp.Visible = false;                    
             aDoc = wordApp.Documents.Open(ref file, ref missing,
             ref readOnly, ref missing, ref missing, ref missing,
             ref missing, ref missing, ref missing, ref missing,
             ref missing, ref isVisible, ref missing, ref missing,
             ref missing, ref missing);
             aDoc.Activate();                   
             this.FindAndReplace(wordApp, "<Datetime>", this.dateTimePicker1.Text);
             this.FindAndReplace(wordApp, "<Name>", this.textBoxName.Text.Trim());
             this.FindAndReplace(wordApp, "<Subject>",this.textBoxSubject.Text.Trim());                    
             aDoc.Save();
         }
         else
             MessageBox.Show("File does not exist.","No File", MessageBoxButtons.OK,MessageBoxIcon.Information);
        // killprocess("winword");
     }
     catch (Exception)
     {
         MessageBox.Show("Error in process.", "Internal Error",
         MessageBoxButtons.OK, MessageBoxIcon.Error);
     }
     finally
     {
         killprocess(startTime, endTime, "winword");
         GC.Collect();
         GC.WaitForPendingFinalizers();
     }
 }
 /// <summary>
 /// 關閉進程 塗聚文 2011-11-03
 /// </summary>
 /// <param name="pro"></param>
 public void killprocess(DateTime start, DateTime end, string ProcessName)
 {
     //foreach (Process p in Process.GetProcessesByName(pro))
     //{
     //    if (!p.HasExited)
     //    {
     //        p.Kill();
     //    }
     //}
         Process[] myProcesses;
         DateTime ProStartTime;
         myProcesses = Process.GetProcessesByName(ProcessName);

         //因为暂时没有想到得到Excel进程ID的方法,所以只能判断进程启动时间
         foreach (Process myProcess in myProcesses)
         {
             ProStartTime = myProcess.StartTime;
             //myProcess.Id

             if (start <= ProStartTime && ProStartTime <= end)
             {
                 myProcess.Kill();
             }
         }


 }
 /// <summary>
 /// 找查替換內容 塗聚文 2011-11-03
 /// </summary>
 /// <param name="wordApp"></param>
 /// <param name="findText"></param>
 /// <param name="replaceText"></param>
 private void FindAndReplace(Word.Application wordApp,object findText, object replaceText)
 {
     object matchCase = true;
     object matchWholeWord = true;
     object matchWildCards = false;
     object matchSoundsLike = false;
     object matchAllWordForms = false;
     object forward = true;
     object format = false;
     object matchKashida = false;
     object matchDiacritics = false;
     object matchAlefHamza = false;
     object matchControl = false;
     object read_only = false;
     object visible = true;
     object replace = 2;
     object wrap = 1;
     wordApp.Selection.Find.Execute(ref findText, ref matchCase,
         ref matchWholeWord, ref matchWildCards, ref matchSoundsLike,
         ref matchAllWordForms, ref forward, ref wrap, ref format,
         ref replaceText, ref replace, ref matchKashida,
                 ref matchDiacritics,
         ref matchAlefHamza, ref matchControl);
 }
本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2026-06-17,如有侵权请联系 cloudcommunity@tencent.com 删除
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档