VBA MACRO WORD:
Sub macro_3() Dim l As Long Selection.TypeText Text:="WWW S.r.l VERBALE XXXXXXXXXXXXXXXXXXXXXX " Selection.TypeText Text:=vbTab & _ " AAAA/" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeParagraph Selection.TypeText Text:="Via YYYYYYYYYYYY" Selection.TypeParagraph Selection.TypeText Text:="JJJJJJJJJJJJJJJ" Selection.TypeParagraph Selection.TypeText Text:="Partita Iva: IIIIIIIIIII Codice fiscale: FFFFFFFFFFF " For l = 1 To 199 Selection.InsertBreak Type:=wdPageBreak Selection.TypeText Text:="WWW S.r.l VERBALE XXXXXXXXXXXXXXXXXXXXXX " Selection.TypeText Text:=vbTab & _ " AAAA/" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeParagraph Selection.TypeText Text:="Via YYYYYYYYYYYY" Selection.TypeParagraph Selection.TypeText Text:="JJJJJJJJJJJJJJJ" Selection.TypeParagraph Selection.TypeText Text:="Partita Iva: IIIIIIIIIII Codice fiscale: FFFFFFFFFFF " Next End Sub
