高校问答小米盒子内存卡:VB：在线等，如何判断WORD第一单元格是否存在斜线表头？
来源：百度文库 编辑：高校问答 时间：2024/05/03 10:14:15
已正确引用WORD库，使用如下代码
Set wdTableDoc = wdApp.Documents.Open(2.doc")
If wdTableDoc.Tables.Count > 0 Then
If wdTableDoc.Tables(1).Cell(1, 1).Borders(wdBorderDiagonalDown) Then
msgbox"包含斜线表头"
else
msgbox"不包含斜线表头"
end if
end if
为什么总提示说“不包含斜线表头呢”，我可确实插入了斜线表头，问题在哪？代码是否需要修改。
注：WORD2003/VB60/WINDOWS2000
lmanman,你说的没错确实不顶用，可是一般来说就是用这种方法加入斜线表头呀，那这样加入的表头用什么代码来判断呀。我总不能为了写一个评分软件就要求考生再用VB去画表头吧。
Set wdTableDoc = wdApp.Documents.Open(2.doc")
If wdTableDoc.Tables.Count > 0 Then
If wdTableDoc.Tables(1).Cell(1, 1).Borders(wdBorderDiagonalDown) Then
msgbox"包含斜线表头"
else
msgbox"不包含斜线表头"
end if
end if
为什么总提示说“不包含斜线表头呢”，我可确实插入了斜线表头，问题在哪？代码是否需要修改。
注：WORD2003/VB60/WINDOWS2000
lmanman,你说的没错确实不顶用，可是一般来说就是用这种方法加入斜线表头呀，那这样加入的表头用什么代码来判断呀。我总不能为了写一个评分软件就要求考生再用VB去画表头吧。
没有太好的办法，WORD2000下可用到WORD2003就不能用，WORD2000下表头可以随表格移动而移动WORD2003下却不能了，两个版是有区别的。如果程序是想用来进行评分，就不要考查这个内容了，斜线表头连微软自己也没有处理好，而且现在的数字时代对加入了斜线表头的表格数据处理也要复杂的多，实在是好处多于坏外。
你用word里的“绘制斜线表头”绘制出来的斜线不顶用，你用VB里的绘制斜线的命令绘制一条就行了。
wdtabledoc.Tables(1).Cell(1, 1).Borders(wdBorderDiagonalDown).LineStyle = Options.DefaultBorderLineStyle