1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Function Substitution(ByVal HashTableBookmark As Hashtable) As Stream
Dim StreamDocumentOpenXML As Stream
Dim MS As New MemoryStream
StreamDocumentOpenXML = Stream.Null
Using wordDocument As WordprocessingDocument = WordprocessingDocument.Create(MS, WordprocessingDocumentType.Document)
Dim mainPart As MainDocumentPart = wordDocument.AddMainDocumentPart()
mainPart.Document = New Document(New Body(New Paragraph(New Run(New Text("Hello")))))
StreamDocumentOpenXML = mainPart.GetStream()
End Using
Return StreamDocumentOpenXML
End Function |
