Versión para imprimir
Hola.
Necesito crear una macro en un documento de Word en la que me reemplace "1*" por una macro que ya tengo creada en word. La macro que ya tengo creada es solo un texto que va en negrita una parte mayúsculas otra no y distintos tamaños de letra. A ver si alguien me podría ayuda.
Un saludo.
Hola de nuevo.
Voy a intentar poner el problema mucho más concreto. Tengo estas macros creadas: ABtitulo5: esta macro lo que hace es buscar 5* y reemplazarlo por la macro "Gonzalez" (esta macro lo que hace es poner un nombre en Arial 9, negrita y mayúsculas seguido del cargo que tiene en Arial 10, negrita y en minúscula, para finalizar con : en Arial 9). Finalmente tenemos la macro ABucle5 que es una bucle variable en la que yo tengo que indicar el número de veces que se tiene que repetir la macro ABtitulo5.
El problema que tengo es con la macro ABtitulo5 que lo que intento es que busque todos los 5* y aplique la macro "Gonzalez", pero quiero que cuando no encuentre 5* deje de aplicar la macro "Gonzalez". Y eso es lo que no sé hacer y les pido ayuda a ver si es posible.
Sub ABtitulo5()
'
' ABtitulos5 Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "5*"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Application.Run MacroName:="Gonzalez"
End Sub
Sub Gonzalez()
'
' Gonzalez Macro
' Macro grabada el 26/06/03 por Alberto Bastián Ordiales
'
Selection.TypeText Text:=vbTab
Selection.Font.Bold = wdToggle
Selection.Font.Size = 9
Selection.TypeText Text:="EL SEÑOR GONZÁLEZ GONZÁLEZ "
Selection.Font.Size = 10
Selection.TypeText Text:="(consejero de Hacienda):"
Selection.Font.Bold = wdToggle
Selection.TypeText Text:=" "
End Sub
Sub ABucle5()
Dim i As Integer
Dim intVeces As Integer
intVeces = InputBox("Ingresa el número de veces a repetir:", "Mi Sistema", 10)
For i = 1 To intVeces
ABtitulo5
Next i
End Sub