Word插入表格后，光标需要跳出表格到文档最末端，如何搞？

[山野村夫]

先分享下插入表格并设置文字及字体等

//插入表格
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

[山野村夫]

已找到 CSDN已经没几个活人了啊