constant long wdWord9TableBehavior = 0
constant long wdAutoFitFixed = 0 //1按字段值宽度，0 word 宽度?
constant long wdCell = 12
//constant long wdColorWhite=0
long j,k,ll_colnum,ll_rownum
string ls_value,ls_colname
ll_colnum = Long(dw_2.object.datawindow.column.count)
ll_rownum = dw_2.rowcount() //+ 1
myword.selection.goto(true,0,0,"表格") //写标签位置,重要
myword.ActiveDocument.Tables.Add(myword.Selection.Range, ll_rownum , ll_colnum - 1,wdWord9TableBehavior,wdAutoFitFixed)
//myword.ActiveDocument.Tables.Add(myword.Selection.Range, ll_rownum , ll_colnum - 1,wdWord9TableBehavior,wdAutoFitFixed,wdColorWhite)
//myword.ActiveDocument.Tables.Range.Font.Color=rgb(245,0,0)
////输出清单表头
//dw_2.setredraw(false)
myword.Selection.MoveLeft(wdCell)
for i = 1 to ll_colnum
ls_colname = trim( dw_2.describe( "#" + string(i) + ".name ") + "_t ")
if ls_colname="voteresult_cid_t" then continue
choose case ls_colname
case "candidate_name_t"
ls_value ="候选人"
case "zc_t"
if ls_head='1' or ls_head='2' then
ls_value ="赞成票"
end if
if ls_head='3' or ls_head='4' then
ls_value ="同意票"
end if
case "fd_t"
choose case ls_head
case '1'
ls_value ="不赞成票"
case '3'
ls_value ="不同意票"
case '2','4'
ls_value ="反对票"
end choose
case "qq_t"
ls_value ="弃权票"
case "bj_t"
ls_value ="个人无效票"
end choose
myword.Selection.Font.name = "黑体"
myword.Selection.Font.Size = 14
myword.Selection.ParagraphFormat.Alignment = 1 //居中
myword.Selection.TypeText(trim(ls_value))
myword.Selection.MoveRight(wdCell)
next
//进度条//最大值为表行数,写候选人详细得票记录
hpb_1.maxposition=ll_rownum
hpb_1.position=0
hpb_1.setstep=1
myword.Selection.MoveLeft(wdCell)
for i = 1 to ll_rownum
hpb_1.stepit()
for j = 1 to ll_colnum
ls_colname = trim( dw_2.describe( "#" + string(j) + ".name "))
if ls_colname="voteresult_cid" then continue
choose case ls_colname
case "candidate_name"
ls_value = dw_2.object.candidate_name[i]
case "zc"
ls_value =string( dw_2.object.zc[i])
case "fd"
ls_value =string( dw_2.object.fd[i])
case "qq"
ls_value =string( dw_2.object.qq[i])
case "bj"
ls_value =string( dw_2.object.bj[i])
end choose
myword.Selection.ParagraphFormat.Alignment = 1 //居中
myword.Selection.MoveRight(wdCell)
myword.Selection.Font.name = "宋体"
myword.Selection.Font.Size = 11
myword.Selection.TypeText(ls_value)
// for k = 1 to f_getcnnum(ls_value)
// myword.Selection.TypeBackspace()
// next
next
next
以上是我写Word的代码，现在的问题是，我想把表线不让用户看到，最好的办法是改为白色，如何做？高手指点！
------解决方案--------------------
constant long wdBorderLeft = -2
constant long wdBorderRight = -4
constant long wdBorderTop = -1
constant long wdBorderBottom = -3
constant long wdBorderHorizontal = -5
constant long wdBorderVertical = -6
myword.Selection.Tables[1].Borders[wdBorderLeft].color = rgb(255,255,255)myword.Selection.Tables[1].Borders[wdBorderRight].color = rgb(255,255,255)