Teil-Text in Zeile einpassen [gelöst]

[clag]

Hallo Leutz,

nach etwas praktischem Einsatz denke ich ein "Airbag" wäre noch ganz nützlich
sonst schrumpft es auch mal versehentlich eine ganze Seite auf eine Zeile zusammen
kann jetzt nicht mehr passieren

Code: Alles auswählen

    Sub absatzstauchen ' mit "Airbag" !

       odoc = thisComponent
       oviewCursor = odoc.currentController.viewCursor()
       
       oTcursor = odoc.text.createTextcursor()
       oTcursor.gotorange( oviewcursor, false )
       oTcursor.gotoStartofParagraph( false )
       oTcursor.gotoEndofParagraph( true )
       
       oviewcursor.gotoStartofline( false )
       oviewcursor.gotoendofline( true )
       
       
    if Instr( otcursor.string, chr( 10 )) then
       rbreak = Instr( otcursor.string, chr( 10 ))
       oTcursor.collapsetoStart()
       oTcursor.goright( rbreak - 1 , true )
    end if

    scale = 100


    while  otcursor.string <> oviewcursor.string
'-----------------------------------------------------------------------------
	if scale < 75 then
		yn = MsgBox (" Text bereits um 25% gestaucht " & chr(13)_
		& " passt trotzdem nicht in die Zeile "  & chr(13)_
		& " wieder auf 100% setzen? "_
		, 36)
		if yn = 7 then exit sub
		if yn = 6 then oTcursor.CharScaleWidth  = 100
	exit sub
	end if
'----------------------------------------------------------------------------
       oviewcursor.gotostartofline( false )
       scale = scale -1
       oTcursor.CharScaleWidth  = scale
       oviewcursor.gotoendofline( true )
    wend

    End Sub

ich möchte das Makro nicht mehr missen, ein echter Helfer

[turtle47]

Hi Clag,

puh, Gott (Forum) sei Dank, kein Dispatcher-Code.

Tja, man wächst mit seinen Aufgaben.

Congratulations!

Jürgen

[clag]

Hallo turtle47 und all

@turtle47
in deinem ersten Satz hast du schon 2 Fehler
1. in der Klammersetzung,
2. ist die Variable falsch gesetzt
korrekt wäre also "Forum.Gott"

Tja, man wächst mit seinen Aufgaben.

das mit dem wachsen ist bei mir wie bei allen anderen "Jungtieren" auch ,
wenn man die mit Art und Maul gerechten Happen füttert, essen sie brav alles auf und gedeihen, also sachte anfüttern
schüttete man denen gleich den ganzen Kübel vor die Füße kriegen sie halt das kotzen

freut dich also nur nicht zu früh...
wenn du wüstest wie viel Ideen in mir schlummern aber mangels Basic-Wissen verkümmern aber auf Beantwortung gieren,
würdest du dich vor der Fragen Flut retten wollen und noch heute hier abmelden

ein schönes Wochenend
aber ein paar Fragen habe ich bestimmt wieder für euch ...................