---

Hej til all,
jeg har forsøgt at lave en vba code til oprettelse af en indholdsfortegnelse i et word dokument.
Sagen er den at jeg i et word dokument indsætter et antal .doc filer og vil så gerne have vba til at oprette en indholdsfortegnelse over de indsatte filer.
Først laver jeg en liste (Listbox1) over filerne, dernæst indsætter jeg dem, opretter tekst til indholdsfortegenelsen og når alle filer er indsat oprettes indholdsfortegnelsen. I alt sin enkelthed ser det sidste sådan ud:
---
For intCnt = 0 To UserForm1.ListBox1.ListCount - 1
Selection.EndKey unit:=wdStory
Selection.InsertBreak Type:=wdPageBreak
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
' Der indsættes tekst til indholdsfortegnelsen
entryText = InputBox("Skriv tekst til indholdsfortegnelse", "Indholdsfortegnelse...", UserForm1.ListBox1.List(intCnt))
ActiveDocument.TablesOfContents.MarkEntry Range:=Selection.Range, entry:=entryText
Selection.InsertFile FileName:=UserForm1.ListBox1.List(intCnt)
Next intCnt

'Indholdsfortegnelsen udskrives
Set myRange = ActiveDocument.Bookmarks("Indhold").Range
ActiveDocument.TablesOfContents.Add Range:=myRange, UseFields:=True, UseHeadingStyles:=False
---

Når indholdsfortegnelsen så skrives ud kommer sidetallet til at svare til den sidste side af den fil den refererer til og ikke den første. jeg har en fornemmelse af det er Range'n det er galt med men kan ikke gennemskue det.

Er der nogen der har erfaring inden for dette og som vil hjælpe

Mvh. clauesen

---

Prøv lige at skrive kommentarer i din program kode, så man kan se hvad det er du ønsker der skal ske i en kode blok. Eller så skal jeg jo kende alle detaljer i hvad hver kommando laver, samt hvad der er logikken i dit program.

Den logik jeg evt. ville bruge, det er:

do
'skriv tekst der skal optræde i indholdsfortegnelsen
'sæt liniens typografi til TOC

'indsæt dokumentet
'næste line/ny paragraf/whatever
loop until ..listCount-1

mvh. Per

---

Prøv at kikke på Range.Start og Range.End

mvh
MouseKeeperX

---

Tak til Per og musen for indlæg.

Min løsning er (foreløbig) blevet til:

*********************

For intCnt = 0 To UserForm1.ListBox1.ListCount - 1
Selection.EndKey unit:=wdStory 'går til slutning af dokumentet
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'centrerer

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTOCEntry, Text:= _
"Tekst" & "\f P", PreserveFormatting:=True 'Indsætter TC felt; "Telst" er den tekst der indsættes i indholdsfortegnelsen P
Selection.InsertFile FileName:=UserForm1.ListBox1.List(intCnt) ' Indsætter filen fra listen
Next intCnt

Set Indholdrange = ActiveDocument.Bookmarks("Indhold").Range
ActiveDocument.TablesOfContents.Add Range:=Indholdrange, UseFields:=True, _
UseHeadingStyles:=False, TableID:="P" 'Udskriver indholdsfortegnelse P ved bogmærket Indhold

*********************

Grunden til at kalde indholdsfortegnelsen P er, at jeg har flere indholdsfortegnelser i dokumentet.
Forøvrigt returnerer Range.Start ikke en range, så det kunne jeg ikke bruge.
Jeg har brugt feltet wdFieldTOCEntry, da jeg ikke ønskede at skrive noget ind kun indsætte filen.

Hvis der er nogen, som har interesse i dette kan ovenstående måske benyttes - men det lader ikke til, at der er ret mange, som har erfaring i at lave indholdsfortegnelser med vba !
Jeg har søgt meget på nettet uden held!

Mvh. clauesen

---

Hej Clauesen
Tak for din løsning - rart når spørgere deler ud af andet end point :)

mvh
MouseKeeperX

---

Hej Clausen,
nu er din situation jo også lidt speciel. Med flere indholdsfortegnelser, og tekst til en fælles oversigt via skjult tekst.
Men endnu en gang må vi konstatere, at VBA ikke er så ringe endda. Nå man ellers lige får eksperimenteret sig frem til at udtrykke sit ønske på den måde som VBA nu engang gerne vil have det.

mvh. Per

---

Hej,
jeg har engang i et andet forum skrevet noget i retning af: Jo mere man lærer om vba, jo mere ved man der er tilbage at lære.
Og det viser sig igen og igen at være sandt.

Mvh Cl

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.