Næppe kan du forvente en standard rutine der løser dit problem. Altså må du
erhverve viden om hvordan AutoTexter er bygget op og hvordan de fungerer.
Primært gemmes de i skabeloner, ikke bare i Normal.dot og ingen anden end
dig kan vide hvad/hvor.
Snippen herunder kan være en hjælp men virker kun i én skabelon ad gangen.
Jeg tvivler på at fonten automatisk kan skiftes men ville dog eksperimentere
med at ændre den pågældende typografi, evt. med at bruge Word´s Find/Erstat.
Dim Entry As AutoTextEntry
Documents.Add
For Each Entry In NormalTemplate.AutoTextEntries
' Turn bold formatting on and insert the AutoText name
Selection.Font.Bold = True
Selection.TypeText Text:=Entry.Name
' Turn bold formatting off and insert AutoText entry
Selection.Font.Bold = False
Selection.TypeParagraph
Entry.Insert Where:=Selection.Range, RichText:=True
Selection.Range.Select
Selection.TypeParagraph
' Insert a blank line between entries
Selection.TypeParagraph
Next
****************
--
mvh
pre
"Tue Hellstern" <info@f1-support.dk> wrote in message
news:3f7b3b30$0$97179$edfadb0f@dread12.news.tele.dk...
> Hej pre
> Tak for din henvisning til How To'en.
>
> > 326538 HOW TO: Copy Word AutoText Entries Between Computers
>
> Den beskriver fint hvordan man flytter en autotekst fra en dot til en
anden.
> Men det er ikke det der er mit problem.
> Problemet er at teksten kommr ind i en font som er forkert. Jeg vil gerne
> hav Autoteksten til at indsætte en en anden font end den den havde ved
> oprettelsen.
> Håber jeg udtrykker mig klart
>
> /Tue
>
>