Office中国论坛/Access中国论坛

标题: word这种功能在access里代码怎么写呢? [打印本页]

作者: 简 时间: 2009-10-22 12:35
标题: word这种功能在access里代码怎么写呢?
我遇到的问题是这样的：
我们建立的文档里带有域，从ACCESS传送数据到word域里后，选中该整篇文档，断开所有域链接。
在wordVBA里，“选中该整篇文档，断开所有域链接”的代码是：
selection.wholestory
selection.fields.unlink

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

作者: zhengjialon 时间: 2009-10-22 15:34
首先引用一下WORD的对象，建立一个WORD的实例，就可以像在WORD中一样操作了

作者: xucl 时间: 2009-10-22 17:15
学习了一回！

作者: 简 时间: 2009-10-22 20:14
回复二楼,我设置了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 时间: 2009-10-23 10:52
这样可以不?
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 时间: 2009-10-23 10:54
word对象的引用,最好是先绑定,不要用Set n = CreateObject("word.application")这种形式,否则代码中的word常数都要重新写.

作者: 简 时间: 2009-10-23 15:27

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

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

有没有例子可以参考呢?

作者: joewil0123 时间: 2009-10-23 16:33

不懂

作者: joewil0123 时间: 2009-10-23 16:44
加油

作者: 简 时间: 2009-10-25 22:35

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

问题没搞懂，自己顶顶。

作者: 简 时间: 2009-10-25 22:36
如果我要在指定的行后插入一行，代码又是怎么写呢。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)