VBA、Word和数据库的联合编程(2)

  For k = 1 To 5
   totalnumber = mydoc1.Bookmarks.Count '已存在的书签数
   For i = totalnumber To 1 Step -1
    bname = rs.Fields(aname(k))
    If UCase$(mydoc1.Bookmarks(i).name) = UCase$(aname(k)) Then
     mydoc1.Bookmarks(i).Select
     Selection.TypeText Text:=bname
    End If
   Next i
  Next k
  Selection.MoveDown Unit:=wdLine, Count:=4
  If m < nrecord Then
   mydoc2.Activate
   range2.Copy
   mydoc1.Activate
   Selection.Paste
  End If
 Next m
 Documents(mydoc2).Close savechanges:=wdDoNotSaveChanges
End Sub