[求助]关于提取word文档中内容的方法

skyya

我碰到一个问题想请教大家

     如下一个文档中，我有一张照片，为了提取我定义了一个书签aaa，现在我想在另一个word中使用这张图，有没有办法，VBA中不打开这个含图的文档，而拷贝这条图来使用？

因为我使用打开，拷好再关上的话，文档抖动很大，而且有点慢！

5GmsxnJj.rar (7.74 KB, 下载次数: 17)

2007-2-11 14:05 上传

点击文件名下载附件
[求助]关于提取word文档中内容的方法

守柔

QUOTE:

以下是引用skyya在2007-2-11 14:05:22的发言：

我碰到一个问题想请教大家

     如下一个文档中，我有一张照片，为了提取我定义了一个书签aaa，现在我想在另一个word中使用这张图，有没有办法，VBA中不打开这个含图的文档，而拷贝这条图来使用？

因为我使用打开，拷好再关上的话，文档抖动很大，而且有点慢！

请参考：

Sub Example()
    Dim myPath As String
    myPath = "C:\Documents and Settings\shourou\My Documents\1.doc"
    Selection.InsertFile FileName:=myPath, Range:="aaa", ConfirmConversions:= _
                         False, Link:=False, Attachment:=False
End Sub

skyya

真是太神了你守版主，我对老大真是感激加崇拜呀，谢谢你，我一定好好学习！

  另外多问一下，可不可反过来做呀，即将打开文档的bbb内容，在不打开1.doc的前提下写入呢（老大不要骂我）

守柔

QUOTE:

以下是引用skyya在2007-2-12 23:20:48的发言：

  另外多问一下，可不可反过来做呀，即将打开文档的bbb内容，在不打开1.doc的前提下写入呢？

我觉得可以在隐藏打开方式下写入非常方便。

如果必须不打开，是否可以直接考虑使用命令行中的COPY命令呢？请参：http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=45969&id=107967&page=1&skin=0&Star=3第28楼中的方法。

在VBA方式下也许可以完成上述链接中的变通方法，我没有测试过，楼主可以自行处理一下。