简单Word操作

本文提供了一段使用VBScript实现的代码,用于创建、打开、导入Word模板、添加表格、合并与分离单元格以及通过段落控制插入的详细步骤。此示例适用于了解VBScript与Word文档交互的基础开发者。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

        //创建空白Word文档
        private void button1_Click(object sender, EventArgs e)
        {
            object missing = Missing.Value;
            Word.Application app = new Word.Application();

            Word.Document document = app.Documents.Add(ref missing, ref missing, ref missing, ref missing);
            app.Visible = true;
        }
        public string path = WordPath.GetWordDataFullFileName("word.doc");

        //打开word文档
        private void button2_Click(object sender, EventArgs e)
        {
            object missing = Missing.Value;
            Word.Application app = new Word.Application();
            app.Visible = true;
            object fileName = path;
            Word.Document document = app.Documents.Open(ref fileName);
        }


        //导入word模板
        private void button3_Click(object sender, EventArgs e)
        {
            object missing = Missing.Value;
            Word.Application app = new Word.Application();
            app.Visible = true;
            object filename = WordPath.GetWordDataFullFileName("model.doc");
            Word.Document document = app.Documents.Add(ref filename);
        }


        //添加表, 表插入行
        private void button4_Click(object sender, EventArgs e)
        {
            object missing = Missing.Value;
            Word.Application app = new Word.Application();
            app.Visible = true;
            Word.Document document = app.Documents.Add();

            object start = 0;
            object end=0;
            Word.Range tableLocation = document.Range(ref start,ref end);
            document.Tables.Add(tableLocation,3,4,ref missing,ref missing);

            Word.Table newTable = document.Tables[1];
            object beforeRow = newTable.Rows[1];
            newTable.Rows.Add(ref beforeRow);
        }


        //合并单元格
        private void button5_Click(object sender, EventArgs e)
        {
            object missing = Missing.Value;
            Word.Application app = new Word.Application();
            app.Visible = true;
            Word.Document doc = app.Documents.Add();

            object start = 0;
            object end = 0;
            Word.Range tableLocation = doc.Range(ref start, ref end);
            doc.Tables.Add(tableLocation, 3, 4, ref missing, ref missing);

            Word.Table newTable = doc.Tables[1];
            object beforeRow = newTable.Rows[1];
            newTable.Rows.Add(ref beforeRow);
            //合并单元格
            Word.Cell cell = newTable.Cell(1, 1);
            cell.Merge(newTable.Cell(1, 2));
            //单元格插入数据
            cell.Range.Text = "this is Cell(1,1)";
        }
        //分离单元格
        private void button6_Click(object sender, EventArgs e)
        {
            object missing = Missing.Value;
            Word.Application app = new Word.Application();
            app.Visible = true;
            Word.Document doc = app.Documents.Add();

            object start = 0;
            object end = 0;
            Word.Range tableLocation = doc.Range(ref start, ref end);
            doc.Tables.Add(tableLocation, 3, 4, ref missing, ref missing);

            Word.Table newTable = doc.Tables[1];
            object beforeRow = newTable.Rows[1];
            newTable.Rows.Add(ref beforeRow);
            //合并单元格
            Word.Cell cell = newTable.Cell(1, 1);
            cell.Merge(newTable.Cell(1, 2));
            //分离单元格
            object Rownum = 2;
            object Columnnum = 2;
            cell.Split(ref Rownum, ref Columnnum);
        }

        //通过段落控制插入
        private void button7_Click(object sender, EventArgs e)
        {
            object missing = Missing.Value;
            object endOfDoc = "\\endofdoc";

            Word.Application app = new Word.Application();
            app.Visible = true;
            Word.Document doc = app.Documents.Add();

            Word.Paragraph para = doc.Content.Paragraphs.Add(ref missing);
            para.Range.Text = "Heading 1";
            para.Range.Font.Bold = 1;
            para.Format.SpaceAfter = 24;
            para.Range.InsertParagraphAfter();
        }

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值