Word - typy plików docm i dotm - VBA

Question

Witam wszystkich forumowiczów

Może ktoś się orientuje w problemie i pomoże lub zasugeruje gdzie należy błędu szukać.

Otóż w Wordzie (plik docm) zrobiłem takie makra:

 

Private Sub UserForm_Initialize()

Klient.Lista.List = Array("Stacja w Bełchatowie", "Stacja w Brzezinach", "Stacja w Kutnie")

End Sub

 

Private Sub Wstaw_Click()

ThisDocument.Stacja = Klient.Lista

End Sub

 

W pierwszej części jest lista rozwijalna gdzie wybiera się stację. Drugie makro wstawia wybraną stację w pole ,,Stacja’’ (pole Leabel) umieszczone w dokumencie.

 

Wszystko działa ok w pliku ,,docm’’. Kiedy zapiszę plik do formatu ,,dotm’’ już tak nie jest. Lista działa, ale wybrana stacja nie wpisuje się w odpowiednie pole. Nie jest zwracany żaden błąd. Mam wrażenie, że to pole nie jest odnajdywane.

Czy jest ktoś mądry, kto wie gdzie szukać rozwiązania problemu?

 

Z góry dziękuję za zainteresowanie.

Answer 1

Sam sobie odpowiem, bo już wiem. Odpowiedź dostałem na innym forum:

https://answers.microsoft.com/pl-pl/msoffice/forum/all/word-typy-plik%c3%b3w-docm-i-dotm-vba/79ff4b4e-2478-4669-9543-80ddefaa1a3d

Trzeba zmienić thisdocument na activedocument.