¿Cómo extraer contenido de texto en Word y Pd?

1. Seleccione el texto a extraer y ejecute el comando de menú "Insertar-Índice de referencia y tabla de contenido"

2. Seleccione la marca "Clic en el botón". Página de opción "Índice" Elemento de índice"

3. Especifique "Opción" como "Página actual". Si es necesario, puede especificar el formato del número de página que se muestra después de la extracción como negrita o cursiva. Haga clic en "Marcar"

4. En este momento, la ventana para marcar elementos del índice no se cerrará y también podrá buscar y seleccionar el siguiente texto que debe extraerse en el documento y repetir el paso 3;

5. Si no hay ningún otro texto que deba extraerse, haga clic en Haga clic en "Cerrar";

6. Donde necesite insertar la tabla de índice, ejecute el comando de menú "Insertar-Referencia- Índice y tabla de contenido" y establezca el formato de la tabla de índice (como columnas, alineación, abreviatura) según sea necesario. (estilo) y luego haga clic en Aceptar.

De esta forma se extraerá todo el texto marcado con índice y número de página.

Si necesita extraer una gran cantidad de texto, también puede utilizar una macro VBA para anotar automáticamente el índice (lo que equivale a completar automáticamente los pasos 1 a 5 anteriores). Pero la premisa es que estos textos deben tener un formato muy específico, es decir, se puede asegurar que el texto del documento actual tenga este formato, que es el texto que se necesita extraer e indexar.

Dos: el siguiente código VBA puede crear automáticamente entradas de índice para todo el texto rojo en el documento actual e insertar una tabla de índice que contiene las entradas de texto y los números de página correspondientes en la posición actual del cursor:

Opción explícita

Sub AutoMarkIndexForAllRedText()

Dim oSaveSelection As Range

Establecer oSaveSelection = Selection.Range