Da un bottone di una Form di access (2003) dovrei creare un file Word . Fin'ora sono riuscito a creare il file e gestire l'inserimento del testo su tre righe nell'intestazione, ma il problema sorge nel punto in cui devo modificare tipo di carattere altezza dello stesso per ogni riga dell'intesazione es.
1° riga altezza 16 in arial
2° riga aletzza 14 in Tahoma
3° riga altezza 12 in Times New Roman
modificando le proprieta FONT e Font.SIZE il tutto prende come valore attivo quelli impostati con l'ultima riga
ho provato a ricercare la soluzione nella gestione della proprieta Paragraphs, ma non sono giunto a nulla qual'è la procedura?
grazie per i suggerimenti
questo è il codice finora utilizzato
Private Sub Btn_Word_Click()
Dim objWRD As Word.Application, myDoc As Word.Document, ReplSel As Boolean, Vtxt_Hdr, VPath, VNm_Fl As String
Set objWRD = CreateObject("Word.Application")
objWRD.Visible = True
objWRD.Activate
ReplSel = objWRD.Options.ReplaceSelection
objWRD.Options.ReplaceSelection = True
objWRD.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
objWRD.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
objWRD.Selection.HeaderFooter.Range.Paragraphs.Ali gnment = wdAlignParagraphCenter
objWRD.Selection.HeaderFooter.Range.Paragraphs.Lin eSpacingRule = wdLineSpaceSingle
objWRD.Selection.HeaderFooter.Range.Paragraphs.Spa ceAfter = 0
objWRD.Selection.HeaderFooter.Range.Paragraphs.Spa ceBefore = 0
objWRD.Selection.HeaderFooter.Range.Font.Name = "Arial"
objWRD.Selection.HeaderFooter.Range.Font.Size = 16
objWRD.Selection.HeaderFooter.Range.Text = "INTESTAZIONE - LINEA UNO"
objWRD.Selection.HeaderFooter.Range.Font.Name = "Tahoma"
objWRD.Selection.HeaderFooter.Range.Font.Italic = True
objWRD.Selection.HeaderFooter.Range.Font.Size = 14
objWRD.Selection.HeaderFooter.Range.InsertAfter "Intestazione - Liena Due"
objWRD.Selection.HeaderFooter.Range.Font.Name = "Times new Roman"
objWRD.Selection.HeaderFooter.Range.Font.Bold = True
objWRD.Selection.HeaderFooter.Range.Font.Size = 12
objWRD.Selection.HeaderFooter.Range.Text = "intestazione - linea tre"
objWRD.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
objWRD.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
Set objWRD = Nothing
End Sub