• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Macro para crear agregar clausulas de contrato

r.tobarguerra

New member
Hola amigo estuve trabajando en una macro para poner clausulas en un prototipo de contrato, que depende de cada cliente que clausulas se ocupan, por ello tengo varios checkbox que me dicen si se agregan o no y en el archivo word tengo lo que va si o si, pero quiero agregar contenido dependiendo de que check este presionados por ello programe una macro que busca "código" (ej: "[Text1]") que inserte en el documento para que los busque y remplace, me gustaría que esto lo remplace por información que tengo guardada en un excel y pueda tomar un rango y que lo cambie por ese código
Pongo fragmento de código son 21 checkbox, y después borra todos los [Textn°] que no uso
código:

Private Sub CommandButton3_Click()
If CheckBox1.Value = True Then

Selection.Find.ClearFormatting
With Selection.Find
.Text = "[Text1]"
.Replacement.Text = " " 'para buscar en el excel por rango
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End If

If CheckBox2.Value = True Then

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[Text2]"
.Replacement.Text = "[Text22]"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If

If CheckBox3.Value = True Then

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[Text3]"
.Replacement.Text = "[Text22]"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If

If CheckBox4.Value = True Then

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[Text4]"
.Replacement.Text = "[Text22]"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If


End Sub


Muchas gracias por su tiempo
 
Arriba