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.
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.