• Aktualisierte Forenregeln

    Eine kleine Änderung hat es im Bereich Forenregeln unter Abschnitt 2 gegeben, wo wir nun explizit darauf verweisen, dass Forenkommentare in unserer Heftrubrik Leserbriefe landen können.

    Forenregeln


    Vielen Dank

Visual Basic - Textausrichtung

necronomicon

Anfänger/in
Mitglied seit
08.01.2004
Beiträge
51
Reaktionspunkte
0
Mahlteit,

ich weiss zwar nicht ob das hier hin gehört, aber ich werde mein Problemchen
mal schildern.

Also es geht darum, dass ich im word 95 ein Makro ändern muss und ich nicht
weiss wie ich es anstellen soll.
Ich erkläre es mal anhand des Quelltextes:

Select Case urk
Case 8 To 9
REM Zusätzliche Unterschriften *************************************
REM FormatPosRahmen .Textfluß = 1, .BreiteAuswahl = 1, .BreiteMaß = "18 cm", .HöheAuswahl = 1, .HöheMaß = "4 cm", .PositionHoriz = "6,4 cm", .PositionHorizGemVon = 1, .AbstZumText = "0,25 cm", .PositionVert = "31,15 cm", .PositionVertGemVon = 1, .AbstVertZu
'mText = "0 cm", .MitTextVerschieben = 0, .VerankerungsPunktFixieren = 0
EndeZeile
Einfügen Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11)
Einfügen "Obermeister" + Chr$(9) + "Geschäftsführer"
Einfügen Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11)
ZeichenFarbe 9
Einfügen "Hans" + Chr$(9) + "Franz" + Chr$(11)
ZeichenFarbe 0
Einfügen "Präsident" + Chr$(9) + "Hauptgeschäftsführer"
FormatTabulator .Position = "16,9 cm", .StandardTabs = "1,25 cm", .Ausrichten = 2, .Füllzeichen = 0, .Bestimmen

Case Else

REM Positionsrahmen für das Datum **************************************
FormatPosRahmen .Textfluß = 1, .BreiteAuswahl = 1, .BreiteMaß = "17,5 cm", .HöheAuswahl = 1, .HöheMaß = "1,27 cm", .PositionHoriz = HorizontaleDatumsposition$, .PositionHorizGemVon = 1, .AbstZumText = "0,25 cm", .PositionVert = VertikaleDatumsposition$, .PositionVertGemVon = 1, .AbstVertZumText = "0 cm", .MitTextVerschieben = 0, .VerankerungsPunktFixieren = 0
REM Alte Werte:6 cm und 32,6 cm *************************************

'Einfügen von Präsident und Hauptgeschäftsführer
EndeZeile
Einfügen Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11) + Chr$(11)
ZeichenFarbe 9
Einfügen "Hans" + Chr$(9) + "Franz" + Chr$(11)
ZeichenFarbe 0
Einfügen "Präsident" + Chr$(9) + "Hauptgeschäftsführer"
FormatTabulator .Position = "16,9 cm", .StandardTabs = "1,25 cm", .Ausrichten = 2, .Füllzeichen = 0, .Bestimmen

End Select

Also nach diesem Quelltext sehen die beiden eingefügten Namen so aus:

Hans.............................................................Franz
Präsident.......................Hauptgeschäftsführer

Das problem was ich habe ist es den Franz linksbündig mit dem Hauptgeschäftsführer abzuschliessen.
So soll es aussehen:

Hans...............................Franz
Präsident.......................Hauptgeschäftsführer

Ich habe schon an der Ausrichtung herumgeschraubt, aber nicht den gewünschten effekt erziehlt.
2 besagt rechtsbündig, 1 mittig, und 0 sollte dann linksbündig.
2 ist hier, wie ihr sehen könnt, schon eingestellt. Wenn ich den Wert auf 1 setze ist er mittig über dem Hauptgeschäftsführer.
Aber wenn ich 0 für linksbündig eingebe steht alles komplett links. Und zwar so:

HansFranz
PräsidentHauptgeschäftsführer

Und so soll es halt nicht aussehen. Ich hoffe ihr könnt mir da weiterhelfen.
Achso die Namen sind natürlich nicht die richtigen.

Ich danke schon einmal im vorraus.
 
Zurück