makro mehrmals ausführen

Dieses Thema makro mehrmals ausführen im Forum "Windows XP Forum" wurde erstellt von chrigi, 17. Feb. 2005.

Thema: makro mehrmals ausführen wenn ich folgendes makro ausführe, wird das von mir gewünschte genau 1 mal durchgeführt. ich hätte aber gerne, dass...

  1. wenn ich folgendes makro ausführe, wird das von mir gewünschte genau 1 mal durchgeführt. ich hätte aber gerne, dass das makro den gesamten text durchgeht, also bis ans ende des dokumentes. was muss ich tun?


    Code:
    Sub verschieben1()
      
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = @ort!
            .Replacement.Text = ^&
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
        Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Cut
        Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
        Selection.HomeKey Unit:=wdLine
        Selection.MoveUp Unit:=wdParagraph, Count:=1
        Selection.Paste
        
    End Sub
     
  2. Hallo

    Ich habe hier das gleiche Problem. Weiss niemand wie das geht?

    Danke
     
  3. Hi zusammen,

    eine Lösung wäre
    Code:
    Sub verschieben1()
      
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = @ort!
            .Replacement.Text = ^&
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
          Do While .Execute = True
            Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
            Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
            Selection.EndKey Unit:=wdLine, Extend:=wdExtend
            Selection.Cut
            Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
            Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
            Selection.HomeKey Unit:=wdLine
            Selection.MoveUp Unit:=wdParagraph, Count:=1
            Selection.Paste
          Loop
        End With
        
    End Sub
    Gruß Matjes  ;)
     
Die Seite wird geladen...

makro mehrmals ausführen - Ähnliche Themen

Forum Datum
Excel VBA Makro zum suchen eines Textes und anschließend einen Breich zu kopieren Microsoft Office Suite 22. Jan. 2015
Word 2013 VBA: Makro aus einer anderen Datei aufrufen Microsoft Office Suite 16. Juni 2014
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Excel: Makro ASCII verschieben Windows XP Forum 8. Nov. 2013
Makros und anderes - Excel Microsoft Office Suite 15. März 2013