OpenOffice.info

[quote]Wo finde ich die möglichen (zulässigen) Typen? Im SO7.0-Handbuch steht leider nicht viel. [/quote]

in der IDL-Referenz, im Konkreten hier:
http://api.openoffice.org/docs/common/ref/com/sun/star/text/TextContentAnchorType.html



Gruß
Stephan

Sub Rahmennamen_in_Rahmen-schreiben
oFrames = VersandText.getTextFrames()
For i = 0 To oFrames.Count-1
   MsgBox "Frame=" & oFrames(i).Name
   FrameCursor = oFrames(i).createTextCursor()
   FrameCursor.gotoStart(False)
   FrameCursor.String = oFrames(i).Name
Next i
End Sub

[quote="Stephan"]

Du mußt etwas kennen was den Rahmen identifiziert, z.B. dessen Namen, oder es dürfte sich nur ein Rahmen im Dokument befinden.


[code]Sub Rahmen_hat_Name()
oFrames = ThisComponent.getTextFrames()
For i = 0 To oFrames.Count-1
If oFrames(i).Name = "Rahmen1" Then
oFrames(i).createTextCursor()
End if
Next i
End Sub[/code]
[/quote]

Danke, die zweite Variante war noch besser. Ich habe mit deiner Schleife einfach alle Rahmennahmen ermittelt und einfach in den Rahmen als Testdurchlauf geschrieben. Jetzt weiß ich, wie jeder RAhmen heißt und kann die bestehenden Rahmen direkt ansprechen.

Rahmennamen ermitteln:
[code]Sub Rahmennamen_in_Rahmen-schreiben
oFrames = VersandText.getTextFrames()
For i = 0 To oFrames.Count-1
MsgBox "Frame=" & oFrames(i).Name
FrameCursor = oFrames(i).createTextCursor()
FrameCursor.gotoStart(False)
FrameCursor.String = oFrames(i).Name
Next i
End Sub[/code]

[quote="Stephan"][quote]Was mache ich falsch? [/quote]

Du gibst den falschen Verankerungstyp an:

EmpfaengerFrame.AnchorType = com.sun.star.text.TextContentAnchorType.[color=red]AS_CHARACTER [/color]

ein am Zeichen verankerter Rahmen kann sich nur im Satzspiegel befinden.[/quote]

Danke, Stefan. Ich hatte schon befürchtet, dass TextContentAnchorType schuld ist. Wo finde ich die möglichen (zulässigen) Typen? Im SO7.0-Handbuch steht leider nicht viel.

Bzw. was muss ich angeben, damit an der gesamten Seite verankert wird?

Sub nur_ein_Rahmen()
oFrames = ThisComponent.getTextFrames() 
oFrames(0).createTextCursor()
End Sub

Sub Rahmen_hat_Name()
oFrames = ThisComponent.getTextFrames() 
For i = 0 To oFrames.Count-1
	If oFrames(i).Name = "Rahmen1" Then
		oFrames(i).createTextCursor()
	End if
Next i
End Sub

[quote]Was mache ich falsch? [/quote]

Du gibst den falschen Verankerungstyp an:

EmpfaengerFrame.AnchorType = com.sun.star.text.TextContentAnchorType.[color=red]AS_CHARACTER [/color]

ein am Zeichen verankerter Rahmen kann sich nur im Satzspiegel befinden.

[quote]Wie kann ich einen Textcursor erstellen und positionieren in einem bestehenden Textrahmen, wenn ich den Textrahmen nicht mittels Makro erstellt haben und mir somit die Referenzierung fehlt?[/quote]

Du mußt etwas kennen was den Rahmen identifiziert, z.B. dessen Namen, oder es dürfte sich nur ein Rahmen im Dokument befinden.

[code]Sub nur_ein_Rahmen()
oFrames = ThisComponent.getTextFrames()
oFrames(0).createTextCursor()
End Sub[/code]


[code]Sub Rahmen_hat_Name()
oFrames = ThisComponent.getTextFrames()
For i = 0 To oFrames.Count-1
If oFrames(i).Name = "Rahmen1" Then
oFrames(i).createTextCursor()
End if
Next i
End Sub[/code]



Gruß
Stephan

EmpfaengerFrame = VersandText.createInstance("com.sun.star.text.TextFrame")
EmpfaengerFrame.Width = 8300
EmpfaengerFrame.Height = 1000
EmpfaengerFrame.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
EmpfaengerFrame.TopMargin = 6500
EmpfaengerFrame.LeftMargin = 2200
...
EmpfaengerFrame.HoriOrient = com.sun.star.text.HoriOrientation.NONE
EmpfaengerFrame.VertOrient = com.sun.star.text.VertOrientation.LINE_TOP
VersandTextCursor.gotoStart (False)
VersandText.Text.insertTextContent(VersandTextCursor, EmpfaengerFrame, False)

Ich möchte in einem Writer-Dokument einen Textrahmen einfügen (OO 1.1.5). Das ist eigentlich kein Problem.
[code]EmpfaengerFrame = VersandText.createInstance("com.sun.star.text.TextFrame")
EmpfaengerFrame.Width = 8300
EmpfaengerFrame.Height = 1000
EmpfaengerFrame.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
EmpfaengerFrame.TopMargin = 6500
EmpfaengerFrame.LeftMargin = 2200
...
EmpfaengerFrame.HoriOrient = com.sun.star.text.HoriOrientation.NONE
EmpfaengerFrame.VertOrient = com.sun.star.text.VertOrientation.LINE_TOP
VersandTextCursor.gotoStart (False)
VersandText.Text.insertTextContent(VersandTextCursor, EmpfaengerFrame, False)[/code]
Leider wird so nur ein Textrahmen im normalen Text erstellt, die Abstände beziehen sich leider nicht auf die gesamte Seite. Der Textrahmen soll aber außerhalb des normalen Textes positioniert sein. Was mache ich falsch?
Es ist einfach des Empfängerfeld eines mittels Makro befüllten Briefes.

Zusatzfrage: Wie kann ich einen Textcursor erstellen und positionieren in einem bestehenden Textrahmen, wenn ich den Textrahmen nicht mittels Makro erstellt haben und mir somit die Referenzierung fehlt? (Der Textrahmen ist einfach schon vorhanden, wenn das Dokument geöffnet wird.)