flowdocument - 在末尾插入富文本，在插入点上方创建额外的段落分隔符

Question

我正在创建一个由多个记录组成的流程文档。每条记录的顶部都包含两个表，然后是我从数据库中提取的一些富文本。附加富文本的代码位于下面（cp.Comments 包含 rtf 标记文本）。

Dim tr As TextRange
Dim arr() As Byte

Using ms As New System.IO.MemoryStream
  arr = (New System.Text.UTF8Encoding).GetBytes(cp.Comments)
  ms.Write(arr, 0, arr.Length)
  ms.Seek(0, IO.SeekOrigin.Begin)

  tr = New TextRange(fd.ContentEnd, fd.ContentEnd)   'add to end
  tr.Load(ms, DataFormats.Rtf)
End Using

流文档正确呈现第一个记录，但所有后续记录都在第一个表和第二个表之间有一个中断的情况下呈现。最奇怪的是，我在导入 RTF 之前渲染了 2 个表格，但 RTF 无论如何都会影响表格之间的间距。

fd = new FlowDocument

for each cp in SomeCollection

   fdtemp = New FlowDocument

   CreateFirstTable(cp, fdtemp)
   CreateSecondTable(cp, fdtemp)
   AddRTF(cp, fdtemp)

   FlowDocumentUtils.AddDocument(fdtemp, fd)

next

问题与集合的第一个元素中的数据无关 - 如果我告诉渲染跳过第一条记录的渲染，那么第二条记录渲染正常，但其余记录包含额外的间距。

注意：问题肯定与富文本插入有关 - 如果我注释掉 AddRTF 调用，那么所有表格都会正确呈现并粉碎在一起。 （表格边距都设置为（0,0,0,0））

有人见过这个吗？

Answer 1

您是否检查过其他问题的解决方案：

• 在运行时在 WPF RichTextBox 中在新行中添加文本

另外，您似乎有两种单独的方法：

CreateFirstTable(cp, fdtemp)
CreateSecondTable(cp, fdtemp)

我怀疑这两种方法的操作方式之间的差异是问题所在，但不知道他们到底在做什么，我只能推测。