Word VBA søg og slet alt nedenfor

Forslag:
Prøv at indspille en makro, der netop gør det du beskriver - så skulle du have en kode, der kan forbindes til en knap.

Indsæt en
"Exit sub"
på ønsket sted.

En hurtig indspilning gav:

Sub SletFraTekstOgFrem()
  Selection.HomeKey Unit:=wdStory
  Selection.Find.ClearFormatting
  With Selection.Find
      .Text = "Standarddokument slutter her"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
  End With
  Selection.Find.Execute
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.EndKey Unit:=wdStory, Extend:=wdExtend
  Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

Hej.

Den ser ud til at virke fint - men den skal også slette den tekst, som der sørges på... Kan det lade sig gøre, at den tager det med? Jeg kan ikke umiddelbart få den til det...:-(

Ha! Nå, jeg prøvede så lige at ændre MoveRight til MoveLeft - så virker det perfekt. Tak for hjælpen - smid et svar :-)

Et svar.. ;-)

:-)