Generering af en liste over datoer

For nogle dokumenter, er det nyttigt at have en liste over datoer, som du kan bruge som udgangspunkt for dit arbejde. For eksempel kan du nødt til at oprette en rapport, der viser alle de datoer mellem nu og slutningen af ​​året, sammen med en persons navn eller et projekt navn til højre for dato. Udgangspunktet er naturligvis at få listen over datoer.

Der er et par måder, du kan henvende generere listen. En nem metode er at bruge Excel sammen med Word. Excels AutoFyld funktion gør at generere en liste over datoer forbavsende let. Når du har en liste i Excel, kan du derefter kopiere og indsætte den i Word-dokument, eller du kan bruge brevfletning til at fusionere de datoer i dokumentet (hvis denne fremgangsmåde er passende for dit behov).

Hvis du foretrækker ikke at bruge Excel eller anden grund, den bedste løsning er at bruge en makro. Følgende makro meget hurtigt opretter en liste over alle de datoer for 2009:

Sub PrintYearDays ()
Dim DateToday Som Dato
Dim T As Integer

"Fordi den dato vil blive ændret, skal du gemme det
DateToday = Dato
Dato = nr.12 / 31/2008 #

For T = 1 til 365
Selection.TypeText Tekst: = Format (Dato + T, _
"Mmmm dd yyyy")
Selection.TypeParagraph
Næste T

"Gendan dags dato
Dato = DateToday
End Sub

Bemærk, at de makro værker ved at nulstille datoen på dit system. Dagens aktuelle dato gemmes i DateToday variablen, og derefter dato nulstilles til startdatoen for din rækkevidde. Hvis du vil have den makro arbejde for nogle andre datointerval, bare ændre startdatoen, sammen med endelsen værdi For ... Next løkke.

Hvis du har brug for at oprette dato lister, og du ved aldrig helt, hvad begyndelsen og slutdatoer i området vil være, så en anden makro tilgang giver mere mening. Følgende makro beder dig om både den første og sidste dato:

Sub ListDates ()
Dim ListDate som dato
Dim StartDate Som Dato
Dim EndDate Som Dato
Dim Gentager As Integer

'Gets brugerinput
StartDate = InputBox ("Indtast startdatoen.", _
"Startdato", "Start Date")
EndDate = InputBox ("Indtast slutdato.", _
"Slutdato", "Slutdato")

'Går startdatoen i dokumentet
Selection.TypeText Tekst: = Format (StartDate, _
"Dddd, MMMM dd, yyyy")
Selection.TypeText (vbCr & vbLf)

"Bestemmer antallet af datoer for at udskrive
Gentager = DateDiff ("d", StartDate, EndDate)

'Loops at udskrive listen over datoer
For i = 1 til Gentager
ListDate = DateAdd ("d", i, StartDate)
Selection.TypeText Tekst: = Format (ListDate, _
"Dddd, MMMM dd, yyyy")
Selection.TypeParagraph
Næste i
End Sub

De StartDate og EndDate variabler, der fastsættes af dit input, bestemmer, hvor mange gange For ... Next løkke gentages.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (3864) gælder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til menufaner Word (Word 2007 og nyere) her: Generering af en liste over datoer.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com