Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo formatear el efecto de escritura a mano en Word para que las palabras en el documento de Word parezcan inconsistentes en tamaño

Cómo formatear el efecto de escritura a mano en Word para que las palabras en el documento de Word parezcan inconsistentes en tamaño

Sub RandVBA()

'Puede tomar un valor entre cuatro y tres: 14 14.5 15 15.5 16

Dim R_Character As Range

Dim myFontSize As Single

Application.ScreenUpdating = False

Para cada R_Character en ActiveDocument, R_Character = False

R_Character = FalseScreenUpdating = False

Para cada R_Character en ActiveDocument .Characters

VBA.Randomize

myFontSize = Choose(Int(VBA.Rnd * 5 ) 1, "14", "14.R_Character.Font.Position = Int(VBA . Rnd * 5) 1

'Espaciado, haz lo mismo

'R_Character.Font.Spacing = Int(VBA.Rnd * 5) 1

Aplicación.