Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo modificar por lotes varios documentos de Word al mismo tiempo

Cómo modificar por lotes varios documentos de Word al mismo tiempo

NOTA: Probado con MS Office2003 puede que no se ejecute.

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