Sub formatoparrafo()
 Dim bandera As Integer
 Dim miestilo As Style
 Dim ciclo As Style
 Selection.Collapse Direction:=wdCollapseStart
 For Each ciclo In ActiveDocument.Styles
   If ciclo.NameLocal = "miestilo" Then
      bandera = 1
      Exit For
   Else
      bandera = 0
   End If
 Next ciclo
 If bandera = 0 Then
    Set miestilo = ActiveDocument.Styles.Add(Name:="miestilo", _
    Type:=wdStyleTypeParagraph)
    With miestilo.Font
      .Size = 12
      .Bold = True
      .Italic = True
      .Name = "Times New Roman"
      .Size = 12
    End With
 End If
 Selection.Expand Unit:=wdParagraph
 If Selection.Style = "miestilo" Then
    Selection.Style = "Normal"
 Else
    Selection.Style = "miestilo"
 End If
 Selection.Collapse Direction:=wdCollapseStart
End Sub