Het importeren van AutoCorrectie-fragmenten

Word AutoCorrectie-functie kan handig zijn wanneer je schrijft, als het je "mistypes" kunt vervangen door wat je echt bedoeld in de eerste plaats. AutoCorrectie komt reeds geconfigureerd met veel van de veelvoorkomende typefouten, maar om de tool echt nuttig te maken die u nodig hebt om uw eigen AutoCorrectie-fragmenten die uw persoonlijke typering gewoonten weerspiegelen voegen.

De normale manier om AutoCorrectie-items toe te voegen is om ze in te voeren in, een voor een, met behulp van AutoCorrectie-tab van het dialoogvenster AutoCorrectie (Extra | AutoCorrectie). Wat als je wilt een flink aantal AutoCorrectie-fragmenten, in plaats van ze in te typen importeren? Nuttige informatie over het exporteren en importeren AutoCorrectie-vermeldingen is hier gevestigd, op het Woord MVP website:

http://word.mvps.org/FAQs/Customization/ExportAutocorrect.htm

Zoals je kunt zien aan de site, de bottom line is dat er geen intrinsieke functie binnen Word, waarmee u AutoCorrectie-fragmenten importeren. Dus, bent u van links naar het gebruik van een macro om het werk te doen. De volgende is een dergelijke macro, die inzendingen zullen importeren en plaats ze direct in de AutoCorrectie-lijst.

Sub AddToTheAutoCorrectList ()
Dim r als Waaier, r1 als Waaier
Dim par Zoals Paragraaf, bo zoals Van Boole
Dim pars Als leden
Dim ACE Zoals AutoCorrectEntry
Dim ACE Zoals AutoCorrectEntries
Dim ActD Als Document

Stel ActD = ActiveDocument
Set pars = ActD.Paragraphs
Stel r1 = Selection.Range
Stel r = Selection.Range
Set ACE = Application.AutoCorrect.Entries

On Error Resume Next
Voor elke par In pars
Als par.Range.End = ActD.Content.End Dan Exit Sub
r1.Start = par.Range.Start
r1.End = r1.Start
r1.MoveEndUntil vbTab
r.Start = r1.End + 1
r.End = par.Range.End - 1
Als Len (r1.Text)> 0 Of Len (R.TEXT)> 0 Then
Als Len (ACE's (r1.Text) .Value)> 0 Then
bo = Repl (ACE, r, r1)
Anders
bo = True
End If
Als bo Dan ACEs.Add r1.Text, R.TEXT
End If
Volgende
End Sub

Private Function Repl (een Zoals AutoCorrectEntries, _
r als Waaier, r1 als Waaier) zoals Van Boole
Als een (r1.Text) .Value <> R.TEXT Dan
Repl = MsgBox ("Voor het vervangen van" & UCase (a (r1.Text) .Value) & _
"Met" & UCase (R.TEXT) & "klik op OK", vbYesNo + _
vbQuestion, "VERVANGEN ENTRY? ') = vbYes
End If
End Function

Om de macro te gebruiken, maar zorg ervoor dat je een inzending per paragraaf in een document te plaatsen. (Er zou niets anders in het document.) De "Vervang" deel van de positie moet uit de "Met" deel worden gescheiden door een tab-teken. Als de macro een voorgestelde AutoCorrectie-fragment dat een bestaande vermelding zal overschrijven tegenkomt, wordt u gevraagd of u de wijziging wilt maken.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (1732) is van toepassing op Microsoft Word 97, 2000, 2002, en 2003.