请教如何控制WORD文档中表格各个列（columns）的宽度（急！）

Question

Width 属性示例本示例实现的功能是：在新文档中创建一张 5 x 5 的表格，然后将第一个单元格的宽度设为 1.5 英寸。Set newDoc = Documents.Add
Set myTable = _
    newDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _
    NumColumns:=5)
myTable.Cell(1, 1).Width = InchesToPoints(1.5)
本示例返回插入点所在的单元格宽度（以磅为单位）。If Selection.Information(wdWithInTable) = True Then
    MsgBox PointsToInches(Selection.Cells(1).Width)
End If
本示例实现的功能是：将包含选定内容的节的格式设置为三栏。For Each...Next 循环用于显示 TextColumns 集合中每栏的宽度。Selection.PageSetup.TextColumns.SetCount NumColumns:=3
For Each acol In Selection.PageSetup.TextColumns
    MsgBox "Width= " & PointsToInches(acol.Width)
Next acol
本示例设置 Microsoft Word 应用窗口的宽度和高度。With Application
    .WindowState = wdWindowStateNormal
    .Width = 500
    .Height = 400
End With
本示例设置指定 Frameset 对象的宽度为窗口宽度的 25% 。With ActiveWindow.ActivePane.Frameset
    .WidthType = wdFramesetSizeTypePercent
    .Width = 25
End WithPS: 如果还有什么不清楚的，可以参考Word的帮助文件。

Answer 1

word的帮主文档在安装光盘里  而且会看得你眼花 呵呵

Answer 2

那倒不用，只需要参考wdmain9.chm“与编程有关的信息”目录就可以了，这个帮助文件就是每次你点击Word帮助菜单时候用的主帮助文件。

Answer 3

word.Columns.ColumnWidth:=XXXXXXX;
应该是这句吧！

Answer 4

差不多，myTable.Cell(1, 1).Width = InchesToPoints(1.5）
设定单个单元格的宽度word.Columns.ColumnWidth:=XXXXXXX;
设定单列宽度

Answer 5

本示例设置插入所在的单元格宽度为 36 磅。本示例缩小第一列的宽度以保持表格的右边界位置。If Selection.Information(wdWithInTable) = True Then
    Selection.Cells(1).SetWidth ColumnWidth:=36, _
        RulerStyle:=wdAdjustFirstColumn
Else
    MsgBox "The insertion point is not in a table."
End If