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