john_revelator
29-11-2007, 17:35
Ciao a tutti. Dovrei generare un documento di word a partire dai dati contenuti in un db di access.
Riporto qui solo una parte del codice per semplificare il tutto.
Vi spiego velocemente quali sono le mie difficoltā:
1) Non riesco a capire perchč se voglio formattare in grassetto il contenuto della prima riga nella colonna di sinistra della mia tabella mi vengono formattate in grassetto anche tutte le voci del recordset.
2) Come faccio ad inserire un'immagine nella prima riga della tabella? Ho letto del metodo addpicture ma non riesco a farlo funzionare.
3) Come faccio ad allineare a destra il contenuto di una cella? Ho provato con
objTable.Cell(i, 1).range.Paragraphs.Alignment = wdAlignParagraphRight come potete vedere poi commentato all'interno del codice ma non funziona.
Spero possiate darmi qualche dritta. Grazie a tutti. :)
Private Sub cmdGenCV_Click()
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objRange = objDoc.range()
objDoc.Tables.Add objRange, 1, 2
Set objTable = objDoc.Tables(1)
strQueryName1 = "qrynominativo"
Set objRST1 = Application.CurrentDb.OpenRecordset(strQueryName1)
objTable.Columns(1).PreferredWidth = 150
objTable.Columns(2).PreferredWidth = 350
objTable.Cell(1, 1).range.Text = "Curriculum Vitae Europass"
objTable.Cell(1, 1).range.Font.Bold = True
For i = 0 To objRST1.Fields.Count - 1
objTable.Rows.Add
objTable.Cell(i + 2, 1).range.Text = objRST1.Fields(i).Name
'objTable.Cell(i + 1, 1).range.Font.Bold = True
'objTable.Cell(i, 1).range.Paragraphs.Alignment = wdAlignParagraphRight
objTable.Cell(i + 2, 2).range.Text = objRST1.Fields(i).Value
Next
'objTable.Cell(41, 1).selection.Shapes.AddPicture ("C:\Documents and Settings\Utente\Documenti\Immagini\europass.jpg")
End Sub
Per allineare a destra il contenuto della prima riga/prima colonna ho provato anche cosė come trovato in diversi siti
objTable.Cell(1, 1).range.ParagraphFormat.Alignment = wdAlignParagraphRight
ma il testo mi rimane allineato a sinistra.
Riporto qui solo una parte del codice per semplificare il tutto.
Vi spiego velocemente quali sono le mie difficoltā:
1) Non riesco a capire perchč se voglio formattare in grassetto il contenuto della prima riga nella colonna di sinistra della mia tabella mi vengono formattate in grassetto anche tutte le voci del recordset.
2) Come faccio ad inserire un'immagine nella prima riga della tabella? Ho letto del metodo addpicture ma non riesco a farlo funzionare.
3) Come faccio ad allineare a destra il contenuto di una cella? Ho provato con
objTable.Cell(i, 1).range.Paragraphs.Alignment = wdAlignParagraphRight come potete vedere poi commentato all'interno del codice ma non funziona.
Spero possiate darmi qualche dritta. Grazie a tutti. :)
Private Sub cmdGenCV_Click()
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objRange = objDoc.range()
objDoc.Tables.Add objRange, 1, 2
Set objTable = objDoc.Tables(1)
strQueryName1 = "qrynominativo"
Set objRST1 = Application.CurrentDb.OpenRecordset(strQueryName1)
objTable.Columns(1).PreferredWidth = 150
objTable.Columns(2).PreferredWidth = 350
objTable.Cell(1, 1).range.Text = "Curriculum Vitae Europass"
objTable.Cell(1, 1).range.Font.Bold = True
For i = 0 To objRST1.Fields.Count - 1
objTable.Rows.Add
objTable.Cell(i + 2, 1).range.Text = objRST1.Fields(i).Name
'objTable.Cell(i + 1, 1).range.Font.Bold = True
'objTable.Cell(i, 1).range.Paragraphs.Alignment = wdAlignParagraphRight
objTable.Cell(i + 2, 2).range.Text = objRST1.Fields(i).Value
Next
'objTable.Cell(41, 1).selection.Shapes.AddPicture ("C:\Documents and Settings\Utente\Documenti\Immagini\europass.jpg")
End Sub
Per allineare a destra il contenuto della prima riga/prima colonna ho provato anche cosė come trovato in diversi siti
objTable.Cell(1, 1).range.ParagraphFormat.Alignment = wdAlignParagraphRight
ma il testo mi rimane allineato a sinistra.