Skifte Siste Comma

December 3  by Eliza

Rebecca er på utkikk etter en måte å erstatte den siste komma i en setning med ordet "og". Hun trenger tydeligvis å utføre denne type redigerings ganske mye, og trodde det kunne være en rask og enkel måte å gjøre redigeringen heller enn å måtte manuelt gjøre det.

Det er ingen innebygd måte å gjøre dette spesifikke redigere i Word, men du kan lage en enkel makro som vil søke etter den siste komma, slette det, og deretter skriver du inn ønsket ord. Følgende er et eksempel på en slik makro.

Sub ReplaceLastComma ()
Dim J As Integer
Dim BREP Som boolsk
Dim sRAW As String

Selection.Sentences (1) .Velg
sRAW = Selection.Text
BREP = False
For J = Len (sRAW) Til en Step -1
Hvis Mid (sRAW, J, 1) = "," Da
Selection.Collapse Regi: = wdCollapseStart
Selection.MoveRight Enhet: = wdCharacter, Count: = J - 1
Selection.Delete Enhet: = wdCharacter, Count: = 1
Selection.TypeText Tekst: = "og"
J = 1
BREP = True
End If
Neste J
Hvis ikke BREP Deretter Selection.Collapse Direction: = wdCollapseStart
End Sub

Makroen velges gjeldende setningen (den der innsettingspunktet er plassert, og deretter går bakover gjennom teksten i setningen. (Teksten er tildelt variabelen sRAW for enkel behandling.) Hvis et komma blir funnet, så innsettingspunktet er plassert like før komma i dokumentet, komma slettet, og deretter et mellomrom og ordet "og" er skrevet.

Hvis du foretrekker at makroen ikke slette komma, kan du gjøre raske endringer av å slette den linjen som gjør slettingen (og endre linjen før det slik at bevegelsen er "J + 1" heller enn "J-1") , eller du kan ganske enkelt legge til et komma før den plass i teksten som blir skrevet av makroen.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (5401) 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: Skifte Siste Komma.