Sub קפיצה_לסוף_המסמך()
'
' קפיצה_לסוף_המסמך Macro
'
'
   Selection.WholeStory
    Selection.MoveDown Unit:=wdParagraph, Count:=1
End Sub