wpf - WPFで破損したPDFを生成するiTextSharp

Question

iTextSharp を使用したプログラミングは初めてです。PDFファイルに書き込むアプリケーションがあります。ファイルはwordで書かれ、PDFで保存されます（2ページあります）。私の問題は、PDF に書き込みたいときに、書き込まれたデータが表示されるのに、出力 PDF が破損していることです。PDF が破損する理由がわかりません。

    Public Sub WriteForm(TemplateFilePath As String, NewFilePath As String, data As FormData)
    'input output files
    Dim oldFile As String = TemplateFilePath
    Dim newFile As String = NewFilePath

    'if file already exists then delete it
    If System.IO.File.Exists(newFile) Then
        System.IO.File.Delete(newFile)
    End If

    ' open the reader
    Dim reader As New PdfReader(oldFile)
    Dim size As Rectangle = reader.GetPageSizeWithRotation(1)
    Dim document As New Document(size)

    ' open the writer
    Dim fs As New FileStream(newFile, FileMode.Create, FileAccess.Write)
    Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
    document.Open()

    'write data to first page
    Me.WriteData(reader, writer, data)

    'write second page
    Me.AppendCopiedPage(document, writer, reader, 2)

    ' close the streams 
    document.Close()
    fs.Close()
    writer.Close()
    reader.Close()

End Sub

'WriteData のコード

    Private Sub WriteData(reader As PdfReader, writer As PdfWriter, data As FormData)`
    Dim cb As PdfContentByte = writer.DirectContent
    Dim bf As BaseFont = BaseFont.CreateFont(BaseFont.TIMES_ROMAN, BaseFont.CP1250, BaseFont.EMBEDDED)
    cb.SetColorFill(BaseColor.BLACK)
    cb.SetFontAndSize(bf, 10)

    ' create the first page and add it to the pdf
    Dim page1 As PdfImportedPage = writer.GetImportedPage(reader, 1)
    cb.AddTemplate(page1, 0, 0)
    Me.WriteText(cb, data.SID, 110, 653)
           ...
End Sub