Formatere tekstfiler med VBA

October 18  by Eliza

Det er ikke uvanlig å trenge å formatere tekstfiler i Word. For eksempel kan du få en e-postmelding fra noen som trenger formatering, eller du kan få en ASCII-fil fra en venn. De mest vanlige nødvendig i formatering slik fil er å fjerne ekstra mellomrom eller tappene fra begynnelsen av en linje, ekstra mellomrom eller tappene fra enden av en linje, og fjerner "svar" tegn fra begynnelsen av hver linje, og å kombinere linjer til lage avsnitt.

Gjør alt dette for hånd er tidkrevende arbeid, og kan enkelt kjøre du batty, spesielt hvis filen er veldig stor. Følgende makro skal gjøre det enklere for deg. Det oppnår alle oppgavene nettopp har fortalt, og gjør dem svært raskt.

Sub DoASCII ()
Selection.HomeKey Enhet: = wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = "^ P ^ w"
.Replacement.Text = "^ P"
.forward = True
.Wrap = WdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Avslutt med
Selection.Find.Execute Erstatt: = wdReplaceAll
For J = 1 til 4
Selection.Find.Text = "^ p>"
Selection.Find.Execute Erstatt: = wdReplaceAll
Neste J
Selection.Find.Text = "^ p ^ w"
Selection.Find.Execute Erstatt: = wdReplaceAll
Selection.Find.Text = "^ w ^ p"
Selection.Find.Execute Erstatt: = wdReplaceAll
Selection.Find.Text = "^ p ^ p"
Selection.Find.Replacement.Text = "[{}]"
Selection.Find.Execute Erstatt: = wdReplaceAll
Selection.Find.Text = "^ p"
Selection.Find.Replacement.Text = ""
Selection.Find.Execute Erstatt: = wdReplaceAll
Selection.Find.Text = "[{}]"
Selection.Find.Replacement.Text = "^ p"
Selection.Find.Execute Erstatt: = wdReplaceAll
End Sub

Du bør være oppmerksom på at denne makroen vil erstatte opptil fire nivåer av ">" tegn satt i begynnelsen av en linje. Det forutsetter også at det eneste stedet du ønsker avsnittsskift er de stedene hvor en blank linje eksisterer.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1268) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Formatering tekstfiler med VBA.