Макрос, таблица, выделение сразу всех смежных строк жирным

[kibernet]

есть таблица с текстом, и в ней есть пустые строчки (не ячейки).
Как выделить сразу все смежные строчки жирным текстом?
В прилагаемом файле описано понятней)

есть похожий макрос (он удаляет сразу все пустые смежные строки), его нужно как-то изменить...

PHP код:

Sub m101221_0628()
Dim j1, s1, s2
Dim tbl As Table
Set tbl = Word.ActiveDocument.Tables(1)
j1 = tbl.Rows.Count
Debug.Print j1
On Error Resume Next
Do While j1 > 0
s1 = "\\"
s2 = s1
s1 = Trim(tbl.Cell(j1, 1).Range.Text)
s2 = Trim(tbl.Cell(j1, 2).Range.Text)
Debug.Print Len(s1), Len(s2)
If Len(s1) = 3 And Len(s2) = 3 Then
tbl.Rows(j1).Delete
End If
j1 = j1 - 1
Loop
End Sub 


[Sasha_Smirnov]

Тогда идея: выделять построчно, при этом одностолбцовые ячейки "жирнить".

[kibernet]

Сообщение от Sasha_Smirnov

Пустых строк на этот раз нет.

А под жирной ячейкой всегда по 7 записей?

нет конечно). там рандомное количество может быть.
может и 1, а может и 20 (думаю больше 20 не будет)

[Sasha_Smirnov]

Sub subheaderbolder()
If ActiveDocument.Tables.Count = 0 Then MsgBox "Таблиц нет.": Exit Sub

    With ActiveDocument.Tables(1)   'ищем в 1-й таблице документа
        
    For N = 1 To .Rows.Count
    .Rows(N).Select         'выделили N-ю строку таблицы
    If Selection.Rows(N).Cells.Count = 1 Then Selection.Font.Bold = True
    'если в очередной строке ячейка одна - делаем её шрифт жирным'
    Next
    
    End With
End Sub

[kibernet]

Выдаёт ошибку "5941" - Запрашиваемый номер семейства не существует.

Вот я вложил живой пример, посмотрите, если не сложно...

[Sasha_Smirnov]

Sub headerbolder()
If ActiveDocument.Tables.Count = 0 Then MsgBox "Таблиц нет.": Exit Sub

    With ActiveDocument.Tables(1)   'ищем в 1-й таблице документа
        
        For N = 1 To .Rows.Count
            .Rows(N).Select         'выделили N-ю строку таблицы
            If Selection.Cells.Count = 1 Then Selection.Font.Bold = True
            'если в очередной строке ячейка одна - делаем её шрифт жирным'
        Next
    
    End With
End Sub

[kibernet]

Работает чётко и быстро Спасибо огромное!