Macro para crear agregar clausulas de contrato

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
r.tobarguerra
Miembro Nuevo
Miembro Nuevo
Mensajes: 1
Registrado: 14 Ene 2020 22:56

Macro para crear agregar clausulas de contrato

Mensaje por r.tobarguerra » 14 Ene 2020 23:12

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



Responder