Office中国论坛/Access中国论坛

标题: 如何将word第二页载入到ole对象中 [打印本页]

作者: oldy25 时间: 2004-1-14 01:44
标题: 如何将word第二页载入到ole对象中
如何将word的后几页载入到ole对象中啊

作者: goodidea 时间: 2004-1-14 03:15
用word.application对象打开WORD文件,把第二页以后的内容提取出来存为新文件,再存入ACCESS

作者: jiangshan197 时间: 2004-1-15 07:23
怎么提取第二页呀？

作者: jiangshan197 时间: 2004-1-16 20:36
难道要手工提取吗？

作者: jiangshan197 时间: 2004-1-18 07:44
顶

作者: zhuyiwen 时间: 2004-1-18 19:01
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为第二页的范围

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