Vorgabe einer festgelegten Wortzahl??

Das Textverarbeitungsprogramm

Moderator: Moderatoren

joe034
**
Beiträge: 25
Registriert: Mo, 18.12.2006 13:02

Vorgabe einer festgelegten Wortzahl??

Beitrag von joe034 »

Hallo!
Ich schreibe oft Auftragstexte mit fest vorgegebener Wortzahl. Kann man ein neues Textdokument so konfigurieren, daß die Wortzahl schon "voreingestellt" ist und ich weiß, wann ich enden muss?
Ich kenne die Funktion "Wörter zählen", aber die muss ich immer manuell einblenden.
Hilfreicher wäre:
- ständig eingeblendete aktuelle Wortzahl
- eine festgelegte Grenze im Dokument

Kennt jemand eine derartige Funktion?
System: Linux Mint 10 und Mac OS X 10.4.11
bonzo
******
Beiträge: 994
Registriert: Do, 23.03.2006 17:41
Wohnort: Bietigheim-Bissingen

Re: Vorgabe einer festgelegten Wortzahl??

Beitrag von bonzo »

Hallo,
eine Teillösung wäre das Einfügen eines Feldbefehls (Einfügen-Feldbefehl-Andere, beim Reiter Dokument Statistik u. Wörter), den kannst du dann mit F9 aktualisieren.
Hier Genaueres.
Ciao
Windows 7
LO 5.0.2
Oo 4.1.2
Stephan
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Vorgabe einer festgelegten Wortzahl??

Beitrag von Stephan »

Um die aktuelle Wortanzahl in der Titelzeile anzuzeigen und beim Erreichen einer vorgegebenen maximalen Wortanzahl eine WArnung auszugeben sollte folgendes Makro reichen:

Code: Alles auswählen

Sub Main
Maximale_Wortanzahl = 110
st = ThisComponent.Title
Do
	ThisComponent.Title = st & " (Wörter: " & ThisComponent.WordCount & ")"
	Wait 100
Loop While ThisComponent.WordCount < Maximale_Wortanzahl
Msgbox "Maximale Wortanzahl ist erreicht!"
End Sub

Gruß
Stephan
joe034
**
Beiträge: 25
Registriert: Mo, 18.12.2006 13:02

Re: Vorgabe einer festgelegten Wortzahl??

Beitrag von joe034 »

Sieht schonmal gut aus. Aber wie bekomme ich das jetzt in OO integriert.
hab zwar die Verwaltung der Makros gefunden, aber keine Möglichkeit, dieses hier als neues Makro irgendwie zu speichern.
Stephan hat geschrieben:Um die aktuelle Wortanzahl in der Titelzeile anzuzeigen und beim Erreichen einer vorgegebenen maximalen Wortanzahl eine WArnung auszugeben sollte folgendes Makro reichen:

Code: Alles auswählen

Sub Main
Maximale_Wortanzahl = 110
st = ThisComponent.Title
Do
	ThisComponent.Title = st & " (Wörter: " & ThisComponent.WordCount & ")"
	Wait 100
Loop While ThisComponent.WordCount < Maximale_Wortanzahl
Msgbox "Maximale Wortanzahl ist erreicht!"
End Sub

Gruß
Stephan
System: Linux Mint 10 und Mac OS X 10.4.11
joe034
**
Beiträge: 25
Registriert: Mo, 18.12.2006 13:02

Re: Vorgabe einer festgelegten Wortzahl??

Beitrag von joe034 »

Ich hab mich jetzt anderweitig beholfen.
Hab mir in der jeweiligen Wortmenge ein "Lorem Ipsum"-Dokument angelegt und schreibe dann im Überschreibmodus.
Da hat man auch einen ganz guten Überblick.

Trotzdem würde es mich interessieren, wie man das Makro im Oo einfügt/einbettet/aktiviert...
System: Linux Mint 10 und Mac OS X 10.4.11
Benutzeravatar
komma4
********
Beiträge: 5332
Registriert: Mi, 03.05.2006 23:29
Wohnort: Chon Buri Thailand Asia
Kontaktdaten:

Re: Vorgabe einer festgelegten Wortzahl??

Beitrag von komma4 »

joe034 hat geschrieben:Trotzdem würde es mich interessieren, wie man das Makro im Oo einfügt/einbettet/aktiviert...
Steht im Wiki: http://www.ooowiki.de/%C3%9CbersichtMakros
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Antworten