VBA、Word和数据库的联合编程(2)
说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:
xuecool-com或QQ：
370150219 处理（尽可能给您提供完整文档），感谢您的支持与谅解。
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
百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典计算机VBA、Word和数据库的联合编程(2)在线全文阅读。
VBA、Word和数据库的联合编程(2).doc
将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印
下载失败或者文档不完整，请联系客服人员解决！
