难题，关于word,高手请进

Question

这是关于VBA的用法了，找一本VBA的书看看

Answer 1

VBA中将WORD的表格视为一个对象，对它的CELL赋值就行了

Answer 2

类似于在VB中调用EXCEL，对EXCEL中的单元格赋值一样

Answer 3

与表格的行数无关，可以随意多（分页时要把列标题COPY过来），主要是列要对应好，不能错开

Answer 4

'give the value to the cell
    Selection.TypeText Text:="b"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="c"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="c"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="c"    'insert one row
    Selection.InsertRowsBelow 1

Answer 5

按你的要求在word中录制宏 ，并按你的要求写完，结束录制。查看“宏”中的“编辑” 的代码就行了。

Answer 6

Set oTable = oDoc.Tables.Add(Range:=oDoc.Books("\EndOfDoc").Range, NumRows:=10, NumColumns:=20)Set oCell = oTable.Cell(iRow, iCol)
oCell.Range.InsertAfter "sdkjsh"