如何將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為第二頁的范圍