设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2047|回复: 5

[宏/菜单/工具栏] 如何将word第二页载入到ole对象中

[复制链接]
发表于 2004-1-14 01:44:00 | 显示全部楼层 |阅读模式
如何将word的后几页载入到ole对象中啊
发表于 2004-1-14 03:15:00 | 显示全部楼层
用word.application对象打开WORD文件,把第二页以后的内容提取出来存为新文件,再存入ACCESS
发表于 2004-1-15 07:23:00 | 显示全部楼层
怎么提取第二页呀?
发表于 2004-1-16 20:36:00 | 显示全部楼层
难道要手工提取吗?
发表于 2004-1-18 07:44:00 | 显示全部楼层

点击这里给我发消息

发表于 2004-1-18 19:01:00 | 显示全部楼层
    Dim n As Integer
    Dim rs As Integer
    Dim re As Integer
    Dim rng As Range
   
    n = ActiveDocument.ActiveWindow.Panes(1).Pages(2).Rectangles.Count
    If n > 0 Then
        rs = ActiveDocument.ActiveWindow.Panes(1).Pages(2).Rectangles(1).Range.Start
        re = ActiveDocument.ActiveWindow.Panes(1).Pages(2).Rectangles(n).Range.End
        
        Set rng = ActiveDocument.Range(rs, re)
        
        Debug.Print rng.Text
        rng.Copy
    End If

其中rng为第二页的范围
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-28 23:33 , Processed in 0.099320 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表