[求助]初学者编了段代码，遇到点小问题，请高人指点

duke008

Sub test1()
Dim j, nrecord, txtnumber As Integer
Set md = DBEngine.OpenDatabase("F:\学习\office\test\db1.mdb")
Set rs = md.OpenRecordset("car")
On Error Resume Next
rs.MoveLast
nrecord = rs.RecordCount
Set myTable = ActiveDocument.Tables.Add(Selection.Range, nrecord, 7)
On Error GoTo doerror
doerror:
For j = 1 To nrecord
If j = 1 Then rs.MoveFirst Else rs.MoveNext
myTable.Cell(j, 2).Range.InsertAfter rs.Fields("cpub")

'这里应该插一个“回车”，我不会做
myTable.Cell(j, 2).Range.InsertAfter rs.Fields("epub")
myTable.Cell(j, 3).Range.InsertAfter rs.Fields("Date")
myTable.Cell(j, 4).Range.InsertAfter rs.Fields("Loc")
myTable.Cell(j, 5).Range.InsertAfter rs.Fields("chead")

'这里应该插一个“回车”，我不会做
myTable.Cell(j, 5).Range.InsertAfter rs.Fields("ehead")
myTable.Cell(j, 6).Range.InsertAfter rs.Fields("author")
Next j
End Sub

写了个从access到word表格的程序，遇到几个小问题，望热心人解答。

1.想在生成表格之后，设置单元格中的段落居中，怎么做？

2.想在表格第一列加个自动编号，怎么做？

3.第二列和第五列都应该是有两个段落，我不会在中间加“回车”。

另：我如果把图片放到Access中，然后在word中能不能从access中读取该图片然后插到word文档中？

守柔

试试：

Sub test1()
Dim j As Integer, nrecord As Integer, txtnumber As Integer
Set md = DBEngine.OpenDatabase("F:\学习\office\test\db1.mdb")
Set rs = md.OpenRecordset("car")
On Error Resume Next
rs.MoveLast
nrecord = rs.RecordCount
Set mytable = ActiveDocument.Tables.Add(Selection.Range, nrecord, 7)
On Error GoTo doerror
doerror:
With rs
For j = 1 To nrecord
If j = 1 Then .MoveFirst Else .MoveNext
mytable.Cell(j, 1).Range = j '编号
mytable.Cell(j, 2).Range = .Fields("cpub") & Chr(13) & .Fields("epub")
mytable.Cell(j, 3).Range = .Fields("Date")
mytable.Cell(j, 4).Range = .Fields("Loc")
mytable.Cell(j, 5).Range = .Fields("chead") & Chr(13) & .Fields("ehead")
mytable.Cell(j, 6).Range = .Fields("author")
Next j
End With
mytable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
mytalbe.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End Sub
图片的话，你可以参考使用图片路径，然后搜索一下本版中，关于邮件合并中插入图片的贴子（使用域INCLUDEPICTURE ）