Anulare formatare text in textboxuri word

Sub set_font_in_text_boxes()

For Each s In ActiveDocument.Shapes
With s.TextFrame
If .HasText Then
.TextRange.Font.Name = „Times New Roman”
.TextRange.Font.Spacing = 0
.TextRange.Font.Scaling = 100
.TextRange.Font.Position = 0
.TextRange.Font.Kerning = 0
End If
End With
Next

For Each s In ActiveDocument.Shapes
With s.TextFrame
If .HasText Then
.TextRange.Font.Name = „Times New Roman”
.TextRange.Font.Spacing = 0
.TextRange.Font.Scaling = 100
.TextRange.Font.Position = 0
.TextRange.Font.Kerning = 0
End If
End With
Next

End Sub

Lasă un răspuns

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate cu *