Come inserire una data futura o passata nel documento di Word tramite i codici VBA

Condividi ora:

In questo articolo, ti mostreremo un trucco interessante per inserire una data futura o passata nel tuo documento Word tramite codici VBA.

Generalmente non abbiamo difficoltà ad inserire una data corrente nel nostro documento Word. Tuttavia, di tanto in tanto, potremmo prepararci per il documento necessario la prossima settimana o mese o anche più tardi. Allora ecco il problema che non puoi aggirare. Come puoi inserire una data futura nel file Word? E a volte che ne dici anche di uno passato?

Pensiamo quindi che tu debba cogliere questo utile metodo per svolgere al meglio i tuoi compiti lavorativi.

Usa i codici VBA per inserire una data futura o incolla

  1. Per cominciare, apri il tuo documento di Word.
  2. Quindi, fai clic sulla scheda "Sviluppatore".
  3. Quindi fai clic su "Visual Basic" per aprire l'editor VBA. Se la scheda "Sviluppatore" non è disponibile nella barra multifunzione di Word, puoi invece premere "Alt + F11" per aprire l'editor.Fai clic su "Sviluppatore" -> Fai clic su "Visual Basic"
  4. Ora nell'editor, fai clic su "Normale" sul lato sinistro.
  5. Quindi fare clic su "Inserisci" sulla barra degli strumenti.
  6. Quindi, scegli "Modulo" dal menu elenco.Fare clic su "Normale" -> Fare clic su "Inserisci" -> Fare clic su "Modulo"
  7. Ora fai doppio clic sul modulo appena inserito e l'area di modifica sarà disponibile sul lato destro.
  8. Basta incollare i seguenti codici lì:
Sub InsertFutureOrPastDate()
  Dim strNumberOfDays As String

  ' Input the number of days you want to insert from today to the future or past date.
  strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
  ' Insert the future or past date according to the inputed number of days
  If strNumberOfDays <> "" Then
    Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
  End If       
End Sub
  1. Successivamente, fai clic sul pulsante "Salva" e chiudi l'editor VBA.Fare doppio clic sul nuovo modulo -> Incolla codici -> Fare clic su "Salva"
  2. Ora torna alla schermata del documento di Word e posiziona il cursore nel punto in cui va la data futura o passata.
  3. Quindi fare nuovamente clic sulla scheda "Sviluppatore".
  4. E fai clic su "Macro" nel gruppo "Codice" per aprire la finestra "Macro". Anche in questo caso, se la scheda "Sviluppatore" non viene visualizzata, è sufficiente premere "Alt+ F8".Fai clic su "Sviluppatore" -> Fai clic su "Macro"
  5. Ora nella finestra "Macros", trova e seleziona la macro "InsertFutureOrPastDate".
  6. Quindi fai clic su "Esegui".Seleziona "Inserisci data futura o passata" -> fai clic su "Esegui"
  7. Quindi verrai accolto da una finestra di messaggio. È possibile inserire un numero nella casella di testo nella parte inferiore della casella per rappresentare i giorni rimasti alla data futura. Ad esempio, se vuoi inserire la data di domani, dovresti inserire "1" lì. Allo stesso modo, se hai bisogno di una data passata, aggiungi semplicemente un segno meno prima del valore, ad esempio "-1" per ieri.
  8. Ricordati di fare clic su "OK".Entra nella casella di testo -> Fai clic su "OK"Inserisci una data futura e passata

Nota: nei codici "Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")", "dddd, MMMM dd, yyyy" rappresentano il formato della data in cui "M" sta per "mese" , “d” per “giorno”, “y” per “anno” e “dddd” per “settimana”, quindi sei libero di cambiarlo come preferisci.

Recupera i tuoi file preziosi

Word è soggetto a collassi che mettono in pericolo i nostri file Word. Di tanto in tanto, alcuni dei nostri dati inestimabili sono semplicemente spariti. Ma ciò che è andato non è completamente andato. Puoi sederti per lamentarti della perdita dei tuoi file critici o puoi scegliere un esperto strumento di recupero di Word danneggiato per recuperarli.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui Riparare il problema del file excel xls and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com

Condividi ora:

I commenti sono chiusi.