怎么样用WORD VBA 在如附件所示的灰色区域插入表格

dingyeah

怎么样用WORD VBA 在如附件所示的灰色区域插入表格，下面文字随表格行数向下移动。谢谢！

duquancai

看不懂啥意思！！！

dingyeah

duquancai 发表于 2017-11-27 23:37
看不懂啥意思！！！

就是在灰色区域插入5行7例的表格，谢谢

jiminyanyan

用书签吧.....我这是C#,VBA代码你自己改一下吧....

1. foreach (Bookmark bk in doc.Bookmarks)
   
2.             {
   
3.                 if (bk.Name == "marks")
   
4.                 {
   
5.                     Range range = bk.Range;
   
6.                     range.Tables.Add(range, 3, 2);
   
7.                     Table tb = range.Tables[1];
   
8.                     tb.Cell(1, 1).Range.Text = "姓名";
   
9.                     tb.Cell(1, 2).Range.Text = "成绩";
   
10.                     tb.Cell(2, 1).Range.Text = "张三";
    
11.                     tb.Cell(2, 2).Range.Text = "89";
    
12.                     tb.Cell(3, 1).Range.Text = "李四";
    
13.                     tb.Cell(3, 2).Range.Text = "98";
    
14.                    tb.Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle;//设置内边框为单线
    
15.                     tb.Borders .OutsideLineStyle= WdLineStyle.wdLineStyleSingle;
    
16.                     tb.Range.Font.Size = 12;//设置表格的字体大小
    
17. 
    
18.                 }

复制代码