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

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Macro para crear agregar clausulas de contrato

Autor del tema r.tobarguerra
Fecha de inicio 14 Ene 2020

r.tobarguerra

New member

14 Ene 2020

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...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Macro para crear QR en excel con salto de línea.

Respuestas: 1

19 Mar 2024

Redu Mak

Resuelto

Macro para crear hipervínculos a varias columnas

Respuestas: 8

21 Nov 2023

mago18

Resuelto

Macro para crear Formula

Respuestas: 2

1 Sep 2023

mellizo70

Pregunta

Crear Macro para Resumen

Respuestas: 4

2 Jun 2023

mellizo70

Pregunta

Macro para crear archivo de una base de datos

Respuestas: 1

4 Mar 2023

hc3115

Pregunta

Macro para crear carpeta por aproximación II

Respuestas: 6

26 Ene 2023

javilop

Pregunta

Macro para eliminar filas y columnas y crear tabla dinamica

Respuestas: 11

21 Ago 2022

viewotst

Pregunta

Problema con crear macro

Respuestas: 14

9 Ago 2022

Macro Antonio

Pregunta

Problema en crear una macro de busqueda desde un textbox

Respuestas: 2

20 May 2022

Macro Antonio

Pregunta

Macro: Filtro Avanzado + Crear&guardar documento + enviar a mail

Respuestas: 4

15 May 2022

Revexcel01

Facebook Twitter Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba