Hallo,
Nino Novak schrieb:
> Leider ein
> "BASIC syntax error. Unexpected symbol: CRLF"
Ja, wegen der Nettikette breche ich die Mails beim Senden um. Dabei wird
auch der Code umgebrochen, wenn die Zeilen zu lang sind, das bemängelt
die Fehlermeldung.
Hier ist der selbe Code manuell "zurechtgestutzt":
Sub Serienbrief_fix()
Doc = ThisComponent
TextFieldEnum = Doc.getTextFields.createEnumeration
While TextFieldEnum.hasMoreElements()
TextField = TextFieldEnum.nextElement()
If TextField.supportsService _
("com.sun.star.text.TextField.Database") _
OR _
TextField.supportsService _
("com.sun.star.text.TextField.ConditionalText") Then
oViewCursor = Doc.CurrentController.getviewCursor()
oViewCursor.gotorange(Textfield.Anchor,false)
Cursor = oViewCursor.Text.createTextCursor()
Cursor.gotorange(Textfield.Anchor,false)
If TextField.supportsService _
("com.sun.star.text.TextField.Database") Then _
Cursor.String = Textfield.CurrentPresentation
If TextField.supportsService _
("com.sun.star.text.TextField.ConditionalText") Then
If Textfield.IsConditionTrue = TRUE Then
Cursor.String = Textfield.TrueContent
Else
Cursor.String = Textfield.FalseContent
End if
End if
End If
Wend
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
