Tworzenie makra dla korespondencji seryjnej (zapisz jako nazwa godła)

1. Widok Makra Zarejestruj Makro…

Wykonać czynności w celu zapisania sekwencji makra (Shiftem i strzałką zaznaczyć nazwę np. godła, Carl+C, save as, Carl+V, wybrać format np.: xml, ok., przejść do kolejnej pozycji z korespondencji)

1. Widok Makra Zatrzymuj rejestrowanie Makra

2. Widok Makra Wyświetl makra

Wybrać makro i przejść do edycji

Skopiować wybrany fragment, np.:

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.Copy

With ActiveDocument

.XMLSaveDataOnly = True

.XMLUseXSLTWhenSaving = False

.XMLSaveThroughXSLT = ""

.XMLHideNamespaces = False

.XMLShowAdvancedErrors = False

.XMLSchemaReferences.HideValidationErrors = False

.XMLSchemaReferences.AutomaticValidation = True

.XMLSchemaReferences.IgnoreMixedContent = False

.XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = True

.XMLSchemaReferences.ShowPlaceholderText = False

End With

ChangeFileOpenDirectory "G:\_PRJ\TEST\Makra_word\Wynik\"

ActiveDocument.SaveAs FileName:="6.161.33.07.1.xml", FileFormat:= _

wdFormatXML, LockComments:=False, Password:="", AddToRecentFiles:=True, _

WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord

1. W nowym dokumencie stworzyć korespondencję seryjną ze zmienną wartością np.: godła

2. Wybrać: Korespondencja Zakończ scal Edytuj poszczególne dokumenty

(Maksymalnie do makra można wrzucać około 100 stron - przygotować kilka dokumentów po 100 stron)

1. Skopiować zawartość do makra zastępując poprzedni fragment

2. Zapisać makro

3. Ustawić kursor w miejscu, gdzie rozpoczęła się sekwencja makra

4. Dostosuj pasek narzędzi - szybki dostęp Więcej poleceń Wybierz polecenia z Makra

Wybrać makro i dodać (można zmienić ikonkę) OK.

1. Kliknąć ikonkę odpowiadającą stworzonemu makru