makro mehrmals ausführen

chrigi · 17.02.2005

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 = ^&amp;
        .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

john f · 17.02.2005

Hallo

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

Danke

Matjes · 17.02.2005

Hi zusammen,

eine Lösung wäre

Code:

Sub verschieben1()
  
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = @ort!
        .Replacement.Text = ^&amp;
        .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

makro mehrmals ausführen

chrigi

john f

Matjes

makro mehrmals ausführen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums