• 主页
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言
山野村夫 2015年11月27日
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
...全文
239 点赞 收藏 1
写回复
1 条回复

还没有回复,快来抢沙发~

发动态
发帖子
PowerBuilder
创建于2007-09-28

583

社区成员

6.6w+

社区内容

PowerBuilder 相关问题讨论
社区公告
暂无公告