Как назначить стили таблицы с кодом для документа Word

Question

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

oTable = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 8, 4)
oTable.Range.ParagraphFormat.SpaceAfter = 6
oTable.Range.Font.Size = 10

oTable.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Italic = True
oTable.Cell(1, 1).Range.Text = "Datos de Facturación:"
oTable.Cell(1, 3).Range.Text = "            Enviar a:"
oTable.Cell(2, 1).Range.Text = rs.Text
oTable.Cell(2, 1).Width = 75
oTable.Cell(3, 1).Range.Text = dirfa.Text
oTable.Cell(3, 1).Width = 75 ..... etc..

В Microsoft Word есть несколько стилей оформления таблиц, таких как DARK LIST - ACCENT 5. "DARK LIST - ACCENT 6" и т. Д., Я не мог понять, как установить эти стили для таблицы, возможно ли это?

Answer 1

Чтобы создать стиль, вы можете использовать объект документа:

Set doc = wd.Documents.Add(NewTemplate:=True)

With doc.Styles("Certificate")
    With .Font
        .Name = "Arial"
        .Size = 12
        .Italic = True
        .Bold = True
    End With

    With .ParagraphFormat
        ''wdAlignParagraphCenter = 1
        .Alignment = 1
        .SpaceAfter = 0
        .SpaceBefore = 0
    End With
End With

Назначьте стиль:

Set r = doc.Shapes("Course1").TextFrame.TextRange
r.Style = "Certificate"

Для этого конкретного случая вы можете использовать:

    oTable.Range.Style = "ANewStyle"

Или, если вам доступны встроенные стили:

    oTable.Rows.Item(1).Range.Style = WdBuiltinStyle.wdStyleHeading1