Normal.DOT autotekster

lytter med :o)

ActiveDocument.AttachedTemplate.AutoTextEntries(Index)

OK du ved noget Flemming - kan du komme det nærmere

Kig lidt på det - det kræver selvfølgelig at det er Normal.dot som er den AttachedTemplate
Et problem er efter min mening, at hvis normal.dot ødelægges mister du dine autotekster. Jeg ved der findes en metode til at ligge autoteksterne uden for normal.dot, men jeg kan ikke lige pt. huske hvordan.

VBA hjælpen - fanebladet Index søg på AutoText

Flemming, har du også en mening om http://www.eksperten.dk/spm/259722

Prøv også at søg i Tekstbehandlingskategorien på eksperten "AutoText" eller Autotekst

HJælpen i VBA giver muligheder for at indlægge Autotekster som normalt via menuen i Word. jeg vil gerne copy/paste mange tekster ind på een gang uden den langsommelige one-by-one  indtastning og det gives der ikke svar på her (har allerede været der flere gange kan jeg se på farven på mit hyperlink)

Fra hjælpen:

Add method as it applies to the AutoTextEntries object.

Returns an AutoTextEntry object that represents an AutoText entry added to the list of available AutoText entries.

expression.Add(Name, Range)

expression  Required. An expression that returns an AutoTextEntries object.

Name  Required String. The text that, when typed, initiates an AutoText entry.

Range  Required Range. A range of text that will be inserted whenever Name is typed.

OK Flemming, jeg er nok ikke god nok til VBA endnu..

jeg forstår teksten, men hvordan lægger jeg det ind i normal.dot

Jeg har en lang liste med navne og initialer der skal lægges ind

Hvis du havde dine navne og initialer liggende i excel kunnne du bruge nedenstående kode som jeg lige har udarbejdet:

Indsæte et modul i Words VBA miljø og kopier nedenstående kode derind

Sub OverførAutotekster()
'Dette eksempel henter Initialer og navne fra Excel til Autotekst i Word
'Initialerne står i kolonne 1 i Excel
'Navnene står i kolonne 2 i Excel
'HUSK AT SÆTTE REFERANCE TIL EXCEL I WORDS VBA-MILJØ VIA TOOLS/REFERENCES

Dim xlApp As Object ' Opretter Excelobjektet

Set xlApp = CreateObject("excel.application")

'Åbner bestemt fil
xlApp.Workbooks.Open FileName:="C:\WINDOWS\Skrivebord\Autotekst.xls"

'Løkke der gennemløber Excelarket indtil rækken er tom
n = 1
Do While xlApp.Cells(n, 1).Value <> ""
   
    Initialer = xlApp.Cells(n, 1).Value 'Værdien i række n kolonne A
   
    'Indsætter navnet i Word, så det kan kopieres ind i Autoteksten
    Selection.TypeText Text:=xlApp.Cells(n, 2).Value
   
    'Vælger den indsatte tekst
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

    'Tilføjer navnet i Autoteksten med Initialerne som ledeord
    NormalTemplate.AutoTextEntries.Add Name:=Initialer, _
        Range:=Selection.Range
   
    ' Går til næste række i Excelarket
    n = n + 1
Loop

'Sletter det sidste navn i dokumentet, så dokumentet nu er tomt
Selection.Delete

'Lukker for Excel
Set xlApp = Nothing    '

End Sub

Tak RVM> det skal prøves ... du hører nærmere

Blev det løst ?

Udskyld, men jeg har ikke haft tid til at se på det, men tak for reminderen

Jeg har løst problemet på en anden måde...tror jeg. i word ligger der en fil, Support.dot der kan løse nogen forskellige tekniske problemer. i den ligger en færdig makro der kan eksporterer til en word tabel og som lige ledes kan importere igen.