OpenOffice.info

[quote="lorbass"][list][*] oder du fügst einen Rahmen ein ([i]Einfügen → Rahmen…[/i]), für den du die Option [i][ ] Drucken[/i] [b]de[/b]aktivierst[/list][/quote]
Ich würde das nehmen. Fügst du den Rahmen in der ersten Seite ein, [b]Verankerung an der Seite.[/b] Solange du ihn bearbeitest, Umlauf=Durchlauf, wenn du den Text des Vertrags bearbeitest, dann Umlauf=ImHintergrund. Fontfarbe helles Grau oder Blaugrau, so dass, wenn im Hintergrund, der Text des Vordergrunds gut gelesen werden kann... Bearbeitung der Benutzerfelder durch Doppelklick, falls das nicht geht (war bei mir so, LO 3.6.5.2 unter WindowsXP), dann rechte Maustaste...

Gibt dann keine Probleme beim Ausdruck, Leerseiten etc.
Ciao

Danke :)

Jetzt ist es mir aber fast zu blöd noch etwas zu fragen... :(

Wenn ich z.b. meine Feldbefehle auf der letzten Seite (z.b. Seite 13/13) ausfülle, und ausblende, dann drückt es mir 13 Seiten, und die letzte ist dann einfach eine weiße Seite. Kann ich dazu auch einstellen, dass es mir diese Seite, mit dem Makro, nicht mitdruckt? Also sozusagen, ein Makro, das ausblendet und die letzte weiße Seite (auf der nur die ausgeblendeten Daten stehen) nicht drucken?

REM  *****  BASIC  *****

Sub Main
	Dim oTextSections as Object
	Dim oDlgModel, oModel, oDlg, oWin as Object
	Dim iHeight, iWidth as Integer

	oTextSections = ThisComponent.getTextSections()
	iHeight = 30+16*oTextSections.getCount()
	iWidth = 170

	oDlgModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
	oDlgModel.setPropertyValue("Width", iWidth)
	oDlgModel.setPropertyValue("Height", iHeight)
	oDlgModel.setPropertyValue("Title", "Textbereiche ein/ausblenden")
	
	for i=0 to oTextSections.getCount()-1
		Dim oSection as Object
		oSection = oTextSections.getByIndex(i)
		oModel = oDlgModel.createInstance("com.sun.star.awt.UnoControlCheckBoxModel")
		oModel.setPropertyValue("Width", 48)
		oModel.setPropertyValue("Height", 12)
		oModel.setPropertyValue("PositionX", 16)
		oModel.setPropertyValue("PositionY", iHeight - 30 - 8 -16*i)
		oModel.setPropertyValue("Label",  oSection.name())
		if oSection.isVisible then
			oModel.setPropertyValue("State", 1)
		else
			oModel.setPropertyValue("State", 0)
		end if
		oDlgModel.insertByName(oSection.name(), oModel)
	next
	
	oModel = oDlgModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
	oModel.setPropertyValue("Label", "OK")
	oModel.setPropertyValue("Width", 48)
	oModel.setPropertyValue("Height", 12)
	oModel.setPropertyValue("PositionX", iWidth - 8 - 48 - 8 - 48)
	oModel.setPropertyValue("PositionY",  iHeight - 8 - 12)
	oModel.setPropertyValue("PushButtonType", com.sun.star.awt.PushButtonType.OK)
	oDlgModel.insertByName("okButton", oModel)
	
	oModel = oDlgModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
	oModel.setPropertyValue("Label", "Abbrechen")
	oModel.setPropertyValue("Width", 48)
	oModel.setPropertyValue("Height", 12)
	oModel.setPropertyValue("PositionX", iWidth - 8 - 48)
	oModel.setPropertyValue("PositionY",  iHeight - 8 - 12)
	oModel.setPropertyValue("PushButtonType", com.sun.star.awt.PushButtonType.CANCEL)
	oDlgModel.insertByName("cancelButton", oModel)
	
	oDlg = CreateUnoService("com.sun.star.awt.UnoControlDialog")
	oDlg.setModel(oDlgModel)
	
	oWin =  CreateUnoService("com.sun.star.awt.Toolkit")
	oDlg.createPeer(oWin, null)
	
	if oDlg.execute() = 1 then
		for i=0 to oTextSections.getCount()-1
			oSection = oTextSections.getByIndex(i)
			oSection.isVisible = oDlg.getControl(oSection.name()).state = 1
		next
	end if

End Sub

Falls jemand viel mit Bereichen arbeitet hätte ich da noch ein kleine Helfer-Skript. Es ist nicht allein auf meinem Mist gewachsen, ich kann aber nicht mehr sagen, woher die Idee kam (möglicherweise von Andrew Macro, aber wie gesagt, keine Gewähr).

[code]
REM ***** BASIC *****

Sub Main
Dim oTextSections as Object
Dim oDlgModel, oModel, oDlg, oWin as Object
Dim iHeight, iWidth as Integer

oTextSections = ThisComponent.getTextSections()
iHeight = 30+16*oTextSections.getCount()
iWidth = 170

oDlgModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
oDlgModel.setPropertyValue("Width", iWidth)
oDlgModel.setPropertyValue("Height", iHeight)
oDlgModel.setPropertyValue("Title", "Textbereiche ein/ausblenden")

for i=0 to oTextSections.getCount()-1
Dim oSection as Object
oSection = oTextSections.getByIndex(i)
oModel = oDlgModel.createInstance("com.sun.star.awt.UnoControlCheckBoxModel")
oModel.setPropertyValue("Width", 48)
oModel.setPropertyValue("Height", 12)
oModel.setPropertyValue("PositionX", 16)
oModel.setPropertyValue("PositionY", iHeight - 30 - 8 -16*i)
oModel.setPropertyValue("Label", oSection.name())
if oSection.isVisible then
oModel.setPropertyValue("State", 1)
else
oModel.setPropertyValue("State", 0)
end if
oDlgModel.insertByName(oSection.name(), oModel)
next

oModel = oDlgModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
oModel.setPropertyValue("Label", "OK")
oModel.setPropertyValue("Width", 48)
oModel.setPropertyValue("Height", 12)
oModel.setPropertyValue("PositionX", iWidth - 8 - 48 - 8 - 48)
oModel.setPropertyValue("PositionY", iHeight - 8 - 12)
oModel.setPropertyValue("PushButtonType", com.sun.star.awt.PushButtonType.OK)
oDlgModel.insertByName("okButton", oModel)

oModel = oDlgModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
oModel.setPropertyValue("Label", "Abbrechen")
oModel.setPropertyValue("Width", 48)
oModel.setPropertyValue("Height", 12)
oModel.setPropertyValue("PositionX", iWidth - 8 - 48)
oModel.setPropertyValue("PositionY", iHeight - 8 - 12)
oModel.setPropertyValue("PushButtonType", com.sun.star.awt.PushButtonType.CANCEL)
oDlgModel.insertByName("cancelButton", oModel)

oDlg = CreateUnoService("com.sun.star.awt.UnoControlDialog")
oDlg.setModel(oDlgModel)

oWin = CreateUnoService("com.sun.star.awt.Toolkit")
oDlg.createPeer(oWin, null)

if oDlg.execute() = 1 then
for i=0 to oTextSections.getCount()-1
oSection = oTextSections.getByIndex(i)
oSection.isVisible = oDlg.getControl(oSection.name()).state = 1
next
end if

End Sub
[/code]
Einfach in ein eigenes Makro kopieren, über Extras → Anpassen einen Eintrag in einem Menü oder einer Toolbar anlegen und per Knopfdruck erscheint eine Liste, in der jeder Bereich des aktuellen Dokumentes per Häkchen ein- oder ausgeschaltet werden kann. (Sind keine Bereiche vorhanden erscheinen nur die beiden Aktions-Buttons.)

Ich verwende das Skript hauptsächlich um in meiner Vorlage für amtliche Schreiben Teile des Absenders (Email, Telefon, Fax, Handy) nach Bedarf ein- oder auszublenden.

[quote="duddinho"]Masterfrage: Wie kann ich einstellen, dass es mir diesen unteren Bereich nicht mit-ausdruckt? Bzw, kann ich gewisse Textpassagen einstelle, dass es sie beim Drucken "verbirgt"?[/quote]
Nee, nee! Bätschäla – höchstens :lol:

[list=1][*] Entweder aktivierst du die Option [i][✓] Ausgeblendet[/i] unter [i]Format → Zeichen… → Schrifteffekt[/i] [u]und[/u] [b]de[/b]aktivierst die Option [i][ ] Versteckter Text[/i] unter [i]Extras → Optionen… → LibreOffice Writer → Drucken[/i]
[*] oder du fügst einen Bereich ein ([i]Einfügen → Bereich…[/i]) oder an, für den du die Option [i][✓] Ausblenden[/i] aktivierst
[color=#777777](ausgeblendete Bereiche erreichst du über den Navigator [F5])[/color]
[*] oder du fügst einen Rahmen ein ([i]Einfügen → Rahmen…[/i]), für den du die Option [i][ ] Drucken[/i] [b]de[/b]aktivierst[/list]
Die Alternativen 2 und 3 habe ich zwar nicht getestet, die Chancen stehen aber nicht schlecht :mrgreen:

Gruß
lorbass

Perfekt, danke :)

Da kann ich dann ja am Ende des Dokumentes die Daten untereinander aufliste, die ich ausfülle, und sie werden oben im Vertrag automatisch ergänzt.

Masterfrage: Wie kann ich einstellen, dass es mir diesen unteren Bereich nicht mit-ausdruckt? Bzw, kann ich gewisse Textpassagen einstelle, dass es sie beim Drucken "verbirgt"? Danke

[quote="duddinho"]Platzhalter sind zwar gut, aber wenn ich in meinem Vertrag z.B. einen Begriff mehrmals benötige, möchte ich ihn nur 1 mal eingeben müssen, und ihn sollte es dann an den entsprechenden Stellen automatisch schreiben:[/quote]
Da wäre für dich z.B. ein [b]Benutzerfeld[/b] von Vorteil:

Menü Einfügen > Feldbefehl > Andere > Variablen > Benutzerfeld :: Namen und Wert eingeben, Format: Text

Dort kannst du einen Platzhaltertext einfügen (z.B. [i][b]50.000 m²[/b][/i]).
Wenn du dir die Feldbefehle anzeigen lässt, dann besitzen diese einen grauen Hintergrund; sehr gut zu erkennen...
Du kannst den eingefügten Feldbefehl jetzt kopieren und an anderen Stellen wieder einfügen. Beim Doppelklick auf einen dieser Feldbefehle kann der Wert editiert werden (z.B. [i][b]3000 hl[/b][/i]); die Aktualisierung wirkt sich auf alle eingefügten Werte dieses einen Feldbefehls aus.

Es wird also nur einmal eingegeben und dann an den anderen Stellen ohne weiteres Zutun wiederholt.

War's das, was du meintest?
Ciao

Danke für die Infos :)

