Funcion en Visual Basic 6.0 para encontrar y modificar un texto de un documento Word 2010
Publicado por carlos humberto (1 intervención) el 07/12/2019 21:17:51
Necesito saber la función en Visual Basic 6.0 para encontrar y modificar un texto de un documento Word 2010, Tengo en siguiente ejemplo pero no funciona correctamente :
Saludos Cordiales
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
If TextBox1.Text <> "" Then
Options.DefaultHighlightColorIndex = wdNoHighlight
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find.Text = "<Customer_Name>"
.Replacement.Text = TextBox1.Text
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
With Selection.Find.Font
.Italic = True
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Italic = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
Saludos Cordiales
Valora esta pregunta
0