Modificación del código de reemplazo de WORD en lenguaje simple

.Se hizo clic en la subrutina _Botón 1_

Programa de Word 1.create ()

Conjunto de documentos de Word 1.colocar programa (programa de Word 1, falso )

Conjunto de documentos de Word 1.open (tome el directorio en ejecución () + "\1.doc")

Programa de Word 1.display = True

Reemplazar WORD (Conjunto de documentos de Word 1, "a", "123", 3)

Reemplazar WORD (Conjunto de documentos de Word 1, "b", "456")

Reemplazar WORD (Conjunto de documentos de Word 1, "b", "456")

Conjunto de documentos de Word 1."b", "456", 3)

Conjunto de documentos de Word 1 . Guardar (obtener el directorio en ejecución () + "\1.doc")

Programa de Word 1. Salir ()

. Reemplazo de subrutina WORD, número entero

Parámetros conjunto de documentos WORD, conjunto de documentos Word

Parámetros Buscar texto, tipo de texto

. Texto de reemplazo de parámetros, tipo de texto

. Número de parámetro, entero

. Contenido WORD de variable local, tipo de texto

. Objeto variable local, objeto

. Variable local Objeto2, Objeto

. Variable local Objeto3, objeto

Variable local objeto4, objeto

Variable local Variante 1, tipo de variable

. p> p>

.Variable local Variante 3, tipo de variable

. Variable local N, número entero

. Bucle de conteo primero (recuento,)

Objeto = conjunto de documentos WORD ()

Objeto2 = Objeto. Leer atributo de tipo de objeto ("contenido",)

Objeto 3 = Objeto 2. "Objeto 4. Escribir atributo ("texto", reemplazar texto)

Variable 1. Asignación ( Buscar texto, )

Variable 2. Asignación (verdadero,)

Variable 3. Asignación (falso,)

Finalizar si es verdadero

Devuelve (N) .