(macro) en Word para poner/quitar formato párrafo
Esta macro pone formato si el párrafo al que se aplica tiene formato normal. Si se vuelve a ejecutar la macro sobre el mismo párrafo, entoces pone formato normal al párrafo...
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
(macro) en Word para poner/quitar formato párrafo