Hello,
i have an issue with WordsProcessing. After i have replaced text, borders from tables disappear.
Public Function SetVorblatt() As String
Dim cmsObj As New CsCms
Dim dateiName As String = Titel.Replace(":", "").Replace("/", "").Replace("\", "").Replace("""", "")
Dim containsAlleMa As Boolean = False
Dim flowDocument As Telerik.Windows.Documents.Flow.Model.RadFlowDocument
Dim docxProvider As New Telerik.Windows.Documents.Flow.FormatProviders.Docx.DocxFormatProvider
Dim floDocEditor As Telerik.Windows.Documents.Flow.Model.Editing.RadFlowDocumentEditor
Dim formulardaten As List(Of FormularData) = GetFormData()
'Änderung vom 12.12.2016
'Umstellung vom RTF auf DOCX
'Änderung vom 02.09.2015
'Prüfung, ob bei den Adressatenkreis "alle Mitarbeiter" ausgewählt wurde. Falls nicht, soll die Checkbos "wie folgend" befüllt werden
Try
If IsNothing(formulardaten) = False Then
Using input As New FileStream(AppSettings("serverMappath") & "\anwendungen\zav\formulare\RL-Vorlage_.docx", FileMode.Open)
flowDocument = docxProvider.Import(input)
End Using
floDocEditor = New Telerik.Windows.Documents.Flow.Model.Editing.RadFlowDocumentEditor(flowDocument)
For Each formData As FormularData In formulardaten
floDocEditor.ReplaceText(formData.Text, formData.Value & " ")
Logger.Trace(formData.Text & " :" & formData.Value)
Next
Using output As New FileStream(AppSettings("serverMappath") & "\anwendungen\sfo\vorblatt\" & dateiName & ".docx", FileMode.Create)
docxProvider.Export(flowDocument, output)
End Using
dateiName = AppSettings("serverMappath") & "\anwendungen\sfo\vorblatt\" & dateiName & ".docx"
End If
Catch ex As Exception
Dim var As String = "Vorblatt wurde nicht erzeugt. dateiName:" & dateiName
Logger.Error(var, ex)
End Try
Return dateiName
End Function
You can see it at the attachements. Have anyone an idea what i have made wrong?
Best regards
Jens