Sub 宏1()
'
' 宏1 宏
'
'
Dim MyRange As Range
Dim myTable As Table
Dim tblNew As Table
Set MyRange = Selection.Document.Content
MyRange.Collapse Direction:=wdCollapseEnd
Set tblNew = Selection.Document.Tables.Add(Range:=MyRange, NumRows:=6, NumColumns:=4)

With tblNew

.Cell(1, 1).Range.InsertAfter "名　称"
.Cell(1, 2).Range.InsertAfter "竖向力(kN)"
.Cell(1, 3).Range.InsertAfter "偏心矩e(m)"
.Cell(1, 4).Range.InsertAfter "弯　矩(kNm)"

.Cell(2, 1).Range.InsertAfter "P1"
.Cell(3, 1).Range.InsertAfter "P2"
.Cell(4, 1).Range.InsertAfter "P3"
.Cell(5, 1).Range.InsertAfter "P4"
.Cell(6, 1).Range.InsertAfter "∑P"

.Columns.Select

'将表的下边框设置为效果单实线，线宽1.5磅
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt

.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineWidth = wdLineWidth150pt

.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineWidth = wdLineWidth150pt

.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth150pt

.Borders(wdBorderHorizontal).LineStyle = Options.DefaultBorderLineStyle
.Borders(wdBorderHorizontal).LineWidth = Options.DefaultBorderLineWidth

.Borders(wdBorderVertical).LineStyle = Options.DefaultBorderLineStyle
.Borders(wdBorderVertical).LineWidth = Options.DefaultBorderLineWidth

.Columns.Select
End With
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '选中的对象内所有内容居中

End Sub
 
 

 
import com.spire.doc.*;
 
import com.spire.doc.documents.*;
 
import com.spire.doc.fields.DocPicture;
 
import com.spire.doc.fields.TextRange;
 
import java.awt.*;
 
public class CreateTable {
 
public static void main(String[] args){
 
//创建Document对象
 
Document doc = new Document();
 
Section sec = doc.addSection();
 
//声明数组内容
 
String[] header = {"班级","姓名","性别", "学号", "专业成绩"};
 
String[][] data =
 
{
 
new String[]{"一班","王丽", "女", "Y1256486", "138"},
 
new String[]{"一班","洪菲菲", "女", "Y5425875", "134"},
 
new String[]{"二班","刘洋", "男", "B1546258", "141"},
 
new String[]{"三班","冯刚", "男", "B1542367", "136"},
 
new String[]{"三班","刘思源", "男", "Z1263547", "133"},
 
};
 
//添加表格
 
Table table = sec.addTable(true);
 
//设置表格的行数和列数
 
table.resetCells(data.length + 1, header.length);
 
//设置表格第一行作为表头，写入表头数组内容，并格式化表头数据
 
TableRow row = table.getRows().get(0);
 
row.isHeader(true);
 
row.setHeight(20);
 
row.setHeightType(TableRowHeightType.Exactly);
 
row.getRowFormat().setBackColor(Color.ORANGE);
 
for (int i = 0; i < header.length; i++) {
 
row.getCells().get(i).getCellFormat().setVerticalAlignment(VerticalAlignment.Middle);
 
Paragraph p = row.getCells().get(i).addParagraph();
 
p.getFormat().setHorizontalAlignment(HorizontalAlignment.Center);
 
TextRange range1 = p.appendText(header[i]);
 
range1.getCharacterFormat().setFontName("Arial");
 
range1.getCharacterFormat().setFontSize(12f);
 
range1.getCharacterFormat().setBold(true);
 
range1.getCharacterFormat().setTextColor(Color.white);
 
}
 
//写入剩余组内容到表格，并格式化数据
 
for (int r = 0; r < data.length; r++) {
 
TableRow dataRow = table.getRows().get(r + 1);
 
dataRow.setHeight(25);
 
dataRow.setHeightType(TableRowHeightType.Exactly);
 
dataRow.getRowFormat().setBackColor(Color.white);
 
for (int c = 0; c < data[r].length; c++) {
 
dataRow.getCells().get(c).getCellFormat().setVerticalAlignment(VerticalAlignment.Middle);
 
TextRange range2 = dataRow.getCells().get(c).addParagraph().appendText(data[r][c]);
 
range2.getOwnerParagraph().getFormat().setHorizontalAlignment(HorizontalAlignment.Center);
 
range2.getCharacterFormat().setFontName("Arial");
 
range2.getCharacterFormat().setFontSize(10f);
 
}
 
}
 
//纵向合并指定单元格
 
table.applyVerticalMerge(0,1,2);
 
table.applyVerticalMerge(0,4,5);
 
//插入图片到指定单元格
 
DocPicture dp = table.getRows().get(1).getCells().get(0).addParagraph().appendPicture("1.png");
 
dp.getOwnerParagraph().getFormat().setHorizontalAlignment(HorizontalAlignment.Center);
 
//设置单元格背景颜色
 
for (int j = 1; j < table.getRows().getCount(); j++) {
 
if (j % 2 == 0) {
 
TableRow row2 = table.getRows().get(j);
 
for (int f = 1; f < row2.getCells().getCount(); f++) {
 
row2.getCells().get(f).getCellFormat().setBackColor(new Color(144,238,144));
 
}
 
}
 
}
 
//设置表格边框样式
 
table.getTableFormat().getBorders().setBorderType(BorderStyle.Thick_Thin_Large_Gap);
 
//保存文档
 
doc.saveToFile("CreateTable.docx", FileFormat.Docx_2013);
 
}
 
}

 
Word2010中怎样用画笔绘制表格
 
