Seite 1 von 1

Bestimmte Texte Automatisch Fett schreiben

Verfasst: Mi 22. Nov 2017, 15:51
von GamerG1rl
Hallöchen,

ich suche eine Möglichkeit, dass bestimmte Texte Automatisch fett geschrieben werden.
Also wenn ich z.B. schreibe: "Hallo, Wie geht es dir?" soll "gehts" automatisch Fett geschrieben werden,

Kann man das irgendwie machen ? Ich hab schon versucht das ganze über die Autokorrektur zu lösen, allerdings schreibt er mir dann *gehts* und das is ja nicht richtig...

Habt ihr ne Lösung ?
lg Michelle

Re: Bestimmte Texte Automatisch Fett schreiben

Verfasst: Mi 22. Nov 2017, 21:49
von pitzy
Einfach eine "Zeichenvorlage" mit fetter Schrift erstellen, dann über Suchen Suchwort "alle suchen". Wenn dann alle Suchobjekte farblich markiert sind, auf die neue Vorlage, die man mit F11 gut sichtbar bereit hat, doppelt klicken. Fertig.

Aber "gehts" ist kein gutes Beispiel, weil das bei mir automatisch in "geht´s" korrigiert wird.

Re: Bestimmte Texte Automatisch Fett schreiben

Verfasst: Mi 5. Mai 2021, 17:54
von BlackProfDok
Hallo,
darf ich diese "alte" Frage nochmal aufgreifen?

Gibt es mittlerweile eine wirklich automatische Möglichkeit bestimmte Wörter in "fett" darzustellen?

Ähnlich wie bei der Autokorrektur - i-wo gebe ich die entsprechenden Wörter an, und wenn diese
geschrieben werden, werden sie automatisch in Fett-Schrift gewandelt.

Ich suche eine Lösung, weil gewährleistet sein muss, div. Wörter hervorzuheben. Der User, der tippt,
vergisst gerne die Anpassung.

Gruß Frank

Re: Bestimmte Texte Automatisch Fett schreiben

Verfasst: So 6. Jun 2021, 10:37
von F3K Total
Moin,
ich habe einen vorschlag dies per Makro zu erledigen, Beispieldatei anbei.

Code: Alles auswählen

Sub Set_bold
    Dim oFound       'The found range
    aWords = get_bold_words
    oSearchDescriptor = ThisComponent.createSearchDescriptor
    for i = 0 to uBound(aWords)
        with oSearchDescriptor
            .SearchString = aWords(i)
            .SearchWords = true           'The attributes default to False
            .SearchCaseSensitive = False  'So setting one to False is redundant
            .SearchAll = true
        end with
       oFounds = ThisComponent.findAll(oSearchDescriptor)
       for k = 0 to oFounds.count - 1
            oFound = oFounds(k)
            oFound.CharStyleName = "Standard_Fett"' set CharStyleName
       next k
    next i
End Sub

function get_bold_words
    dim sWords(0) as String
    nCounter = 0
    oUDPV = thiscomponent.DocumentProperties.UserdefinedProperties.PropertyValues
    for i = 0 to Ubound(oUDPV)
        if Left(oUDPV(i).Name, 4) = "Word" then
        redim preserve sWords(nCounter)
        sWords(nCounter) = oUDPV(i).Value
        nCounter = nCounter + 1
        endif
    next i
    get_bold_words = sWords
end function
Trage die Fett zu schreibenden Wörter, unter Menü Datei/Eingenschaften ... -> Reiter „Benutzerdefinierte Eigenschaften“ in das Dokument ein. Verwende dabei als Name für die Eigenschaft Word, gefolgt von einer laufenden Nummer.
Beim Speichern des Dokumentes, das geht nur wenn eine Änderung vorgenommen wurde, werden die dort eingetragenen Worte mit der Zeichenvorlage „Standard_Fett“ versehen.

Aktuell sind dort die drei Worte Frank, Lösung und Möglichkeit eingetragen.
af.png
af.png (12.39 KiB) 5206 mal betrachtet
Damit die Makros laufen dürfen, stellst du unter Extras/Einstellungen/Openoffice/Sicherheit/Makrosicherheit oder Extras/Optionen/LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.
Gruß R

Re: Bestimmte Texte Automatisch Fett schreiben

Verfasst: So 6. Jun 2021, 11:39
von mikele
Hallo,
hier gab es vor kurzem auch eine Antwort https://de.openoffice.info/viewtopic.php?f=1&t=75467

Re: Bestimmte Texte Automatisch Fett schreiben

Verfasst: So 6. Jun 2021, 12:25
von F3K Total
Na, das ist ja wieder ganz toll gelaufen, danke BlackProfDok für das Crossposting ohne Referenz. :oops:
Die Lösung von Stephan ist sicherlich die bessere, da sie ohne Makro auskommt.
R