Reemplazar cadenas especificadas en documentos de Word con un lenguaje sencillo

Crea un programa de Word y utiliza Buscar en Objetos.

Inserte los siguientes componentes con antelación:

_Ventana de inicio (Ventana)

Programa Word 1 (Programa Word)

Documento de Word Conjunto 1 (conjunto de documentos de Word)

Barra de desplazamiento horizontal 1 (barra de desplazamiento horizontal)

Cuadro de nombre (cuadro de edición)

Cuadro de fecha (cuadro de edición)

p>

Reemplazar botón (Botón)

Agregar botón (Botón)

El código es el siguiente: ¿Versión? 2

. ¿Biblioteca de soporte? eWord2000

. ¿Biblioteca de soporte? ¿Asamblea? Ensamblaje de Windows 1

.Nombre de la variable de ensamblaje, tipo de texto, "0"

.¿Variable de ensamblaje? Fecha, tipo de texto,?,?" 0"

. ¿Subrutina?___Iniciar ventana_Creada

'?Programa de Word 1.Crear?()

'?Conjunto de documentos de Word 1.¿Colocar programa?(Programa de Word 1,?verdadero)

'?Programa Word 1. ¿Título de la ventana? =?"Programa de reemplazo de plantilla"

'?¿Escribir archivo? (¿Obtener el directorio en ejecución?()? ?"\Temp.doc",?Leer el archivo?(¿Obtener el directorio en ejecución?()? ?"(CallTemplate.doc"))

'?Word conjunto de documentos 1. ¿Abrir? (¿Obtener el directorio en ejecución? ()? ? "\Temp.doc")

_¿Se hizo clic en el botón? ()

.¿Subrutina de palabra?

¿Parámetros? Conjunto de documentos WORD

. ¿Parámetros? Texto de reemplazo, tipo de texto

. ¿Ocurrencia, número entero? contenido de palabra variable, tipo de texto

. ¿Variable local? Objeto

. Objeto variable local

. >

.¿Variable local?Objeto4,?Objeto

.Variable local?variante1,?Tipo de variable

.Variante de variable local2, tipo de variable

. ¿Variable local? Variable 3, tipo de variable

.Variable local N, tipo entero

. ¿Primer bucle de conteo (recuento,?)

Objeto =? conjunto de documentos?()

Objeto 2 =?

Leer propiedades de tipo de objeto ("Contenido", ?Objeto 2 ¿Leer propiedades de tipo de objeto? ("Buscar", ?)

Objeto 4?=?Objeto 3. ¿Leer propiedades de tipo de objeto? ("Reemplazo",? )

Objeto 4. ¿Escribir propiedades? ("Texto",? Texto de reemplazo)

Variante 1. (¿Buscar texto,?)

Variante 2. ( verdadero, ???)

Variante 3. falso, ???)

.¿Si es verdadero? (Objeto 3. ¿Método lógico?("Ejecutar",?variable 1,?,?,?,?,?,?,?,?,?,?variable3,?,variable2,?,?,?, ? ))

N=N 1

. Si es verdadero, finalice

. ¿Calcular la hora de finalización del ciclo? ()

Regresar ?(N)

.Subrutina ?_add_button_clicked

¿Redefinir la matriz? (nombre). ¿Obtener matriz?(nombre)??1)

¿Redefinir matriz?(fecha,?Verdadero,?Obtener matriz?(fecha)??1)

Barra de desplazamiento horizontal 1. Máximo position = ?Obtener el número de miembros de la matriz? (nombre)

Barra de desplazamiento horizontal 1.posición =?¿Obtener el número de miembros de la matriz? (nombre)

_Horizontal_scrollbar1_position_changed?()

¿Subrutina? _La posición de la barra de desplazamiento horizontal1_cambió

Nombre box.content=? ¿nombre? [barra de desplazamiento horizontal1.posición]

Cuadro de fecha.¿contenido? ¿fecha? [barra de desplazamiento horizontal 1. posición]

¿Subrutina? _NameBox_ Perdiste el foco

¿Nombre?[NameBox. Cuadro de nombre. Contenido

.¿Subrutina?_date box_lost focus

¿Fecha?[barra de desplazamiento horizontal 1. posición]?Cuadro de fecha. Contenido

.¿Subrutina? _Name_box_character_input, ? Entero

. Código de carácter, número entero

¿Nombre? [barra de desplazamiento horizontal1.posición]? Cuadro de nombre. Contenido

.¿Subrutina? _Date_Box_Character_Input, ? Entero

. Código de carácter, número entero

¿Fecha? [barra de desplazamiento horizontal1.posición]? Cuadro de fecha. Contenido

.¿Subrutina? _Se_ha hecho clic en el botón Reemplazar

. Variable local Temp, número entero

Salida de depuración.

(¿Obtener el número de miembros de la matriz? (nombre))

Programa de Word 1. ¿Crear?()

Configuración del documento de Word 1. ¿Configurar el programa? (Programa de Word 1,? Verdadero)

Programa de Word 1. ¿Título de la ventana?"Programa de reemplazo de plantilla"

¿Escribir archivo? (¿Obtener el directorio en ejecución? ()? ?"\Temp.doc", ?Leer el archivo? (¿Obtener el directorio en ejecución? ()? ?"\ call template.doc"))

Documento de Word Establecer 1. ¿Abrir? (¿Obtener el directorio en ejecución?()? ?"\Temp.doc")

.¿Calcular el primer bucle? (¿Obtener el número de miembros de la matriz? (nombre), ? Temp)

¿Salida de depuración? (Conjunto de documentos de Word 1. ¿Abrir? (¿Obtener el directorio en ejecución? ()? ?"\Temp.doc") )

Programa de Word 1.Falso

¿Reemplazar WORD?(Conjunto de documentos de Word 1, ? "Nombre", ? ¿Nombre? [Temp], ?1)

¿Reemplazar WORD? (Conjunto de documentos de Word 1, ? "Fecha", ? ¿Fecha? [Temp], ? 1)

Conjunto de documentos de Word 1. ¿Guardar? (¿Obtener el directorio en ejecución? ()? ?"\"? ?¿Cuál es la fecha? [Temp]? ?".doc")

Conjunto de documentos de Word 1.cerrar?()

.¿Calcular la hora de finalización del ciclo? ()

Conjunto de archivos de texto 1. ¿Liberar? ()

Programa Word 1.exit?()

Programa Word 1.()

. ¿Subrutina?__Ventana de inicio_se destruirá

Conjunto de documentos de Word 1. ¿lanzamiento?()

Programa de Word 1.¿salir?()

Programa de Word 1. .()

¿Eliminar archivo?(¿Obtener el directorio en ejecución?()? ?"\Temp.doc")

Uso: Crear un archivo en el directorio del programa Un archivo .doc llamado "Calling Template.doc", agregue la plantilla que necesita en este archivo, cambie el nombre a "nombre" y la fecha a "fecha", luego ingrese al programa para operar.

Si necesita otro código fuente común (como especificar reemplazos), pregunte.

La imagen de demostración es demasiado grande y no se puede cargar, perdóneme.

Descarga del código fuente: