Cómo modificar por lotes varios documentos de Word al mismo tiempo
1. Preparación
Los pasos específicos son los siguientes.
R. Primero, debe reemplazar por lotes varios documentos de Word en la misma carpeta.
B. Cree un nuevo documento de Word en blanco, haga clic derecho en la barra de herramientas en blanco y haga clic en "Caja de herramientas de control" para ver la caja de herramientas de control que se muestra en la pantalla.
C. Haga clic en "Botón de comando" en la Caja de herramientas de control para colocar un botón en el documento.
4. Haga doble clic en el botón para ingresar al modo de escritura de código VB y copie el siguiente código en él.
2. Código del botón de comando
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Atenuar myPas As String, myPath Como cadena, i como entero, myDoc como documento
Con Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Seleccione la carpeta de destino"
If .Show = -1 Entonces
myPath = .SelectedItems(1)
De lo contrario
Salir de Sub
Finalizar si
Finalizar con
myPas = InputBox("Ingrese la contraseña para abrir, si no la tiene, no la complete:")
Con Application.FileDialog( msoFileDialogFolderPicker)
.
Con Application.FileSearch
.LookIn = myPath
.FileType = msoFileTypeWordDocuments
Si .Execute gt; 0 Entonces
Para i = 1 Para .FoundFiles.Count
Establezca myDoc = Documents.Open(FileName:=.FoundFiles(i), Contraseñadocument:=myPas )
Selección.BorrarFormato