VB访问word书签。'实现代码如下DimcnAsNewADODB.ConnectionDimAdoRsAsNewADODB.RecordsetDimWordTempsAsNewWord.ApplicationPrivateSubForm_Load()Ifcn.State=1Thencn.CloseEndIfcn.CursorLocation=adUseClientcn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\db1.mdb"EndSu