¿Cómo reemplazar palabras en un documento de Word con texto en VB?

Para el siguiente código, puede consultar las macros en WORD, todos los códigos están ahí.

Ejemplo:

atenuar xx como nueva Word.Application

con xx.Documents.open("c:\1.doc")

con .Content

.Find.Execute "preguntar", falso, falso, falso, falso, falso, verdadero, 1, falso, me.text1.text, 2, falso, falso, falso , false, false

termina con

termina con

Es posible que los principiantes no hayan encontrado dónde está la introducción. No es necesario introducir el siguiente código en DLL

Se puede introducir directamente en VB Agregar un botón y VB6.0

Private Sub Command1_Click()

Dim wordObj

Establecer wordObj = CreateObject(" Word.Application")

Con wordObj.Documents.Open("c:\1.doc") 'Ruta del documento WORD

Con .Content

Si .Find.Execute("preguntar") Entonces

.Text = Me.Text1.Text

Terminar si

Terminar con

.Guardar

Terminar con

wordObj.quit

End Sub