PHP - Funcion en Visual Basic 6.0 para encontrar y modificar un texto de un documento Word 2010

 
Vista:
Imágen de perfil de carlos humberto
Val: 12
Ha aumentado su posición en 2 puestos en PHP (en relación al último mes)
Gráfica de PHP

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 :

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder