//插入表格

OleObject lole_table



lole_table = ole_object.Application.ActiveDocument.Tables.Add(ole_object.Application.Selection.Range,2,2)

lole_table.Rows.WrapAroundText = True			//文字环绕

//设置表格

int i,j

string ls_cell_value[2,2]



ls_cell_value[1,1]="第一格"

ls_cell_value[1,2]="第二格"

ls_cell_value[2,1]="第一格"

ls_cell_value[2,2]="第二格"



for i =1 to 2

	for j=1 to 2

		lole_table.Cell(i,j).SetWidth(50,2)				//单元格宽度

		lole_table.Cell(i,j).Range.ParagraphFormat.Alignment = 1				//水平对齐

		

		lole_table.Cell(i,j).Borders[wdBorderTop].LineStyle    = wdLineStyleSingle		//边框类型

		lole_table.Cell(i,j).Borders[wdBorderBottom].LineStyle = wdLineStyleSingle

		lole_table.Cell(i,j).Borders[wdBorderLeft].LineStyle   = wdLineStyleSingle

		lole_table.Cell(i,j).Borders[wdBorderRight].LineStyle  = wdLineStyleSingle

		

		//字体、字号、加粗、斜体、下划线

		lole_table.Cell(i,j).Range.Font.Name      = "宋体"

		lole_table.Cell(i,j).Range.Font.Size      = "10"

		//lole_table.Cell(i,j).Range.Font.Bold      = True

		//lole_table.Cell(i,j).Range.Font.Italic    = True

		//lole_table.Cell(i,j).Range.Font.Underline = 1

		

		lole_table.Cell(i,j).Range.Text = ls_cell_value[i,j]

		

	next

next