[WORD] Afbeeldingenindex met afbeeldingen i.p.v. tekst

[alexbl69]

Mijn vraag
Ik heb een prijscatalogus met vrij veel afbeeldingen (kleine 500).

Nu zou ik graag een index willen maken van bepaalde afbeeldingen (niet alle!), waarbij die afbeeldingen ook afgebeeld worden met daarbij een verklarende tekst wat het product is en een verwijzing naar het paginanummer waar de desbetreffende afbeelding staat.

Dacht aan een tabel van 6 (breed) bij 10 (hoog), waardoor er 7 pagina's nodig zijn om alle informatie te tonen.

In de cel in die tabel dient dus de afbeelding zelf te komen, een bijschrift (of de alt-tekst) en een verwijzing naar de pagina waar de afbeelding staat.

Aangezien er bij de 'bron'-afbeeldingen geen bijschrift hoeft te staan lijkt het me handiger om de functie 'alternatieve tekst' te gebruiken. Dat alle afbeeldingen waarbij de verklarende tekst als alternatieve tekst is ingevuld dus meegenomen worden in deze run. Het geldt namelijk niet voor alle afbeeldingen in het document.

Gebruik op dit moment een veel eenvoudiger versie die ik handmatig heb gemaakt, waarbij ik maar een beperkt aantal afbeeldingen gebruik. Anders is het handmatig niet te onderhouden.

Relevante software en hardware die ik gebruik
Word / PC

Wat ik al gevonden of geprobeerd heb
Heb uiteraard gezocht naar een oplossing, maar niets gevonden. Alle oplossingen gaan enkel over de bekende (tekstuele) lijst met afbeeldingen. Maar dat is niet wat ik zoek.

Heb vrij uitgebreide ervaring met VBA voor Excel, maar ben nieuw met VBA voor Word.

[Question Mark]

Word is clientsoftware, en geen Windows besturingssysteem. Ik verplaats je topic dan ook maar even naar de buren van: Client software algemeen

[dixet]

Als je soms de caption en soms de alt-tekst wilt gebruiken ontkom je niet aan VBA.
Gelukkig ken je dat al, want Word-VBA is het zelfde als Excel-VBA. Wat anders is, is het objectenmodel dat je gebruikt: in plaats van Excel met z'n hiërarchie van Workbooks-Worksheets-Ranges heb je in Word andere hierarchiën.

ik zou met zoiets beginnen, de exacte eigenschappen van het shape object ken ik niet, maar daar kan je vast iets van de caption of alt-text in vinden

code:

Dim objShape as Shape

For each objShape in ActiveDocument.Shapes
    'controleer of de shape een plaatje is
    If objShapes.Item(i).Type = msoPicture Then
       'doe iets om de eigenschappen in je "table of pictures" te zetten
    End If
Next

[alexbl69]

Dank je wel. Ik ga ermee aan de slag.