word这种功能在access里代码怎么写呢?

简

我遇到的问题是这样的：
我们建立的文档里带有域，从ACCESS传送数据到word域里后，选中该整篇文档，断开所有域链接。
在wordVBA里，“选中该整篇文档，断开所有域链接”的代码是：
selection.wholestory
selection.fields.unlink

那么，在ACCESS里操作word，上面那两段代码又该怎么修改呢？

zhengjialon

首先引用一下WORD的对象，建立一个WORD的实例，就可以像在WORD中一样操作了

xucl

学习了一回！

简

回复二楼,我设置了word对象的,但使用中老是出错
'----------------------------------------------------------------------------------------------
    Set n = CreateObject("word.application")
        n.Visible = False
        DoCmd.Hourglass True
        
        strpath = mobanPath & "\" & strfrmName & ".doc"         
        n.Documents.Open FileName:=strpath  
        n.Documents(strfrmName).saveas FileName:=strgyName, Password:=""
        
        Set wordDoc = n.Documents.Open(strgyName)
         ......
         ......
         selection.wholestory
         selection.fields.unlink
'------------------------------------------------------------------------------

请你看看,我该怎么修改呢?

另外,我在access控制word,想在word表里增加一行,或者删除一行,我又该怎么写代码呢?

请帮忙解决,在此先谢了~~~

sgrshh29

这样可以不?
Set n = CreateObject("word.application")
...... ......
n.selection.wholestory
n.selection.fields.unlink ...... ......

删除一行:
n.Selection.EndKey unit:=wdLine, Extend:=wdExtend
n.Selection.Delete

增加一行:
n. Selection.TypeParagraph

sgrshh29

word对象的引用,最好是先绑定,不要用Set n = CreateObject("word.application")这种形式,否则代码中的word常数都要重新写.

简

word对象的引用,最好是先绑定,不要用Set n = CreateObject("word.application")这种形式,否则代码中的word常数都要重新写.
sgrshh29 发表于 2009-10-23 10:54

那请问一下,如果我要绑定,又该怎么写呢?

有没有例子可以参考呢?

joewil0123

不懂

joewil0123

加油

简

word对象的引用,最好是先绑定,不要用Set n = CreateObject("word.application")这种形式,否则代码中的word常数都要重新写.
sgrshh29 发表于 2009-10-23 10:54

问题没搞懂，自己顶顶。