Usa vb para escribir código fuente dxf
Subcomando privado Button8_Click()
Dim i%, m%, actualmente una cadena, ahora una cadena, el estilo del archivo es una cadena
Will Wdapp es ajustado a Word. Aplicar
Atenuar WdDocument como Word. Archivo
Atenuar el archivo de usuario como cadena
Establecer Wdapp = nueva palabra. Aplicación
UserFile = Wdapp. Caminos y caminos. " \jmxq-1.doc "
Establecer WdDocument = Wdapp. documentos . Open(" C:\ SOFT \ grupo de ejemplo \ jmxq-1 . doc ")
Wdapp. visible = true
Para m = 2 a 30
current = "<& Sheet10.Cell(m,1)&" >
current = Sheet10 . Celda(m,2)
Wdapp. selección buscar ejecutar Reemplazar: = wdReplaceAll
Usar Wdapp. Seleccionar.Buscar
. Texto=actual
. Reemplazo.Texto=actual
. adelante=Verdadero
. Ajuste = wdFindContinue
. formato=Verdadero
. MatchCase = Falso
. MatchWholeWord = Falso
. MatchByte = Verdadero
. Comodín de coincidencia = Falso
. MatchSoundsLike = Falso
. MatchAllWordForms = False
Termina en
Wdapp. selección buscar ejecutar Reemplazar: = wdReplaceAll
CommandBars("Salir del modo de diseño"). visible=false
Siguiente m
Conector final
Esto es lo que escribí. Espero que te sea útil para buscar y reemplazar contenido basado en una tabla EXCEL en WORD.