Office: Warum wird Markierung bei Ausführen des Makros gelöscht ?

:?: Hallo Forum,

ich möchte in einem Word-Text in einem markierten Bereich bestimmte Ersetzungen und Formatierungen vornehmen und denn den markierten, geänderten Bereich in die Zwischenablage kopieren.
In dem ersten Teil (makro 1) werden estimmte Zeichen gegen Leerzeichen getauscht.
Im zweiten Teil (makro2) soll der markierte Teil als Aufzählung formatiert werden.
Das klappt soweit auch, aber nach makro2 wird aus einem mir nicht erfindlichen Grund die Markierung gelöscht so dass der Befehl

Code:

Selection.Copy

zu der Fehlermeldung führ, es sei kein Bereich markiert (Laufzeitfehler 4605).

Beide makros funktionieren getrennt voneinander einwandfrei und die Markierung bleibt erhalten. Werden sie jedoch hintereinander ausgeführt. ist die Markierung weg. Weiß jemand warum und was man dagegen tun kann ?

makro1:

Code:

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^t"
        .Replacement.Text = " "
        .Forward = True
             
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    'Selection.Find.ClearFormatting
    'Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
               
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    'Selection.Find.ClearFormatting
    'Selection.Find.Replacement.ClearFormatting
   With Selection.Find
        .Text = "GdB"
        .Replacement.Text = "(GdB "
        .Forward = True
                
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    'Selection.Find.ClearFormatting
    'Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0"
        .Replacement.Text = "0)" + "^p" 'Chr$(13) + Chr$(13) + Chr$(13)
       
        
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

makro2:

Code:

With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(0.63)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = CentimetersToPoints(1.27)
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior