[VB6] Esportazione dati in file di Word

[esposito]

Ciao, ho problemi ad esportare correttamente i dati da un form di VB ad un file di Word.

Quello che vorrei fare è creare un documento Word con le seguenti caratteristiche:

1. Un titolo posizionato in cima alla pagina al centro, il cui testo è preso da txtTitle.Text.
2. Un'immagine centrata sotto il titolo, da me precedentemente salvata sul disco fisso.
3. Una tabella sotto l'immagine costituita da una riga e due colonne, le cui celle prendono dati da due TextBox.

Questo è il codice da me usato:

Private Sub cmdExportToWord_Click()
    
    Dim objWdApp As Object
    Dim objWdDoc As Object
    Dim objWdRange As Object
    
    Set objWdApp = CreateObject("Word.Application")
    Set objWdDoc = objWdApp.Documents.Add
   
    Set objWdRange = objWdDoc.Range

    objWdRange.Font.Name = "Arial"
    objWdRange.Font.Size = 12
    objWdRange.Font.Color = &HFF&
    objWdRange.Paragraphs.Alignment = wdAlignParagraphCenter
    
    objWdRange.InsertAfter vbNewLine & txtTitle.Text

    Dim BMP_File As String

    If Right(App.Path, 1) = "\" Then
        BMP_File = App.Path & "Temp.bmp"
    Else
        BMP_File = App.Path & "\Temp.bmp"
    End If

    SavePicture Picture1.Picture, BMP_File

    Set lo_pic = objWdApp.Selection.InlineShapes.AddPicture(BMP_File, False, True)
                   
    Set oTable = objWdDoc.Tables.Add(Range:=objWdDoc.Range(Start:=0, End:=0), NumRows:=1, NumColumns:=2)
    
    objWdDoc.Tables(1).Cell(1, 1).Range.InsertAfter Text1.Text
    objWdDoc.Tables(1).Cell(1, 2).Range.InsertAfter Text2.Text
   
    objWdApp.Visible = True
  
    Kill BMP_File
    
    Set objWdRange = Nothing
    Set objWdDoc = Nothing
    Set objWdApp = Nothing

End Sub

Il problema che ho è che non riesco ad impostare le coordinate degli oggetti creati nel file di Word.

Infatti, sebbene tutti i dati siano esportati correttamente, la tabella appare in cima alla pagina mentre il testo e l'immagine non risultano centrate.

Qualcuno può aiutarmi?

Grazie in anticipo.

[esposito]

PROBLEMA RISOLTO!

Grazie in ogni caso.

[cassano]

ora mi hai incuriosito puoi mettere la soluzione ???

[esposito]

Ho risolto semplicemente creando una macro in Word, accedendo al codice generato automaticamente ed incollandolo nella mia applicazione in VB.

Ovviamente la macro di Word era in un documento da me formattato secondo le mie esigenze.

Inutile dire che con questo sistema si diventa padroni di tutto ciò che riguarda l'interazione fra VB e Word. Provare per credere.

N.B. Il codice generato dalla macro ha bisogno di piccole modifiche e integrazioni, ma la sostanza resta invariata.

[cassano]

ottimo ,una soluzione intelligentissima grazie

[tomhead]

Originariamente inviato da esposito
Ho risolto semplicemente creando una macro in Word, accedendo al codice generato automaticamente ed incollandolo nella mia applicazione in VB.

Ovviamente la macro di Word era in un documento da me formattato secondo le mie esigenze.

Inutile dire che con questo sistema si diventa padroni di tutto ciò che riguarda l'interazione fra VB e Word. Provare per credere.

N.B. Il codice generato dalla macro ha bisogno di piccole modifiche e integrazioni, ma la sostanza resta invariata.

ciao esposito,
ho anch'io la tua stessa esigenza potresti spiegarmi come funzionano le macro? non ho idea di cosa siano
grazie

[SkOrPiOn`87]

Originariamente inviato da tomhead
ciao esposito,
ho anch'io la tua stessa esigenza potresti spiegarmi come funzionano le macro? non ho idea di cosa siano
grazie

Idem, qualcuno può aiutarmi?

PS: Per utilizzare questa tecnica devo aver per forza installato word sul pc?

[oregon]

Sì ... è ovvio ...

[vaitrafra]

Originariamente inviato da esposito
Inutile dire che con questo sistema si diventa padroni di tutto ciò che riguarda l'interazione fra VB e Word. Provare per credere.

prendendosi la briga di leggere un po' di documentazione sul componente word si è molto più padroni dell'interazione...

[SkOrPiOn`87]

Non c'è un metodo che mi permetta di scrivere un documento word senza possedere office (ad esemo con access posso farlo)?

O comunque un'altro tipo di file su cui posso impaginae il documento in una tabella per metterci dei dati...