The macro for that could be coded as:
Code:
Private Sub Document_New()
Application.ScreenUpdating = False
Dim sngWdth As Single, StrIn As String
StrIn = InputBox("Please specify a margin width, in decimal inches", "Margin Setup", "1.00")
If IsNumeric(StrIn) Then
sngWdth = InchesToPoints(CSng(StrIn))
Else
Exit Sub
End If
With ActiveDocument.PageSetup
.LeftMargin = sngWdth
.RightMargin = sngWdth
.TopMargin = sngWdth
.BottomMargin = sngWdth
End With
Application.ScreenUpdating = True
End Sub
To use it, start Word and press Alt-F11 to open the VBA Editor. On the left, you should see and entry named 'Normal' and, below that, and entry for 'Microsoft Word Objects' and, below that, an entry named 'ThisDocument'. Double-click on that and paste the above code into the main window. Done. If Word prompts you to save changes to the Normal template when next you exit Word, do so. From now on, entering a single value into the input box you'll get as a prompt every time you create a new document, your new document will get all-round margins with that value. As coded, the macro defaults to the standard 1.00in margins.