Word (VBA): impostare una password in tutti i file .doc di una cartella

Di seguito riporto una macro VBA per Word che assegna una specifica password (di protezione in modifica) a tutti i file DOC contenuti in una determinata directory.

Una volta applicata la protezione ai file, sarà inibita qualsiasi modifica,  ad esclusione di eventuali moduli presenti nei documenti .

Ovviamente i file a cui deve essere applicata la password, prima dell’esecuzione della macro, non devono essere già protetti.

Sub inserisci_password_file_cartella()
Dim i As Integer
Dim miapassword As String

Set cartella = Application.FileSearch
miapassword = "MiaPassw12345678" 'specificare la passw da inserire
With cartella
  .LookIn = "c:\luca" 'specificare il percorso dove sono contenuti i file
  .FileName = "*.doc" 'la macro considera solo i file DOC

  If .Execute(SortBy:=msoSortByFileName, _
  SortOrder:=msoSortOrderAscending) > 0 Then
  'MsgBox .FoundFiles.Count
     For i = 1 To .FoundFiles.Count
       'MsgBox .FoundFiles(i)
        file_trovato = .FoundFiles(i)
        'apertura file
        Documents.Open FileName:=file_trovato, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto
        If ActiveDocument.ProtectionType = wdNoProtection Then
           'inserisce protezione
            ActiveDocument.Protect Password:=miapassword, NoReset:=False, _
            Type:= wdAllowOnlyFormFields
           'Chiude e salva il file
           ActiveDocument.Close SaveChanges:=wdSaveChanges
        End If
     Next i
  Else
     MsgBox "Nessun file trovato nella cartella specificata!"
     Exit Sub
  End If
End With
End Sub

Purtroppo le righe del codice vengono interrotte nell’articolo, ma facendo un copia-incolla è possibile visualizzarle per intero.

Word: da campo modulo a file di testo con VBA script

Questo VBA script per Word consente di salvare il contenuto dei moduli di un file Word in un file di testo esterno.

Alcune premesse:

• Il documento Word deve essere protetto (Strumenti – proteggi documento – Consenti compilazione moduli)
• In questo esempio specifico i campi modulo devono avere come segnalibro rispettivamente “campo1”, “campo2”, “campo3”, “campo4”, ecc.
• Nella macro devono essere impostati il numero di campi ed il nome/percorso del file di registro.

Di seguito è riportata la macro da abbinare ad un pulsante:

Private Sub CommandButton1_Click()

Dim file_ini, miariga As String
Dim i, num_campi As Integer

'----------------------------------------------------------------------
'Parametri da personalizzare
file_ini = "c:\registro.txt"
num_campi = 5
'-----------------------------------------------------------------------

Open file_ini For Append As #1
For i = 1 To num_campi
    miariga = miariga & ActiveDocument.FormFields("campo" & i).Result
    miariga = miariga & ";"
Next

Print #1, miariga 'scrive tutti i campi word (separati da ";" su una riga del file)
Close #1 'Chiusura File
End Sub

Ogni volta che si preme il pulsante viene aggiunta una riga al file di registro. Se il contenuto dei moduli nel file fosse così impostato:

campo_modulo1 = testo modulo 1
campo_modulo2 = mio testo modulo 2
campo_modulo3 = prova modulo 3
campo_modulo4 = testo modulo 4
campo_modulo5 = modulo numero 5

al file di registro verrebbe aggiunta la seguente riga:

testo modulo 1;mio testo modulo 2;prova modulo 3;testo modulo 4;modulo numero 5;

Quindi il contenuto dei moduli viene inserito su una stessa riga (record), con il valore di ogni campo modulo separato da “;”.

In allegato un esempio del file Word.

Stampa automatica file Word da directory locale o remota

Dato che mi ha fatto comodo per risolvere un problema un po’ contorto, voglio segnalare questo script VBA per Word che verifica i file .DOC eventualmente presenti in una determinata directory (locale o remota) e per ognuno:
- apre
- stampa sulla stampante predefinita
- chiude

Sub stampa_file()
Set fs = Application.FileSearch
With fs
    .LookIn = "\\server_remoto\percorso"
    .FileType = msoFileTypeWordDocuments
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            Documents.Open FileName:=.FoundFiles(i)
            ActiveDocument.PrintOut , Copies:=1
            ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
        Next i
    End If
End With
Application.Quit
End Sub

Spero possa essere utile a qualcuno.

PDFUNdo: da PDF a Word online

PDFUNdo.net è un semplice ma efficace convertitore di file online da formato PDF a WORD (.doc).

Basta selezionare il file PDF e quindi premere il pulsante “Convert to Word”.
A questo punto comparirà un link al nuovo file WORD pronto per essere scaricato.

Word: Campo modulo da file esterno

Ipotizziamo di avere molti documenti di Word al cui interno siano contenuti uno (o più) campi modulo “elenco a discesa” con dei valori predefiniti, per esempio i nomi dei maestri di tennis di un Tennis Club.
Se la lista dei nomi variasse, dovremmo correggere uno a uno i campi modulo in ogni documento di Word.
Se invece il campo modulo leggesse i valori da un file estero, allora basterebbe aggiornare tale file, senza dover metter mano ai vari documenti Word.

Ecco i vari passaggi:
- creare un semplice file di testo in locale (o su un percorso remoto) che contenga i nomi dei maestri (uno su ogni riga). Per comodità io l’ho creato su C:\ e l’ho chiamato “nomi_maestri.txt”

Jean Luc Picard
William Riker
Data
Worf
Deanna Troi
Haran Banjo
Beauty Tachibana
Reika Sanjo
Garrison Tokida
---
---

- Da Word aprire l’ambiente di sviluppo macro VBA (ALT+F11), creare un nuovo modulo ed incollarvi il seguente codice:

Sub maestro()
Dim nomi_maestri(10) As String 'deve essere uguale al num righe - 1 nel file txt
Dim num_righe as Integer

num_righe = 10 'deve essere uguale al num righe - 1 nel file txt

Open "c:\nomi_maestri.txt" For Input As #1
i = 0
Do While Not EOF(1)
    Input #1, nomi_maestri(i)
    i = i + 1
Loop
Close #1

ActiveDocument.FormFields("maestro").DropDown.ListEntries.Clear
For i = 0 To num_righe
    With ActiveDocument.FormFields("maestro").DropDown.ListEntries
        .Add nomi_maestri(i)
    End With
Next

End Sub

Attenzione: nel codice VBA abbiamo impostato l’array “nomi_maestri” con il valore 10 (dato che parte da 0, conterrà 11 valori). Quindi il file di testo dovrà contenere almeno 11 righe avvalorate.

- Tornare in Word e creare un nuovo campo modulo “elenco a discesa” settando solo i seguenti valori:

• Esegui macro in Entrata: maestro
• Segnalibro: maestro

- Proteggere il documento di Word:

• Strumenti – Proteggi documento
• Consenti solo questo tipo di modifiche nel documento: “Compilazione moduli”.

A questo punto, cliccando sul campo modulo verranno mostrati i valori contenuti nel file ti testo esterno.

Allego un file di esempio con la macro VBA già impostata.