如何使用 vb.net 将数据打印到 Word 2013 模板

Question

我在2013年将数据打印到Word文档模板时遇到问题，实际上我可以使用 vb.net 在Word 2010（使用XSD文件）中打印数据，但是2013不接受xmlnodes（我知道他们在2013年删除了XML节点）。如何在word2013中打印数据。

我的场景是：

1. 我用三个表格创建具有不同字体样式和标题颜色的模板。

2. 我需要根据我的数据动态添加行（在我的所有表中）。

请指导我如何移动....

Answer 1

对于 xsd 文件来说，这不是一个答案。但应要求，我提出了这一点。

将 docx 作为内存流打开，在此示例中，我有一个带有标题的表。

那就是在word文档中有一个表格，当您选择它并右键单击>属性->替代文本->标题时。

这个标题是我在word文档中搜索的内容，以了解在哪里添加我的东西。可能有更好的方法可以做到这一点。但这会使文档可供管理员编辑，只要他们不删除表格，他们就可以根据需要对其进行编辑。

dim mem As MemoryStream
dim doc = WordprocessingDocument.Open(mem, true)         
Dim tableProperties = doc.MainDocumentPart.Document.Body.Descendants(Of TableProperties)().Where(Function(tp) tp.TableCaption IsNot Nothing)
For Each tProp As TableProperties In tableProperties
    If tProp.TableCaption.Val.ToString() = "DatatableTitle" Then
        Dim tbl = DirectCast(tProp.Parent, Table)
        InsertTableRows(tbl, myListOfThings)
    End If
Next
Private Function CreateTableCellText(myText As String) As TableCell
    Dim run = New Run()
    Dim runProperties = New RunProperties()

    runProperties.Append(New RunFonts() With { .Ascii = "Times New Roman" })
    runProperties.Append(New FontSize() With { .Val = "16" })
    run.PrependChild(runProperties)
    run.Append(New Text(myText))
    Dim p = New Paragraph()
    p.Append(run)
    Dim td = New TableCell()
    td.Append(p)
    Return td
End Function
Private Sub InsertTableRows(tbl As Table, patients As List(Of MyTableList))
    'var refRow = tbl.Elements<TableRow>().ElementAt(1); // the first is the header.
    tbl.Elements(Of TableRow)().ElementAt(1).Remove()
    For Each patient As MyTableList In patients
        Dim tr = New TableRow()
        tr.Append(CreateTableCellText(patient.DepartmentName))
        tr.Append(CreateTableCellText(patient.PatientLastName))
        tbl.Append(tr)
    Next
End Sub
End Class
Public Class MyTableList
    Public Property DepartmentName() As String
        Get
            Return m_DepartmentName
        End Get
        Set
            m_DepartmentName = Value
        End Set
    End Property
    Private m_DepartmentName As String
    Public Property PatientLastName() As String
        Get
            Return m_PatientLastName
        End Get
        Set
            m_PatientLastName = Value
        End Set
    End Property
    Private m_PatientLastName As String
End Class

添加

复选框之类的是没有问题的，只需在word中创建它们，在文本编辑器中打开word文档并从文档中复制xml并将其添加为新段落，然后使用firstChild.InnerXml并将xml复制到文本中。 然后附加它