打开一个word文档,插入一个字符串,指定大小,指定是否居中等等信息

Question

rt

Answer 1

VBA 编程，示例代码：using Microsoft.VisualBasic; 
using Microsoft.Office.Core; 
using Microsoft.Office.Interop.Word; 
using System.IO; 
using System.Data.sqlClient; 
using System.Data.OLEDB; 
using System.Threading; 
   
    private void btnDoc_Click(object sender, System.EventArgs e) 
    { 
        ApplicationClass myWordApp = new ApplicationClass(); 
        Document myWordDoc = new Document(); 
        object filename = My.Computer.FileSystem.CurrentDirectory() + "\\Template\\dt.dot"; 
               object cd = " "; 
        object code1 = "书名"; 
        object code2 = "标题 1"; 
        object code3 = "标题 2"; 
        object code4 = "正文"; 
        sfd.Filter = "Word 文档|*.DOC"; 
        sfd.Title = "保存作业文档"; 
        sfd.FileName = this.Label1.Text.Replace("\\", "_") + ".doc"; 
        
        sfd.ShowDialog(); 
        
        if (sfd.FileName != "") { 
            object destination = sfd.FileName; 
            //My.Computer.FileSystem.CurrentDirectory() + "\Docs\" + Me.Label1.Text.Replace("\", "_") + ".doc" 
            
            object notTrue = false; 
            object missing = System.Reflection.Missing.Value; 
            
            
            try { 
                myWordApp.Visible = true; 
                myWordDoc = myWordApp.Documents.Add(filename, missing, missing, missing); 
                object pgb = (int)Microsoft.Office.Interop.Word.WdBreakType.wdPageBreak; 
                
                
                myWordApp.Selection.Select(); 
                
                myWordApp.Selection.TypeParagraph(); 
                myWordApp.Selection.TypeParagraph();                 
                myWordDoc.SaveAs(destination, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing); 
                myWordDoc.Close(notTrue, missing, missing); 
                myWordApp.Application.Quit(notTrue, missing, missing); 
                myWordApp = null; 
                
                Thread.Sleep(1); 
            } 
            catch { 
                Interaction.MsgBox("请安装 ms office 2003，本操作需要该系统。", MsgBoxStyle.Information, "提示"); 
            } 
            
            finally { 
                MessageBox.Show(this, "生成文档完成！"); 
            } 
            
        } 
        GC.Collect(); 
        
    }