[VB6]: Creazione di tabelle da/a documenti Word

[Folcus]

Mi servirebbe un aiuto creare un documento *.doc.
Dovrei inserire in ogni pagina una tabella come questa:



come potrei fare?
le tabelle sono prestabilite (e sono circa 200)...

in pratica, in fase di esecuzione, l'utente seleziona le tabelle che desidera, e io dovrei creare in automatico un documento con una tabella per pagina, con quelle scelte dall'utente.

avevo pensato ad una soluzione forse empirica, ossia, creare un documento per ogni tabella, e poi in fase di esecuzione far fare un copia/incolla del contenuto nel nuovo documento...questo però non so come farlo...così come non saprei come far si che in ogni pagina ci sia una tabella (con una interruzione di pagina? ma come?).

[wallrider]

:master:

prova a registrarti delle macro mentre fai la cosa "empirica "

[Folcus]

ehm, come si fa?

[Folcus]

up

[wallrider]

da word:
-strumenti/macro/registra
- fai quello che devi fare
-stoppi la registrazione
-alt+f11
-ti avrà creato il codice corrispondente

mi raccomando sempre aprire e chiudere gli oggetti correttamente

[sosan1]

Devi utilizzare il vba con il DOM di word. COmunque ecco un esempio abbastanza completo
Apro Word, creo un documento, nel mio caso visualizzo intestazione di pagina e li creo una tabella con il testo e poi richiudo il tutto

diciamo che le istruzioni che ti servono in sostanza sono queste

objdoc.Tables.Add(objRange, 3, 3)

objTable = objSelection.Tables(1)





Private Sub ApriDoc()


objWord = CreateObject("Word.Application")
objWord.visible = False
objdoc = objWord.Documents.Add()

objView = objdoc.ActiveWindow.View
objView.Type = 3
objWord.Activewindow.activepane.view.seekview = 9

objSelection = objWord.Selection
Dim strText As String
impostaFont(objSelection, "Courier New", 8, False, False)

objRange = objSelection.Range()

objdoc.Tables.Add(objRange, 3, 3)

objTable = objSelection.Tables(1)

strText = "Società: pippo"
objTable.Cell(1, 1).Range.Text = strText

strText = "Città: " & UCase(curCitta)
objTable.Cell(2, 1).Range.Text = strText

strText = Now.ToShortDateString
objTable.Cell(3, 3).Range.Text = strText
objTable.Cell(3, 3).Range.select()
objSelection.ParagraphFormat.Alignment = 2

With objTable
.ApplyStyleLastRow = True
.Borders(-2).LineStyle = 0
.Borders(-3).LineStyle = 1
.Borders(-4).LineStyle = 0

End With

objWord.activewindow.activepane.view.seekview = 0
objSelection.typeparagraph()


objWord.visible = True
objWord.activate()

objWord = Nothing
objdoc = Nothing
objView = Nothing
objSelection = Nothing
objRange = Nothing
objTable = Nothing
End Sub

comunque nel mio sito alla sezione VBA e VB6 trovi altri esempi che ti possono essere utili clicca --->mio sito

[Folcus]

Allora, dopo un periodo di pausa rieccomi sotto con questo problema.
Ho effettuato la registrazione della Macro (creato nuovo documento, aperto doc esistente, selezionato tutto, copiato nel nuovo doc), e questo è quello che ho ottenuto:

Sub Macro4()
'
' Macro4 Macro
' Macro registrata il 21/08/2006
'
    Documents.Add DocumentType:=wdNewBlankDocument
    Documents.Open FileName:="SCHEDA.doc", ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto, XMLTransform:=""
    Selection.WholeStory
    Selection.Copy
    Windows(1).Activate
    Documents.Open FileName:="SCHEDA1.doc", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
    Selection.WholeStory
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.Copy
    Windows(1).Activate
    Selection.PasteAndFormat (wdPasteDefault)
    ActiveDocument.SaveAs FileName:="SCHEDA2.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub

qualcuno mi aiuta a decifrarla? o meglio, decifrata l'ho decifrata, qualcuno mi aiuta a trasportarla in vb6?