Linken Einzug ändern mit Makro in Word 2003

Computer: Software & Programmierung Visual Basic
1

Hallo!

Ich möchte den linken Einzug bei einer best. Tastenkombination um 0,32 cm verschieben.
Den Einzug direkt festzulegen geht ja mit folgendem Code

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0,32)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With

Ich müsste jetzt nur noch den Code wissen, um die derzeitige Position zu erhalten.
Wer kann mir helfen!
Danke!

Grüße
Carsten

2

Ich möchte den linken Einzug bei einer best. Tastenkombination
um 0,32 cm verschieben.
Den Einzug direkt festzulegen geht ja mit folgendem Code
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0,32)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
Ich müsste jetzt nur noch den Code wissen, um die derzeitige
Position zu erhalten.

H Carsten,

hast du englisches Office? Weil so läuft der Code nicht hierzulande bei Standardeinstellungen.(Stichwort Dezimaltrenner)

Wenn es ein Tippfehler ist, dann bitte nicht tippen sondern reinkopieren um sowas auszuschließen.

Nützt dir das was:

Sub tt()
With Selection.ParagraphFormat
 MsgBox .LeftIndent
 .LeftIndent = CentimetersToPoints(0.32)
 .SpaceBeforeAuto = False
 .SpaceAfterAuto = False
 MsgBox .LeftIndent
End With
End Sub

Gruß
Reinhard

3

Hi!
Danke für Deine Antwort!
Ich habe es reinkopiert, aber halt nicht alles…

Bei dir ist der Wert ja auch fest vorgegeben.
Ich würde sehr gerne den aktuellen Wert + 0,32 einsetzen.
Und ich brauch halt den Befehl, der mir den aktuellen Wert liefert

Grüße
Carsten

4

Hi Carsten,

Bei dir ist der Wert ja auch fest vorgegeben.

nein, ich überschreib den aktuellen mit den umgerechneten 0.32

Ich würde sehr gerne den aktuellen Wert + 0,32 einsetzen.
Und ich brauch halt den Befehl, der mir den aktuellen Wert
liefert

Die msgbox liefert den doch ? Anstatt der ersten Msgbox mußt du ihn doch nur einbauen in den Restcode.

Sub tt()
With Selection.ParagraphFormat
 .LeftIndent = .LeftIndent+CentimetersToPoints(0.32)
 .SpaceBeforeAuto = False
 .SpaceAfterAuto = False
 MsgBox .LeftIndent
End With
End Sub

Gruß
Reinhard

5

Hi!
Nochmal danke für Deine Antwort!
Ich würde gerne, immer wenn ich die Tastenkombination drücke, dass sich der einzug um 0,32cm weiter nach rechts verschiebt.
Vllt. wird es so klarer…
Grüße
Carsten

6

Moin, Carsten,

Ich möchte den linken Einzug bei einer best. Tastenkombination
um 0,32 cm verschieben.
Den Einzug direkt festzulegen geht ja mit folgendem Code

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0,32)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With

dim aktuelleEinrückung as long 
dim Haudrauf as long

Haudrauf = .32 

With selection.ParagraphFormat
 aktuelleEinrückung = .leftIndent
 .leftIndent = aktuelleEinrückung + Haudrauf
End With

Gruß Ralf

7

Ich würde gerne, immer wenn ich die Tastenkombination drücke,
dass sich der einzug um 0,32cm weiter nach rechts verschiebt.
Vllt. wird es so klarer…

Hi Carsten,

zeichne dir doch ein Makro auf, dem weist du dabei eine Tastenkombination zu, dann mach irgendwas und beende die Aufzeichnung.
Such da nn das aufgezeichnete makro und ersetze den Innenteil durch nachfogende Zeilen. Die Kommentarzeile mit dem Hinweis welche Tastenkombination gilt kannste ja drin lassen.

With Selection.ParagraphFormat
 .LeftIndent = .LeftIndent + CentimetersToPoints(0.32)
 .SpaceBeforeAuto = False
 .SpaceAfterAuto = False
End With

Gruß
Reinhard

8

Yeah, das klappt!
Danke!

9

Danke!