Hallo,
Nino Novak schrieb:
> [...]
Zu dem "Warum und Weshalb" sich OOo so verhält wie Du es beschreibst
können Dir andere wahrscheinlich mehr sagen, da ich selten mit
Serienbriefen arbeite, andererseits auch sehe das das Verhalten für
Deinen Fall ungünstig ist, aber ich nicht vollständig überblicke ob das
an anderen Stellen vielleicht doch sinnvoll ist.
Praktischerseits habe ich Dir mal ein Makro geschreiben, was aus den
Seriendruckfeldern und den Bedingungsfeldern "fixen" Text macht. Wenn Du
die fertigen Dokumente hast (quasi vor dem Überarbeiten, laß das Makro
drüberlaufen.
Man könnte das sicher richtig einbinden, das es automatisch abläuft,
aber dafür kenne ich jetzt die genauen Randbedingungen nicht, welche bei
Dir möglicherweise bestehen.
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]
