提取表格行字 VBA

如何解决提取表格行字 VBA

我不确定为什么这段代码不起作用，但如果能帮助解决这个问题，我们将不胜感激。

如何选择范围的开头作为表格的第 5 行？

谢谢。

Sub ExtractTable()

    Dim oTable As Table
    Dim odoc As Document
    Dim oNewDoc As Document
    Dim oRange As Range
    Dim iRow As Row
    Const HeaderRowsToSkip As Long = 4

    Set odoc = ActiveDocument
    Set oNewDoc = Documents.Add("C:\dcam\Setup Sheets\lineup-sheet-template.html")
    Set oTable = ActiveDocument.Tables(1)

    With oTable
    
        Set oRange = odoc.Tables(1).Range
        
        oRange.SetRange Start:=oRange.Start,End:=ActiveDocument.Tables(1).Range.End
        
        oRange.Select
        Selection.copy
        
    End With

    Set oRange = oNewDoc.Tables(1).Cell(5,1).Range
    oRange.Collapse Direction:=wdCollapseEnd
    oRange.Paste
    
End Sub