Add Style Part using Open XML SDK

Problem Solved !!

Once I figured that a Style Part is of type StyleDefinitionPart and not StylePart as per ThemePart I weas able to produce the following helper function which creates a Word Document named Filename using DocumentXML as the main document part 'Document.xml' , 'Styles.xml' as the Style File and Them1.xml as the Theme file

Public Function CreateDocument(ByRef FileName As String, ByVal DocumentXML As XDocument) As Boolean

Dim Dir = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\"

Dim StyleFile = Dir + "styles.xml"

Dim ThemeFile = Dir + "Theme1.xml"

FileName = Dir + FileName

Try

' Create the package

Dim wordDoc = WordprocessingDocument.Create(FileName, _

WordprocessingDocumentType.Document)

Using (wordDoc)

Dim mainPart = wordDoc.AddMainDocumentPart

Dim stream = mainPart.GetStream

Dim utf8encoder1 = New UTF8Encoding()

Dim buf() = utf8encoder1.GetBytes(DocumentXML.ToString)

stream.Write(buf, 0, buf.Length)

Dim themepart = mainPart.AddNewPart(Of ThemePart)()

stream = New FileStream(ThemeFile, FileMode.Open)

themepart.FeedData(stream)

Dim stylepart = mainPart.AddNewPart(Of StyleDefinitionsPart)()

stream = New FileStream(StyleFile, FileMode.Open)

stylepart.FeedData(stream)

End Using

Catch ex As Exception

Return 0

End Try

Return -1

End Function

MDLohan at 2007-9-28 >