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

   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

共2页: 上一页 [1] 2

单向可Ping通的原因与原理
基于LINUX操作系统的防火墙技术及其具体实现