Macro buscar y reemplazar multiples VB
Publicado por Dario Hernan (2 intervenciones) el 17/12/2017 08:07:16
Buenos dias, tengo el siguiente codigo fuente...
este codigo fuente busca si declaras el valor de la palabra y lo reemplaza por otro valor declarado...
la idea es que busque en la fina 1 y lo reemplace por lo que se encuentra en la fila 2 (justo debajo)
soy nuevo en esto y me gustaría una ayuda... gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub exportaraword1()
Dim patharch
Dim objWord
Dim textobuscar
Dim textoreemplazar
patharch = ThisWorkbook.Path & "\LEGAJO UNIVERSAL.DOCX" 'ruta de la plantilla
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
textobuscar = Worksheets("AAOrigenDatos").Rows("1")
textoreemplazar = 2objWord.Selection.Move 6, -1 'moverse al principio del documento
objWord.Selection.Find.Execute FindText:=textobuscar
While objWord.Selection.Find.found = True 'reemplaza el texto, y busca si hay otro para reemplazarlo
objWord.Selection.Text = textoreemplazar
objWord.Selection.Move 6, -1
objWord.Selection.Find.Execute FindText:=textobuscar
Wend
objWord.ActivateEnd Sub
este codigo fuente busca si declaras el valor de la palabra y lo reemplaza por otro valor declarado...
la idea es que busque en la fina 1 y lo reemplace por lo que se encuentra en la fila 2 (justo debajo)
soy nuevo en esto y me gustaría una ayuda... gracias.
Valora esta pregunta
0
