Da Access a Word

Supponiamo di voler estrapolare il contenuto di una maschera Access in un file modello Word

Avendo scelto come variabile all’interno della nostra Function nel seguente modo

Dim wrd As Word.Application

Possiamo andare a scegliere, per esempio l’impostazione della tipologia del carattere da farcirisultare all’interno del nostro documetno Word

wrd.Selection.Font.Name = "Arial" 'Scelta del tipo Carattere

wrd.Selection.Font.Size = 11 'Scelta dimensione Carattere

wrd.Selection.Font.Bold = False 'togli il grassetto

wrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft ' allineamento a sinistra

' wrd.Selection.Font.Italic = True 'in corsivo

wrd.Selection.TypeText "Si informa che l'Ufficio XYZZ rispetta il seguente orario di apertura dal Lunedì al Venerdì:" & vbCrLf

wrd.Selection.TypeText "Mattina: dalle ore 9:00 alle ore 12:30. " & vbCrLf

wrd.Selection.TypeText "Pomeriggio: dalle ore 13:30 alle ore 16:00. " & vbCrLf

Ottenendo il seguente