用VB驱动WORD画表格,在OFFICE2000下有表格,在OFFICE XP下没有表格,为什么?

Question

Set rngRange = objWord.ActiveDocument.Range
With rngRange
        .InsertParagraphAfter
        .InsertParagraphAfter
        .Collapse wdCollapseEnd
        .Tables.Add rngRange, RoomRow, RoomColumn
 
       .InsertBreak 
       .Tables.Add rngRange, RoomRow, RoomColumn
end with

Answer 1

这是microsoft的问题.你的问题我已遇到过。可以这样理解：在Excel XP下用代表产生的表格无外框。你可用如下代码画外框（请看如下示例）
with rngRange
    .Borders(wdBorderTop).LineStyle = wdLineStyleSingle 
    .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
    .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
    .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
end with