te creas un boton y pegas esto
Private Sub Command1_Click()
Dim objWord As New Word.Application
'Muestra el Word
'Si no quieres que se vea sustituye True por False
objWord.Visible = True
'Añade un nuevo documento
objWord.Documents.Add
'Añade texto al documento
objWord.Selection.TypeText "Estamos en"
objWord.Selection.TypeText " http://ocioestudio.fiestras.com"
'Selecciona todo el texto
'objWord.Selection.WholeStory
'Cambia el tamaño del texto
'objWord.Selection.Font.Size = 50
'Cambia el color del texto de la seleccion
'objWord.Selection.Font.Color = wdColorRed
'La siguiente linea pregunta al usuario para salvar el documento
'objWord.Documents.Save
'Esta linea es si queremos imprimir el documento
'objWord.PrintOut
Set objWord = Nothing
End Sub