Ændring af Format af eksisterende Datoer

Aileen arbejder med en masse dokumenter, der har datoen i et numerisk format, såsom 9/22/12. Hun har brug for at konvertere disse datoer til et andet format, specielt 22. september 2012. Hun undrer, hvis der er en nem måde at foretage ændringen uden at skulle genindtaste hver dato.

Svaret afhænger for en stor del, af arten af ​​den dato, du er under forandring. Datoer i et Word-dokument, kan enten være lige tekst eller et felt. Du kan se, om datoen er et felt ved blot at flytte indsætningsmærket et sted inde i dato. Hvis det er et felt, så hele dato bør skraveret lysegrå når indsætningspunktet er inden datoen.

Hvis datoen er et felt, så kan du højreklikke på den dato, og vælg Rediger Field fra den resulterende genvejsmenuen. Du kan derefter ændre området, herunder at vælge en anden dato format i listen Field Properties.

Hvis datoen er almindelig tekst (ikke et felt), så er du nødt til at se på en anden løsning. Det er muligt at gå gennem dokumentet og manuelt genindtaste alle de datoer, men Aileen allerede fundet ud af, at en sådan fremgangsmåde er kedelig. Det er her en makro kan komme i handy: at helbrede det kedelige ved programmering at gøre, hvad du ellers ville gøre i hånden.

Følgende makro vil gå gennem et dokument, der søger efter alle datoer i formatet m / d / åååå. (Der kan være en eller to cifre for enten en måned eller dag, men skal være fire cifre for året). Hvis en dato matcher dette mønster findes, konverteres til det format mmmm d, yyyy.

Sub GetDateAndReplace ()
Dim FoundOne Som Boolean

Selection.HomeKey Unit: = wdStory, Extend: = wdMove
FoundOne = True 'loop mindst én gang

Gør Mens FoundOne 'loop indtil ingen dato er fundet
Med Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "([0-9] {1,2}) [/] ([0-9] {1,2}) [/] ([0-9] {4})"
.Format = True
.forward = True
.MatchWildcards = True
End med

Selection.Find.Execute Erstat: = wdReplaceNone

'Check fund for at være sikker på det er en dato
Hvis ISDATE (Selection.Text) Derefter
Selection.Text = Format (Selection.Text, "mmmm d, yyyy")
Selection.Collapse wdCollapseEnd
Else 'ikke en dato - ende loop
FoundOne = False
End hvis
Loop
End Sub

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (12197) gælder for Microsoft Word 2007 og 2010. Du kan finde en version af dette tip for den ældre menu interfacet Word her: Ændr format på eksisterende datoer.


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