Acerca de la programación VBA en Word

Solución a tu "por cierto"....

Sub Macro1()

Dim strText As String

strText = "Construye un tornado contra Sachrith"

Selection.TypeText strText

Selection.MoveStart Unit:=wdLine, Count:=-1

Selection .MoveEnd Unit: =wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)

Selection.MoveStart Unit:=wdCharacter, Count:=3

Selection .Font.Bold = Verdadero

Selección de MsgBox.Text

End Sub