🚀 go-pugleaf

Witam,

Jestem nowy na grupie więc serdecznie witam wszystkich.

Aktualnie tworzę szablon do różnorodnych dokumentów z wykrzystaniem 
różnorodnych wcześniej przygotowanych autotekstów. Jedna z funkcjonalności 
szablonu przewiduje zmianę niektórych elementów w dokumencie, np. podmiana 
notatki dotyczącej praw wykorzystania tegoż dokumentu.

Problem jest następujący. Umieściłem w dokumencie tabelkę z tekstem 
(autotekst). Oprócz tej tabelki jest w dokumencie kilka innych tabel. W tym 
momencie staram się przygotować skrypt, którym mógłbym podmienić tą 
szczególną tabelę na inną, również określoną w autotekście. Poniżej 
przedstawiam kod, który jednak błędnie się wykonuje.

Sub podmien(nazwaAutotekstu As String)
Dim zakres As Range
Dim wordDok As Document
Dim szablon As Template

    Set wordDok = ActiveDocument
    Set szablon = wordDok.AttachedTemplate

    Set zakres = wordDok.Tables(3).Range
    zakres.Delete
    zakres.Select
    Set zakres = 
szablon.AutoTextEntries(nazwaAutotekstu).Insert(Selection.Range, True)

Kod ten wstawia nowy autotekst w złym miejscu a dokładnie to dołącza ją do 
tabeli numer 2 w dokumencie, pozostawiając tabelę numer 3 wyczyszczoną z 
tekstu, ale widoczną.

Może ktoś z Was widzi jakiś błąd lub zna lepszy pomysł na rozwiązanie tego 
problemu.

Pozdrawiam

Bartek Różański