MS Word: Automating one input to multiple bookmarks.

In my latest video, I demonstrate the process of using one inputbox or form to fill multiple bookmarks in Word 2016.

Code Used in this video

Private Sub Document_Open()

    Dim BK As String
    BK = InputBox("Please enter the name.")
    Dim Name1BookMark As Range
    Set Name1BookMark = ActiveDocument.Bookmarks("Name1").Range
    Name1BookMark.Text = BK
    Dim Name2BookMark As Range
    Set Name2BookMark = ActiveDocument.Bookmarks("Name2").Range
    Name2BookMark.Text = BK
End Sub