Quando Alastair stampa un documento, desidera impostare automaticamente la data in quel documento alla data del mercoledì successivo. Ad esempio, se oggi è giovedì 13, Alastair vorrebbe visualizzare mercoledì 19 se il documento viene stampato adesso o in qualsiasi giorno fino al 19 compreso. Dal prossimo giovedì (20) Alastair vorrebbe che la data stampata fosse il 26, e così via.

Non esiste un modo ragionevole o conveniente per farlo utilizzando i campi in un documento. (Mi sembrano alcune combinazioni di campi “scegli una data futura”, ma sono davvero gigantesche e non per uso occasionale.) Una soluzione migliore è usare una macro per inserire, nel punto di inserimento, la data di qualunque cosa accada il prossimo mercoledì essere. Quello che segue è un esempio che mostra quanto semplice possa essere una macro di questo tipo:

Sub ForceWednesday()

Dim dMyDate As Date     dMyDate = Date     While WeekDay(dMyDate) <> 4         dMyDate = dMyDate + 1     Wend     Selection.TypeText Text:=Format(dMyDate, "mmmm d, yyyy")

End Sub

Quando si esegue la macro, assegna la data corrente alla variabile dMyDate. Questa variabile viene continuamente incrementata fino a quando il giorno della settimana è 4 (un mercoledì). La data viene quindi formattata e digitata nella posizione del punto di inserimento.

La macro potrebbe essere facilmente modificata per inserire sempre la data del mercoledì successivo in un punto specifico del documento. Tutto quello che devi fare è modificarlo in modo che cerchi, ad esempio, un segnalibro e sostituisca il segnalibro con la data formattata. È anche possibile impostare Word in modo che la macro venga eseguita durante l’evento BeforePrint, il che significa che verrà eseguita appena prima della stampa.

_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 (3849) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia della barra multifunzione di Word (Word 2007 e più tardi) qui:

Forcing the Date to the Next Wednesday.