can anyone show me how can i make a button to run macro

Create simple moving code that can move all my page objects up or down in once but now i want to work with a command button and a text box dont know how to linked them i checked out tutorials but cant able to understand them please help to understand them

Sub move()
    Dim p As Page, s As Shape, sr As ShapeRange
    
    ActiveDocument.BeginCommandGroup "undo"
    
    Dim i&
 
    For i = 1 To ActiveDocument.Pages.Count
        ActiveDocument.Pages(i).Shapes.All.move 0#, 0.069
    Next i
 
    ActiveDocument.EndCommandGroup
 
End Sub