Содержимое не в порядке при использовании Excel VBA для создания документа Word

Проблема в том, что при использовании объекта Table для размещения контента объект ObjSelection не изменяется. Выделенный фрагмент остается на месте после вставки жирного шрифта.

Итак, после использования объекта Table для размещения контента вам нужно выбрать таблицу, заново установить ObjSelection, свернуть ObjSelection до конца, а затем вставить разрыв страницы.

...
        Set Table = objDoc.Tables.Add(ObjSelection.Range, row_count, col_count)
        With Table
        ...
        End With
        
        Table.Select
        Set ObjSelection = objWord.Selection
        wdCollapseEnd = 0
        ObjSelection.Collapse Direction:=wdCollapseEnd
        wdPageBreak = 7
        ObjSelection.InsertBreak Type:=wdPageBreak
...

Подсказка: я использовал объекты с поздней привязкой, поэтому wdCollapseEnd и wdPageBreak не определяются как не ранние привязки Word.Application и им должны быть присвоены значения. При использовании ранней привязки Word.Application через Инструменты-Ссылки это можно пропустить.

Очень важно знать диапазон, который обновляется вашим кодом. В вашем фрагменте диапазон Selection остается неизменным, поэтому результат не соответствует вашим ожиданиям.

Sub AddToWord()
    Dim objWord
    Dim objDoc
    Dim ObjSelection
    Dim i As Long
    Dim j As Long
    Dim ws As Worksheet
    Dim row_count As Long
    Dim col_count As Long
    Dim e As Long
    Dim row As Long
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Activate
    row_count = 7
    col_count = 2
    e = ws.Range("A2", ws.Range("A2").End(xlDown)).Rows.Count
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add
    objDoc.Content.Font.Size = 14
    Dim lastRng As Range, oTable
    With ActiveDocument.Characters
        For i = 1 To e
            If ws.Cells(i + 1, 12).Value > 0 Then
                Set lastRng = .Last
                lastRng.Text = ws.Cells(i + 1, 1).Value
                lastRng.Expand Word.wdParagraph
                lastRng.Font.Bold = True
                Set lastRng = .Last
                lastRng.InsertAfter vbCr
                lastRng.Font.Bold = wdToggle
                Set oTable = objDoc.Tables.Add(lastRng, row_count, col_count)
                With oTable
                    .Borders.Enable = True
                    For j = 1 To row_count
                        .Cell(j, 1).Range.Text = ws.Cells(1, j + 1).Text
                    Next j
                    For j = 1 To row_count
                        .Cell(j, 2).Range.Text = ws.Cells(i + 1, j + 1).Text
                    Next j
                End With
                .Last.InsertBreak Type:=wdPageBreak
            End If
        Next i
    End With
End Sub