Makro pro Word

[gansn]

Dobrý den,
jsem absolutní laik v oblasti maker a potřeboval bych poradit s makrem pro word. Jde mi o jednu věc, automatické vložení obrázku na určitou stránku :
pro stranu 1 vložit obrázek č.1
pro stranu 2 až (n-1) vložit obrázek č.2
a pro poslední stranu n vložit obrázek č. 3.
Lze toto vytvořit v makru pro word?
Děkuji za odpověď a případnou pomoc při řešení tohoto pro mě velkého problému
Gansn

[Reklama]

[navstevnik]

Poskytnute informace jsou mene nez kuse (listy jsou prazdne?, do textu?, obtekani textem?, poloha na listu?, velikost?, zdroj?,....). Takze odpoved bude nemene kusa - lze.
Dobrym zacatkem bude nahrat si makro. Toto makro zaznamena posloupnost ukonu pri vkladani obrazku na listy a po uprave lze pak pouzit i v jinem dokumentu.

[gansn]

pokusím se blíže specifikovat - jde o neprázdný dokument (např. smlouva), pozice obrázku je pevná, například vlevo nahoře, šířka obrázku cca 1 cm, výška cca 5 cm, zdroj obrázků je kdekoliv na disku.
Díky za odpověď

[navstevnik]

Do dokumentu na pozadovana mista vloz zalozky: Vlozit>Zalozka>Nazev zalozky>Pridat; nazvy napr.: Obr1, Obr2,...
Pro vlozeni obrazku pouzij proceduru (uprav podle poctu obrazku; vloz celou cestu a nazev souboru, volat klavesovou zkratkou Nastroje>Vlastni>Vlastni klavesnice>Kategorie:Makra>Vybrat makro>stisknout klavesovou zkratku>Pridat>Zavrit):

Kód: Vybrat vše

Option Explicit

Sub VlozObrazky()
  Selection.GoTo What:=wdGoToBookmark, Name:="Obr1"
  ' dopln celou cestu a nazev souboru
  Selection.InlineShapes.AddPicture FileName:= _
      "C:\.....\Budik1.bmp", _
      LinkToFile:=False, SaveWithDocument:=True
  Selection.GoTo What:=wdGoToBookmark, Name:="Obr2"
  Selection.InlineShapes.AddPicture FileName:= _
      "C:\......\Budik2.bmp", _
      LinkToFile:=False, SaveWithDocument:=True
End Sub