在Access中操作word文檔的問(wèn)題

ronaldxiexiea

請(qǐng)看這段代碼，從Access中調(diào)用word并進(jìn)行操作，為什么不行？ 如果截止到with bdoc上方，運(yùn)行都是可以的，也就是說(shuō)可以打開(kāi)，但是讓他進(jìn)行操作的時(shí)候，就不對(duì)了，下面的是對(duì)word的最基本vba，在word中直接運(yùn)行可以，但是從access中調(diào)用word,然后再運(yùn)行就不行了，大蝦請(qǐng)指點(diǎn)一下，word的運(yùn)行庫(kù)已經(jīng)引用了

Dim a as Object
Dim bdoc as Document  

Set a = New Word.Application
  a.Visible = True
  Set bdoc = a.Documents.Open("D:\ronald\office\Templates\Legacy\List.doc")
  
With bdoc
    Selection.MoveDown Unit:=wdLine, Count:=6
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeBackspace
End With

cqw

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
'注意事項(xiàng)：?jiǎn)螕粼诓藛?quot;工具"中的"引用"菜單項(xiàng)，彈出窗口，在列表框中選擇"Microsoft Word X Object Libaray"，單擊引用  
'
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

tmtony

除了引用對(duì)角，還要將 wdExtend EndKey wdLine等常量 內(nèi)容直接改成數(shù)字較好