Das mit den DDE habe ich nicht ganz verstanden.

Wenn in "einfügen" - "bereich" auswähle, was muss ich dann genau auswählen?
Und wie kann ich auf eine bestimmte Zelle meiner getrennten Calc-Tabelle verweisen?


Platzhalter sind zwar gut, aber wenn ich in meinem Vertrag z.B. einen Begriff mehrmals benötige, möchte ich ihn nur 1 mal eingeben müssen, und ihn sollte es dann an den entsprechenden Stellen automatisch schreiben:
z.B. Der Vertragswert steht auf Seite 3 und Seite 5. Ich möchte ihn nur 1 Mal schreiben, und es sollte ihn dann auf beiden Stellen einfügen.
Glaube, das geht mit den Platzhaltern nicht so gut?

[quote="duddinho"]Ist so etwas möglich?[/quote]
Ja.

[quote="duddinho"]Wenn ja, wie geht das?[/quote]
Dazu bietet sich die Serienbrieffunktion an:
[url=http://de.openoffice.org/doc/howto_2_0/writer/erstellung-serienbrief.pdf]Erstellung eines Serienbriefs[/url]
Writer-Handbuch, [url=http://de.openoffice.org/doc/oooauthors/writer/11-die-serienbrieffunktion-benutzen.pdf]Kapitel 11: Die Serienbrieffunktion benutzen[/url]

[quote="duddinho"]Alternativvorschläge?[/quote]
Ich verstehe nicht, warum du für jeden Vertrag eine eigene [i]Calc[/i]-Datei spendieren willst. Wenn du nicht nur erfasst, druckst und abspeicherst, sondern irgendwann auch mal vertragsübergreifend auswerten willst, wäre es besser, alle Vertragsdaten in einer Datei zu verwalten. Und wenn es keinen zwingenden Grund für [i]Calc[/i] gibt, wäre 'ne „richtige“ Datenbank noch besser.

Gruß
lorbass

[quote="duddinho"]Ich habe mir überlegt, es wäre super, wenn ich eine separate calc-Tabelle machen kann (für jeden Vertrag separat), bei der es dann die in dieser Tabelle eingetragenen pro Vertrag individuellen Daten automatisch in die ursprüngliche writer-Vorlage an den von mir gewünschten Stellen einfügt (mittels Verknüpfung). Ich fülle praktisch die Calc Tabelle mit meinen Daten aus, und aufgrund der Verknüpfung von writer und Zellen der Calc-Datei entsteht der fertig ausgefüllte Vertrag.
Ist so etwas möglich? Wenn ja, wie geht das?[/quote]
Über [url=http://www.ooowiki.de/DDE.html]DDE-Verknüpfungen[/url]. Dafür müssten aber die Tabellen bereits bestehen.
[quote="duddinho"]
Wenn nein, gibt es Alternativvorschläge?
[/quote]
Ich würde dafür [url=http://www.ooowiki.de/PlatzHalter.html]Platzhalter[/url] verwenden.

Guten Tag,

ich bin neu hier im Forum und möchte mich auch demnächst nochmal genauer vorstellen :D

Ich komme gleich zu meiner Frage:
Ich habe das Forum durchsucht, aber leider kein passendes Thema zu meinem Problem gefunden, deshalb habe ich diesen thread geöffnet:

Ich habe im libreoffice writer eine Dokumentvorlage erstellen, genauer gesagt eine Vorlage eines Vertrages.
Diese Vorlage soll nun für die Verträge der nächsten Monate immer als Ausgangspunkt verwendet werden.
Jeder neue Vertrag unterscheidet sich natürlich von den vorhergehenden, in dem gewisse Daten ausgetauscht werden. Das Grundgerüst ist jedoch immer das selbe.

Ich habe mir überlegt, es wäre super, wenn ich eine separate calc-Tabelle machen kann (für jeden Vertrag separat), bei der es dann die in dieser Tabelle eingetragenen pro Vertrag individuellen Daten automatisch in die ursprüngliche writer-Vorlage an den von mir gewünschten Stellen einfügt (mittels Verknüpfung). Ich fülle praktisch die Calc Tabelle mit meinen Daten aus, und aufgrund der Verknüpfung von writer und Zellen der Calc-Datei entsteht der fertig ausgefüllte Vertrag.

Ist so etwas möglich?

Wenn ja, wie geht das?
Wenn nein, gibt es Alternativvorschläge?


Ich bedanke mich im Vorab für die Informationen, sollte der Thread nicht in der richtigen Kategorie sein, bitte ich diesen zu verschieben.

Grüße