ENCUESTA

1.- ¿Tiene tensión muscular continuamente? SI NO
2.- ¿Siente que tiene muchos problemas? SI NO
3.- ¿Padece insomnio? SI NO
4.- ¿Siente que hay situaciones que lo rebasan de manera permanente? SINO
5.- ¿Le es difícil expresar sus sentimientos? SI NO
6.- ¿Dice "si" cuando en realidad quiere decir "no" y viceversa? SI NO
7.- ¿Considera que tiene bajo nivel de tolerancia? SI NO
8.- ¿Estableceun orden de prioridades para resolver sus problemas? SI NO
9.- ¿Ha identificado actividades que le permiten drenar tensiones? SI NO
10.- ¿Practica algun tipo de ejercicio? SI NO
11.- ¿Tiene algunhobie? SI NO
12.- ¿Se siente exitoso? SI NO
13.- ¿Ha identificado actividades para hacer catarsis? SI NO
14.- ¿Le afectan emocionalmente los diferentes tipos de contaminación? SI NO
15.- ¿Disfrutade vacaciones reglamentarias? SI NO

stimado Juan;
Espero te sirva este código.
1. Copia algunos documentos en una carpeta para probar con ellos y no le demos mate a información importante.2. Abre word y selecciona la barra de herramientas de visualbasic.
3. Abre el editor de visualbasic; inserta un modulo y copia el siguiente código:

Sub EliminaraPartirPag3()
' Macro grabada el25/06/2009 por Ulises
Dim RutaFolder As String, Respuesta As String
Dim i As Integer

'Esta es la ruta donde se encuentran tus archivos de word
RutaFolder = InputBox("Ingresa la Ruta delDirectorio a procesar", "Solicitud de Datos")

Application.ScreenUpdating = False

With Application.FileSearch
.LookIn = RutaFolder
.SearchSubFolders = True
' Aquí se especifica el tipo dedocumentos que va a buscar
.FileName = "*.doc"
If .Execute() > 0 Then
' Este es el ciclo que llevará a cabo la búsqueda y eliminación de cada documento.
For i = 1 To .FoundFiles.Count
Ruta =.FoundFiles(i)
'Abrir el primer archivo
Documents.Open FileName:=Ruta, ConfirmConversions:= _
False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="",...