如何将word第二页载入到ole对象中

oldy25

如何将word的后几页载入到ole对象中啊

goodidea

用word.application对象打开WORD文件,把第二页以后的内容提取出来存为新文件,再存入ACCESS

jiangshan197

怎么提取第二页呀？

jiangshan197

难道要手工提取吗？

jiangshan197

顶

zhuyiwen

    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为第二页的范围