Access in VBA - Come si fa a modificare testo nel'intestazione di file Word

G

golfmike

Nuovo Utente
1 Feb 2013
6
0
0
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
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
 
Devi accedere o registrarti per poter rispondere.
Discussioni simili
Autore Titolo Forum Risposte Data
F Modificare report di etichette di access con vba MS Access 0
Spenalzo Creare tabelle multiple con Access via VBA MS Access 2
GraceHawk ACCESS e VBA: scorrere le righe e le colonne di una tabella? MS Access 3
F [MS Access] VBA non funziona più MS Access 2
A Access, creare nuova tabella in DB esterno con VBA Visual Basic 0
L VBA Access Numero si azzera con dmax Database 0
F access ricerca record con apostrofo. MS Access 0
P Access: recuperare Indice dopo un insert into MS Access 0
N Access: Filtro su maschera MS Access 0
B Non riesco a trovare i cognomi con i caratteri speciali in Access (Microsoft 365) MS Access 0
N Errore interno Access MS Access 2
C ACCESS Aprire maschera se valore non presente in una combo MS Access 7
L Access Periodo maschera continua MS Access 4
B Aumento dimensioni grafico Access Database 0
R [C#] Quali dipendenze occorrono su progetto "Setup" con Access Database? .NET Framework 1
G Appicazione HTML per inserimento dai in Database Access Microsoft HTML e CSS 0
K mc Access/phpmyamin MS Access 0
L Collegare un form html ad un database access Javascript 2
R salve a tutti sono un insegnante di pianoforte e a tempo perso mi sto dedicando ad access Presentati al Forum 1
G Access point con rete guest, consigli? Reti LAN e Wireless 0
P Access Inserimento data. MS Access 4
ges Microsoft ACCESS oltre ogni limite (tre manuali) Altri Annunci 2
@ [MS Access] Funzione Iif..is null... Database 0
P [MS Access] Sostituire un carattere in tutta la tabella MS Access 11
B tasti rapidi Access MS Access 1
M [MS Access] Pulsante su maschera che esegue azioni su altra maschera MS Access 3
C [MS Access] Pagina di dialogo con allegati MS Access 1
strambotto [MS Access] Smembramento tabella MS Access 5
D [MS Access] Piu' maschere con una sola tabella dati... MS Access 0
G [MS Access] Funzione ARROTONDA non definita nell'espressione MS Access 1
M [MS Access] Relazione tra maschere MS Access 1
G Access Point POE da esterno Reti LAN e Wireless 0
M [MS Access] controllo valido se MS Access 8
N [MS Access] Come relazionare DB Libri trasposti in Film e viceversa MS Access 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
D [MS Access] MS Access 2
S [MS Access] Apertura Maschera su nuov record in base a determinato ID MS Access 0
maria_ia Microsoft Access Windows e Software 0
S [MS Access] Apertura maschera MS Access 3
S [MS Access] trasformare un numero in lettere in un report MS Access 1
D [Visual Basic] [MS Access] query con parametro di testo Visual Basic 4
T mysql tutorial per importare tabelle access in mysql aiuto MySQL 2
P [MS ACCESS] Estrarre più somme da una query MS Access 4
D [MS Access] problemi con inserimento campo in una maschera MS Access 6
F [MS Access] Creare [stringa] da caselle combinate MS Access 0
D [MS Access] aiuto non riesco a capire MS Access 6
Arcadia [MS Access] Focus su campo specifico MS Access 1
akira [MS Access] Apertura recordset MS Access 1
V access 2007, maschera con caselle di selezione Programmazione 4
W [MS Access] Barre di scorrimento su maschere MS Access 0

Discussioni simili

Alto Basso