Eksportér Autokorrektur

Hvilken version af Word?

Hvilken vesion af office selvfølgelig.

Se dette forslag
http://www.eksperten.dk/spm/374006

Opsætning af autokorrektur bliver mig bekendt gemt i skabelonen normal.dot, så hvis alle brugere kan/skal leve med en ens opsætning, skal normal.dot være ens for alle brugere.

Vi bruger Office-XP.
Sagen er den, at jeg har lavet en del egen indstillinger i Autokorrektur. Dem vil jeg gerne eksporterer til nogle andre maskiner. Vi arbejder på samme netværk(jeg ved ikke om det har nogen betydning).

Så er dette måske bedre
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q186/2/37.ASP&NoWebContent=1

Prøv at se på dette tip:

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

Du kan også bruge SaveMySettinggsWizard, som findes under Office Tools, men den tager alle andre indstillinger med.

Hej jkrons
Jeg har tjekket "dit" link.
Det virker som noget jeg ikke tør kaster mig ud i.
Kan du sige lidt mere om SaveMySettinggsWizard.
Hvilke indstillinger tager den med over?
Jeg kan ikke se at det betyder noget at de andre får samme indstilninger som jeg har. (De har ikke lavet nogle personlige indstilninger, så vidt jeg ved.)
Og hvordan gør man?
Tynde

Så vidt jeg kan se tager fx værktøjslinie- og menulinje ændringer i hele officepakken.

Dette er fra hjælpen:
En kombination af registreringsdatabaseindstillinger og filer, der tilsammen giver en bestemt bruger et brugertilpasset arbejdsmiljø. Det drejer sig normalt om brugen og placeringen af værktøjslinjer, almindelige menupunkter og eventuelt sprog og synlighed af værktøjer. Mange brugertilpasninger angives under Indstillinger eller Tilpas i menuen Funktioner i de fleste Office-programmer.

Jeg må hellere få lukket denne.
Jeg har ikke turde at gå i krig med det, men jkrons løsning kan måske bruges.
Derfor point

En "måske" løsning i excel.
Opret en blank mappe.
På 1. ark i kolonne A skriver du de ord der skal erstattes.
I kolonne B skrives de ord der skal erstattes med.
indsæt en knap, der er knyttet til følgende makro.


Sub GetAutoCorrectList()
Dim newlist, repl, test
repl = Application.AutoCorrect.ReplacementList
On Error Resume Next
test = UBound(repl)
If Err <> 0 Then
For x = 1 To UBound(repl)
    Application.AutoCorrect.DeleteReplacement repl(x, 1)
Next
On Error GoTo 0
End If
newlist = Sheet2.Range("A1", Range("B65536").End(xlUp).Address)
For x = 1 To UBound(newlist, 1)
    Application.AutoCorrect.AddReplacement newlist(x, 1), newlist(x, 2)
Next
End Sub


Rundsend arket og bed brugerne om at trykke på knappen.

PS. linierne her sletter deres gamle ord. De kan evt. fjernes fra makroen

For x = 1 To UBound(repl)
    Application.AutoCorrect.DeleteReplacement repl(x, 1)
Next