使用Word2010制作表格时，我们不仅需要通过指定行和列的方法制作规范的表格，有时还需要制作不规范的表格，这时就可以使用画笔进行绘制表格操作。
 
一、绘制表格
 
1、打开Word2010文档页面，单击“插入”选项卡。
 

 
2、单击“表格”按钮，在菜单中选择“绘制表格”命令。
 

 
3、鼠标指针变成铅笔形状，拖动鼠标左键绘制表格边框、行和列。
 

 
4、绘制完成表格后，按ESC键或者在“设计”选项卡中单击“绘制表格”按钮取消绘制表格状态。
 

 
二、擦除表格
 
1、在绘制表格时如果需要删除行或列，则可以单击“设计”选项卡的“擦除”按钮。
 

 
2、当指针变成橡皮擦形状时拖动鼠标左键即可删除行或列。按ESC键可以取消擦除状态。
 

 
Word2010简介
 
Word2010提供了世界上最出色的功能，其增强后的功能可创建专业水准的文档，您可以更加轻松地与他人协同工作并可在任何地点访问您的文件。
 
Word2010旨在向您提供最上乘的文档格式设置工具，利用它还可更轻松、高效地组织和编写文档，并使这些文档唾手可得，无论何时何地灵感迸发，都可捕获这些灵感。

 
回答：
 
Word表格教程:制作表格
 
在Word 中有3种制作表格的方法。
 
一、从工具栏快捷按钮插入
 
单击“常用”工具栏上的“插入表格”按钮，然后拖动鼠标选定所需的表格行数和列数即可创建一个规则的表格。如下图：
 
二、从菜单插入。
 
1、单击菜单栏“表格——插入——表格”，如下图：
 
2、出现“插入表格”窗口，在“表格尺寸”选项区中指定表格所需要的列数和行数，可以直接输入数字，也单击旁边的箭头输入，例如5列4行。单击“确定”按钮。如下图：l
 
3、得出一个5列4行的表格，如下图：
 
三、手动绘制。
 
采用上述方法制作的都是规则表格，即行与行、列与列之间等距。但很多时候，我们需要制作一些不规则的表格，这时可以使用绘制表格的方法来完成此项工作。
 
1、单击菜单栏“表格——绘制表格”，如下图：
 
2、出现“表格和边框”浮动工具条，同时鼠标箭头自动变为一支笔的形状，如下图：
 
2、在需要插入表格的位置按下鼠标左键并向右下方拖动，在适当的位置松鼠标，即可得到一个表格框。
 
3、单击“表格和边框”工具条右上角的“绘制表格”按钮，鼠标箭头变为一支笔的形状，拖动鼠标就可以随意在画好的表格框上画表格直线了，包括横线、竖线、斜线。如下图：
 
4、如果要清除表格中不需要的边框线时，单击“表格和边框”工具栏上的“擦除”按钮，这时鼠标指针就变成橡皮擦形状，将其移到需要擦除的边框线处，按住鼠标左键并沿边框线拖动鼠标，即可将边框线擦除。如下图
 
Word表格教程:表格(单元格、行、列)的选择、移动、复制、删除
 
1、选择单元格内容。拖动鼠标可以选择单元格内的内容。在单元格内双击鼠标可以选择单元格内的全部内容。
 
2、选择多个单元格。拖动鼠标选择，如下图：
 
3、选择列。把鼠标移到列的顶部，鼠标箭头变为向下的箭头，单击即可选择整列，如下图。这时按住键盘上的Ctrl键再单击可以选择不连续的多列。这时拖动鼠标则可选择连续的多列。
 
4、选择整行。把鼠标移到行的左边，鼠标箭头变为向右的箭头，单击即可选择整列，如下图。这时按住键盘上的Ctrl键再单击可以选择不连续的多行。这时拖动鼠标则可选择连续的多行。
 
5、选择整个表格。把鼠标移动表格内或者在表格线上单击时，表格的左上角会出现一个带方框的十字箭头，如下图：
 
这时把鼠标移到这个带方框的十字箭头上，鼠标箭头也会出现十字箭头，单击则选择整个表格，如下图：
 
6、移动、复制、删除。当表格左上角出现带方框的十字箭头时，把鼠标移到上面单击右键，出现右键菜单，就可以对表格进行剪切、复制、粘贴了，如下图。需要注意的是，当我们选择整个表格后，按键盘上的删除键并不能删除表格，只是删除了表格的内容，必须选择剪切才能连表格一起删除
 
Word表格教程: 调整表格的行高、列宽
 
1、调整行高。将鼠标指针指向需要更改其宽度的行的下边线上，直到指针变为双向箭头形状，然后向下拖动边线，直到得到所需要的宽度为止。如下图：
 
2、将鼠标指针指向需要更改其宽度的列的右边线上，直到指针变为双向箭头形状，然后向右拖动边线，直到得到所需要的宽度为止。如下图：
 
3、平均各行的高度。如果多行需要具有同样的高度，请选定这些行，然后在选择区域内单击右键，出现右键菜单，单击选择“平均分布各行”，如下图：
 
4、如果需要多列具有同样的宽度，请选定这些列，然后在选择区域内单击右键，出现右键菜单，单击选择“平均分布各列”，如下图：
 
Word表格教程:设置文字方向
 
1、在需要改变文字方向的单元格内右键鼠标，出现右键菜单击“文字方向”，如下图：
 
2、出现“文字方向——表格单元格”窗口，原来是从左到右的横向文字，如下图：
 
3、选择需要的文字方向，如下图选择从上而下的竖向文字方向，从右边的预览区域可以看到效果，然后单击“确定”，如下图：