遍历文档每一页面的两个表，并在表最后行插入文字

ppyh528

  Sub kk()
    Dim ye As Integer
    Dim i ,n As Integer
ye = ThisDocument.BuiltInDocumentProperties(wdPropertyPages)'页数
   For i = 1 To ye
   
       If i > ye Then Exit For
     ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i).Select‘’
For Each n In ‘在这里就找不到焦点了，请大神帮帮俺
                 ’ActiveDocument.Tables(1).Cell(2, 2).Range.Paragraphs
                 .InsertAfter  ":" & Chr$(13) & n

gbgbxgb

Sub my_InsertTextAfterTbl()
    Dim myTblRng As Range, myTbl As Table
    '
    With ThisDocument
        For Each myTbl In .Tables
            Set myTblRng = myTbl.Range
            With myTblRng
                .Collapse wdCollapseEnd
                .InsertParagraphAfter
                .InsertBefore "插入的文字"
            End With
        Next myTbl
    End With
The_Exit:
    Set myTblRng = Nothing
End Sub

ppyh528

gbgbxgb 发表于 2022-3-5 19:19
Sub my_InsertTextAfterTbl()
    Dim myTblRng As Range, myTbl As Table
    '

老师,只在指定的页面内进行插入呢,需要用到什么