PDA

Vollständige Version anzeigen : Formatwechsel innerhalb von Makro


C-J
04.08.2009, 14:33
Hallo zusammen,
ich bin hier am verzweifeln .. :(

Sub Bildverweis_einfügen()
'
' Bildverweis_einfügen Makro
'
Selection.Style = ActiveDocument.Styles("Bild_Verweis")
Selection.TypeText Text:="(Bild "
ActiveDocument.AttachedTemplate.BuildingBlockEntries("* SEQ Bildverweis"). _
Insert Where:=Selection.Range, RichText:=True
Selection.TypeText Text:=")"
Selection.Style = ActiveDocument.Styles("Standard")
Selection.Font.Italic = False
Selection.TypeText Text:=" "
End Sub

Mit diesem Makro wird ein Schnellbaustein eingefügt.
Der Baustein bekommt die Formatvorlage "Bild_Verweis".
Nachdem der baustein eingefügt wurde, soll das Format wieder auf Standard gesetzt werden, damit normal weitergeschrieben werden kann.

Es schaltet aber zum verre**en nicht zurück auf Standard. :mad:

Könnte mir bitte jemand sagen, wo da jetzt mein Denkfehler ist?

Bin für alle Antworten dankbar!

Gruß,
CJ

C-J
04.08.2009, 14:51
So, ich habe jetzt mal folgendes aufgezeichnet ...
Beim Aufzeichnen hat es auch geklappt (sprich nach dem Einfügen gehts mit "Standard" weiter. Das "k" habe ich nur zum Test während der aufzeichnung eingegeben!)

Selection.Style = ActiveDocument.Styles("Bild_Verweis")
Selection.TypeText Text:="(Bild "
ActiveDocument.AttachedTemplate.BuildingBlockEntries("* SEQ Bildverweis"). _
Insert Where:=Selection.Range, RichText:=True
Selection.TypeText Text:=") "
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Style = ActiveDocument.Styles("Standard")
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="k"

Wenn ich das aufgezeichnete Makro abspiele, klappt es nicht!!??. Dann geht es mit "Bildverweis" weiter.

Ich werde da nicht schlau draus ... Es hängt wohl damit zusammen, dass "Standard" eine reine Absatzformatforlage ist und nicht mit einer Zeichenformatvorlage verknüpft ist .. aber warum ist das so?

Gruß,
CJ

C-J
04.08.2009, 15:21
so hat es geklappt ... mein Gott!

Selection.Style = ActiveDocument.Styles("Bild_Verweis")
Selection.TypeText Text:="(Bild "
ActiveDocument.AttachedTemplate.BuildingBlockEntries("* SEQ Bildverweis"). _
Insert Where:=Selection.Range, RichText:=True
Selection.TypeText Text:=")"
Selection.Style = ActiveDocument.Styles("Standard")
Selection.Font.Reset
Selection.TypeText Text:=" "