Makro ändern

Question

Hallo
ich habe mir in Word 2007 einen Makro angelegt, der mir per klick auf ein Symbol den gesamten Pfad rechtsbündig in die Kopfzeile schreibt. So weit so gut.. Funktioniert alles. Nun habe ich aber versehentlich den Schriftgrad 9 angegeben. Mir wäre aber die Größe 7 lieber. Nun wollte ich das gerne ändern und nicht gleich einen neuen Makro anlegen. Ich dachte über anzeigen zum Code, da gibt es bestimmt die Zahl "Neun", die ich in 7 ändere und alles wäre ok. Aber dem ist nicht so. Ich finde die Schriftgradangabe im Code nicht.
Ich muss dazu sagen, einen Makro anlegen kann ich nur über aufzeichnen. Die ganzen Kommandos im Code sind für mich ein Brief mit 7 Siegel.
Sicher kann ich den Makro neu anlegen und überschreiben. Aber es wäre schön, wenn jemand eine Idee hätte, wie ich über den kurzen Weg ans Ziel komme.
Vielen Dank
Gruß Bird

Answer 1

Hallo Bird,

wäre da Dein Makro nicht intressant gewesen?
Jetzt sollen wir es aufzeichnen, da Du es nicht willst.

Gruß Hajo

Answer 2

Hallo Hajo
kannst Du mir bitte Deine Antwort näher erläutern? Ich verstehe leider kein Wort.
Welcher Makro wäre da interessant?
Was sollt Ihr aufzeichnen?
Ich wollte doch nichts aufgezeichnet haben. Ich wollte nur wissen, ob es eine Möglichkeit gibt, in einem Makro den einmal gewählten Schriftgrad zu ändern.
Gruß Bird

Answer 3

Hallo,

normalerweise müste das gehen, du musst nur die richtige Stelle haben, wie weit diese Änderung auf andere Sachen Auswirkungen hat, ist ohne das Makro zu kennen schwer zu sagen. Muss man testen

Gruß

Helmut

Answer 4

Hallo Helmut
schönen Dank für Deine Antwort.
Ich habe den Makro schon über Anzeigen/Ändern aufgerufen und hab dann natürlich nach einer Zahl 9 gesucht, weil ich beim aufzeichnen den Schriftgrad 9 eingegeben habe. Und da liegt nun mein Problem. In dem Code, der mir gezeigt wird, ist die Zahl neun nicht zu finden. Wie weiß den der Makro überhaupt in welcher Schriftgröße er arbeiten soll?
Ich wollte ja nichts anderes, als die Zahl 9 in die Zahl 7 abändern.
Viele Grüße
Bird

Answer 5

Hallo bird,

wir kennen Dein Makro nicht, wir wissen nicht, was Du aufgezeichnet hast. Erst wenn Du es kopierst und hier einstellst, kannst Du konkrete Hinweise erwarten.

Gruß sigiru

Answer 6

Hallo sigiru
hier, mein erstellter Makro.

Damit wird mir mit einem Klick auf ein Symbol der gesamte Pfad meines Dokuments rechtsbündig in die Kopfzeile eingesetzt. Allerdings habe ich beim erstellen versehentlich den Schriftgrad 9 statt 7 angegeben. Und das möchte ich, wenn es möglich ist, jetzt ändern.
Vielen Dank im voraus.
Gruß Bird

Answer 7

versuch mal, die 3

selection.font.shrink

durch

selection.font.size=7

zu ersetzen
oder noch 1 oder 2

selection.font.shrink

einzufügen.

Ele

Answer 8

Hi,

Sollte dann also so aussehen:

Sub Pfad()
'
' Pfad Makro
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME \p ", PreserveFormatting:=True
Selection.WholeStory
Selection.Font.Name = "Arial"
Selection.Font.Size = 7
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

bye

Answer 9

Hallo Bird,

ich denke, die beiden vorigen Antworten werden ausreichen, um Dein Problem zu lösen.

Hier nur noch die Erklärung, warum Du nirgends die "9" für die Schriftgröße gefunden hast.

"selection.font.shrink" verkleinert nur die Schriftgröße, setzt sie aber nicht auf einen bestimmten Wert. Dein Makro enthielt diese Anweisung 3 mal, also wurde die Schrift um 3 Stufen verkleinert. Je nach Ausgangs-Schriftgröße würdest Du damit dann unterschiedliche Ergebnisse bekommen.

Gruß sigiru

Answer 10

Hallo Ele
Dein Vorschlag 1 hat mein Problem 100% gelöst. Schönen Dank. Mein Makro sieht zwar jetzt so aus,

weil ich die weiteren Änderungen nicht vorgenommen habe, aber es ist gut so.
Hallo Sigiru
Dir nochmals extra Dank für Deine Erläuterung. Jetzt ist es mir wenigstens auch verständlich. Kannst Du mir vielleicht auch irgend ein Nachschlagewerk empfehlen, mit dem man ganz einfache Makros auch mal selbst erstellen kann. Wenn ich in den Code rein schaue, stehe ich "wie der Ochs vorm Berg".
Schönen Sonntag wünscht
Bird aus Bayern