Automatyczna aktualizacja pól w Microsoft Word 2003

[unknown]

W stworzonym dokumencie porzez menu: Wstaw>Pole>Title wstawiam właśnie
rzeczone pole Title. Poczywiście pojawia się to pole jednak jeżeli w menu:
Plik>Właściwości>Title - ZMIENIĘ - tytul - to nie jest on AUTOMATYCZNIE
uaktualniany w dokumencie.

Jak zatem zrobić aby w momencie zapisywania pliku, który w trakcie tworzenia
miał zmieniane wartości pół był AUTOMATYCZNIE uaktualniany?
W końcu nie po to zminiłem te właściwości abym w zapisywanym dokumencie miał
stare wartości.

[pxd74]

Post by unknown
W stworzonym dokumencie porzez menu: Wstaw>Pole>Title wstawiam właśnie
Plik>Właściwości>Title - ZMIENIĘ - tytul - to nie jest on AUTOMATYCZNIE
uaktualniany w dokumencie.
Jak zatem zrobić aby w momencie zapisywania pliku, który w trakcie
tworzenia miał zmieniane wartości pół był AUTOMATYCZNIE uaktualniany?
W końcu nie po to zminiłem te właściwości abym w zapisywanym dokumencie
miał stare wartości.

Tylko poprzez makro. Automatycznie z poziomu zwykłego użytkownika można
ustalić aktualizację łącz tylko przed drukowaniem i przy
otwieraniu/zamykaniu pliku.
W tym poście:
http://groups.google.pl/group/ms-news.pl.officexp/msg/7e2b61c3fe430e6e
masz opisane kolejne kroki jak napisać makro, które będzie uruchamiało się
przed zapisywaniem dokumentu.
W Twoim przypadku wystarczy tylko w kroku 2 wpisać nastepujący tekst do
modułu klasy:

'======================
Public WithEvents a As Application

Private Sub a_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)

Doc.Fields.Update
End Sub
'======================

[miško]

Post by pxd74
Tylko poprzez makro. Automatycznie z poziomu zwykłego użytkownika można
ustalić aktualizację łącz tylko przed drukowaniem i przy
otwieraniu/zamykaniu pliku.
http://groups.google.pl/group/ms-news.pl.officexp/msg/7e2b61c3fe430e6e
masz opisane kolejne kroki jak napisać makro, które będzie uruchamiało się
przed zapisywaniem dokumentu.
W Twoim przypadku wystarczy tylko w kroku 2 wpisać nastepujący tekst do
'======================
Public WithEvents a As Application
Private Sub a_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
Doc.Fields.Update
End Sub
'======================
--
Pozdrowienia
pxd74

Dziękuję bardzo - to mi pomogło i utwierdziło, że tylko poprzez MAKRO można
to uaktualniać.

miško