Quando si lavora con i moduli, si salvano i moduli come modelli utilizzati come base per nuovi documenti in Word. È possibile che tu voglia aggiungere un campo modulo che aumenta ogni volta che crei un nuovo documento in base al modello di modulo. Ad esempio, potresti avere un numero di sequenza necessario per un modulo di immissione dati oppure potresti voler utilizzare un campo modulo per indicare una invoice numero.

Word non ha campi di incremento automatico fantasiosi. Tuttavia, combinando alcuni degli strumenti già disponibili in Word, puoi creare un modello e un campo modulo per fare il trucco per te. Inizia con questa macro:

Sub AutoNew()

' Exit macro if no fields in document    If ActiveDocument.FormFields.Count = 0 Then Exit Sub    ' Create variables.

Dim OfficeAppName As String    Dim RegSection As String    Dim RegKey As String    Dim FieldObj As Object    Dim RegValue As Long

OfficeAppName = "Word 2016"

RegSection = "UserData"

RegKey = "Current Counter"

' Generate error if form field doesn't exist    On Error GoTo ErrHandler    Set FieldObj = ActiveDocument.FormFields("IncField")

' Get stored registry value, if any    RegValue = GetSetting(OfficeAppName, RegSection, RegKey, 0)

' If not previously set, set to default    If RegValue = 0 Then RegValue = 1    ' Set form field result to stored value    FieldObj.Result = CStr(RegValue)

' Increment and update invoice number    SaveSetting OfficeAppName, RegSection, RegKey, RegValue + 1 ErrHandler:

If Err <> 0 Then       MsgBox Err.Description    End If End Sub

Questa macro dovrebbe essere salvata solo nel modello che utilizzerai per creare i tuoi moduli. La macro deve essere denominata AutoNew, quindi verrà eseguita ogni volta che viene creato un documento basato sul modello di modulo. È inoltre necessario assicurarsi di disporre di un campo modulo di testo nel documento denominato IncField, che visualizzerà il numero incrementale. Il numero viene tracciato nel registro in modo che sia possibile accedervi per moduli futuri.

Notare la riga nella macro che imposta la variabile OfficeAppName. In questa versione della macro, è impostata la frase “Word 2016”. Se stai utilizzando una versione diversa di Word, dovresti modificare questa riga in modo che faccia riferimento alla tua versione, ad esempio “Word 2019”.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo). Questo suggerimento (11431) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Auto-incrementing Form Fields.