Usa vb para escribir código fuente dxf

Lo haré. . . . . DXF no. . Publique una palabra como referencia si es necesario.

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.