您的位置：程序门 -> vb -> vba



边框设置


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


边框设置[无满意答案结贴,结贴人:luckyboy101]
发表于：2007-12-11 19:22:21 楼主
我用了三个表格
dim   wordapp   as   new   word.application（)
                        dim   mydoc   as   word.document
                        dim   otable   as   word.table
                        dim   otable1   as   word.table
                        dim   otable2   as   word.table

                        wordapp.documents.add（)
                        mydoc   =   wordapp.activedocument


                        otable   =   mydoc.tables.add（range:=mydoc.range（start:=0,   end:=0),   numrows:=8,   numcolumns:=1)
                       
                        otable.borders.insidelinestyle   =   0
                        otable.borders.outsidelinestyle   =   0


  otable1   =   mydoc.tables.add（range:=mydoc.range（start:=mydoc.range.end   -   1,   end:=mydoc.range.end),   numrows:=1   +   rows1,   numcolumns:=8)
                        otable1.borders.insidelinestyle   =   1
                        otable1.borders.outsidelinestyle   =   1


otable2   =   mydoc.tables.add（range:=mydoc.range（start:=mydoc.range.end   -   1,   end:=mydoc.range.end),   numrows:=7   *   dgrow   +   6,   numcolumns:=1)
                        otable2.borders.insidelinestyle   =   0
                        otable2.borders.outsidelinestyle   =   0


我想第二个表格显示边框，其他两个边框不显示表格，怎么不能实现？

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击