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

Question

Извините за, возможно, непонятное название, но я не могу узнать, как написать это лучше.

У меня есть код Excel VBA, который преобразует лист из Excel для версии для печати в Word. Проблема в том, что, когда конкретная ячейка в строке в Excel имеет красный цвет или равна тексту "ENG_AT", мне нужно закрасить содержимое ячейки, которая будет напечатана.

Здесь вы получили оригинальный пример рабочего кода.

ElseIf Not IsEmpty(calArray(i, 3)) And IsEmpty(calArray(i, 2))  Then
    'item
    styleName = "N1"
    headerText=calArray(i, 12)
    .Rows(t).Borders(-3).LineStyle = 7

calArray(i,12) это ячейка, которая собирается напечатать.

И это часть, где я пытался добавить свое заявление

ElseIf Not IsEmpty(calArray(i, 3)) And IsEmpty(calArray(i, 2)) And calArray(i, 16) = "ENG_AT" Then
    'item
    styleName = "N1"
    Dim Text2 As String
    Text2 = UCase(calArray(i, 12)
    Text2.Interior.Color = RGB(0, 0, 250)

    headerText = Text2
    '.Font.Underline = True
    .Rows(t).Borders(-3).LineStyle = 7

Все, что я сделал, это только прописные буквы, остальное не работает. Я был бы очень рад, если бы кто-нибудь мог объяснить мне, как я могу изменить цвет ячейки назначения в таблице Word или просто подчеркнуть этот текст.

Заранее благодарю за помощь.

Answer 1

Не зная конкретных переменных, которые вы используете в своем решении, ниже приведен лишь общий способ назначения цвета для текста в ячейке таблицы Word.

    ActiveDocument.Tables(1).rows(1).Cells(3).Range.Font.ColorIndex = wdRed