Dim fdb As String = "<FlowDocument " & _ 
  "xmlns='http://schemas.microsoft.com/winfx/2006/xaml/presentation'>" & _
  "{0}</FlowDocument>"
 
Dim docXml As String = "<Paragraph><Bold>This is just a bit of bold " & _
  "text.</Bold>This is not so bold.</Paragraph>"
 
Dim ms As New MemoryStream(Encoding.UTF8.GetBytes(String.Format(fdb, docXml)))
Dim myFlowDocument As FlowDocument = TryCast(XamlReader.Load(ms), FlowDocument)
Me.sv.Document = myFlowDocument

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist