Numero progressivo

di
mossetto
il
1 risposte
M
mossetto
Pochi posts
Iscritto da
dic, 2011
Messaggi:
2

Numero progressivo

Ciao a tutti : non sapendo utilizzare visual basic ho trovato questa macro che inserita in word mi fa comparire un numero progressivo ogni qual volta io apro un nuovo documento basato sul mio modello. Ma la mia necessità sarebbe di avere il numero progressivo nel testo del documento non in una maschera esterna come succede con questa macro... qualcuno me la sa modificare per le mie esigenze ? Grazie mille per l' aiuto.

1 Risposte

  • M
    mossetto
    Pochi posts
    Iscritto da
    dic, 2011
    Messaggi:
    2

    Re: Numero progressivo

    Option Explicit
    Private Sub Document_New()
    Dim strAppName As String
    Dim strSection As String
    Dim strKey As String
    Dim strDefault As String
    strAppName = "Luigi ML"
    strSection = "Test"
    strKey = "Progressivo"
    strDefault = "0"
    SaveSetting strAppName _
    , strSection _
    , strKey _
    , CLng(GetSetting(strAppName, strSection, strKey, strDefault)) _
    + 1
    MsgBox GetSetting(strAppName, strSection, strKey, strDefault) _
    , vbInformation Or vbOKOnly _
    , strAppName
    End Sub
Devi accedere o registrarti per scrivere nel forum
1 risposte