Word VBA Как применить заголовок только к первой строке в ячейке таблицы

Question

Эй, ребята, сейчас я пытаюсь взять первую строку текста в ячейке таблицы А1 для каждой таблицы в документе и применить к ней стиль заголовка.Он не использует перенос слов.

Сейчас у меня есть

 Dim CurrentTable As Table
Dim head1 As Style, head2 As Style, head3 As Style, head4 As Style
Set head1 = ActiveDocument.Styles("Heading 1")
Set head2 = ActiveDocument.Styles("Heading 2")
Set head3 = ActiveDocument.Styles("Heading 3")
Set head4 = ActiveDocument.Styles("Heading 4")

  For Each CurrentTable In ActiveDocument.Tables

       With CurrentTable.Cell(1, 1)

            .Range.Style = head1


       End With

Answer 1

Предположительно, ваша 'строка' является абзацем, и в этом случае используйте:

.Range.Paragraphs (1) .Range.Style = head1