Открыть XML Добавить TableHeader к таблице в документе Word - PullRequest
Новая
       42

Открыть XML Добавить TableHeader к таблице в документе Word

0 голосов
/ 27 марта 2020

Я использую. Net для создания документа Word с динамической c таблицей. Этот документ может занимать несколько страниц. Я хотел бы добавить заголовок таблицы, чтобы на каждой новой странице был этот заголовок. Я нашел эту документацию, но больше ничего: https://docs.microsoft.com/en-us/dotnet/api/documentformat.openxml.wordprocessing.tableheader?view=openxml-2.8.1

Кажется, это говорит о том, что вы можете сделать это, но есть ли у кого-нибудь примеры кода: Вот как я сейчас делаю свою таблицу: 

        Dim table As New Table()
        Dim tr As TableRow
        Dim tc As TableCell
        Dim paragraph As New Paragraph
        Dim tblProp As New TableProperties(
            New TableBorders(
                New TopBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.None), .Size = 0},
                New BottomBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.None), .Size = 0},
                New LeftBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.None), .Size = 0},
                New RightBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.None), .Size = 0},
                New InsideHorizontalBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.None), .Size = 0},
                New InsideVerticalBorder() With {.Val = New EnumValue(Of BorderValues)(BorderValues.None), .Size = 0}
                ),
                New TableStyle() With {.Val = "TableGrid"},
                New TableWidth() With {.Width = "5000", .Type = TableWidthUnitValues.Pct}
            )

        table.AppendChild(Of TableProperties)(tblProp)
        For Each acronym As Acronym In listOfAcronyms
            tc = New TableCell
            tr = New TableRow
            tc.Append(New TableCellProperties(New TableCellWidth() With {.Type = TableWidthUnitValues.Dxa, .Width = "2400"}))

            rPr = New RunProperties
            newRun = New Run
            fontSize = New DocumentFormat.OpenXml.Wordprocessing.FontSize
            fontSize.Val = "12pt"
            runFonts1 = New RunFonts() With {.Ascii = "Times New Roman"}
            rPr.Append(runFonts1)
            rPr.Append(fontSize)
            newRun.Append(rPr)
            newRun.Append(New Text(acronym.Abbreviation))
            tc.Append(New Paragraph(newRun))
            tr.Append(tc)

            rPr = New RunProperties
            newRun = New Run
            tc = New TableCell
            fontSize = New DocumentFormat.OpenXml.Wordprocessing.FontSize
            fontSize.Val = "12pt"
            runFonts1 = New RunFonts() With {.Ascii = "Times New Roman"}
            rPr.Append(runFonts1)
            rPr.Append(fontSize)
            newRun.Append(rPr)
            newRun.Append(New Text(acronym.Full_Text))
            tc.Append(New Paragraph(newRun))
            tr.Append(tc)

            table.Append(tr)
        Next
        body.Append(table)

1 Ответ

0 голосов
/ 27 марта 2020

Я обнаружил, что добавление этого будет использовать первую строку таблицы в качестве заголовка и повторять ее на каждой новой странице: 

    Dim tableHeader As New TableHeader
    Dim tblHeaderRowProps As TableRowProperties = New TableRowProperties()
    tblHeaderRowProps.Append(New CantSplit() With {.Val = OnOffOnlyValues.On})
    tblHeaderRowProps.Append(New TableHeader() With {.Val = OnOffOnlyValues.On})

   'code to create rest of the table

    Dim row As TableRow = table.GetFirstChild(Of TableRow)
    If (row.TableRowProperties Is Nothing) Then
        row.TableRowProperties = New TableRowProperties()
    End If
    row.TableRowProperties.AppendChild(New TableHeader())
...