Newsgroup: it.comp.lang.visual-basic
Titolo: Offresi Donna per risposta Utile

Ciao, la donna è il mio capo !! e la offro divisa in pezzi da 2 kG L'uno
La domanda é
 come scaricare dati da un prog VB (fatto da me) a WORD:
Se ho un record con dei campi ad esempio "Nome" "Cognome" come posso
inviarli ad un documento WORD ( ad es. tipo lettera ??)
Devo predisporre nel documento dei Bookmark o dei Campi di altro
genere   ??
quale istruzione devo utilizzare nel prog VB per dirgli di copiare i
dati dove li voglio in Word ??
Nel Prog VB devo utilizzare un controllo OLE ???
Devo usare il DDE ???
Spero che qualcuno mi possa dare qualche dritta, perchè non sò proprio
come fare. 
PS. I Miei CD di MSDN sono fottuti, e io con loro se non risolvo.
--
Posted from 
qma...@charleston.SoftHome.net
 [204.144.231.41]
via Mailgate.ORG Server - 
http://www.mailgate.org

Io per aggirare l'ostacolo ho inserito i dati in un database vuoto e ho
aperto , con una SHELL  il documento word che puntava ai campi di tale
database, in uscita da word ho cancellato di nuovo il database. Se qualcuno
conosce una scorciatoia e' il benvenuto
aldo <al...@SoftHome.net> wrote in message 383744F8...@SoftHome.net...


GUARDA IL SITO COMUNE C'E UN FILE CHE SPIEGA IL TUTTO
!


Ho appena finito di scrivere una perte di una applicaione che fa proprio
questo (stampa lettere e bilanci per un gestionale).
Il tutto è più semplice di quanto non sembri, ti invio uno scorcio del
codice che ho scritto:
naturalemente il codice è ancora abbastanza grezzo (il ciclo sull'errore
potrebbe dare qualche fastidioso stallo del sistema...)
il consiglio che ti do è il seguente se non sai come fare una determinata
cosa falla fare a WORD!!!
aziona la registrazione di macro e fai le operazioni che vorresti fare via
programma poi vatti a guardare il codice della macro semplice...
buona fortuna.
Nicola
P.S: per la donna mi raccomando pezzi magri...
            Set oWord = GetObject(, "Word.Application")
            Do While Err.Number <> 0
                Err.Clear
                Set oWord = CreateObject("Word.Application")
                lNuovo = True
            Loop
            oWord.Documents.Add (GetSetting("Ammico 2000", "Database",
"Path", "") & "Dot\Bilanci.Dot")
            oWord.Documents("Documento" & oWord.Documents.Count).Activate
            oWord.ActiveDocument.Paragraphs.LeftIndent =
CentimetersToPoints(0.5)
            With oWord.Selection
                .TypeText "Condominio "
                With .Font
                    .Bold = True
                    .Italic = True
                End With
                .TypeText CStr(rsImmobili.Fields("Nominativo"))
                With .Font
                    .Bold = False
                    .Italic = False
                End With
                .TypeParagraph
                .TypeText CStr(rsImmobili.Fields("Indirizzo"))
                .TypeParagraph
                .TypeText rsImmobili.Fields("CAP") & " " &
rsImmobili.Fields("Localita") & " (" & rsImmobili.Fields("Provincia") & ")"
                .TypeParagraph
                .TypeParagraph
                .TypeParagraph
                .Paragraphs.Alignment = wdAlignParagraphCenter
                With .Font
                    .Bold = True
                    .Italic = True
                    .Size = .Size + 2
                End With
                .TypeText "Bilancio Consuntivo"
                .TypeParagraph
                .Paragraphs.Alignment = wdAlignParagraphCenter
                With .Font
                    .Underline = True
                    .Italic = False
                    .Size = .Size - 2
                End With
                .TypeText "Gestione dal " &
Format(rsImmobili.Fields("DataApertura"), "dd-mm-yyyy") & " al " &
Format(rsImmobili.Fields("DataChiusura"), "dd-mm-yyyy")
                With .Font
                    .Bold = False
                    .Underline = False
                End With
                .TypeParagraph
            End With
            With oWord.Selection
                .ParagraphFormat.Alignment = wdAlignParagraphLeft
                .ParagraphFormat.TabStops.Add
Position:=CentimetersToPoints(11), Alignment:=wdAlignTabCenter,
Leader:=wdTabLeaderSpaces
                .ParagraphFormat.TabStops.Add
Position:=CentimetersToPoints(15), Alignment:=wdAlignTabRight,
Leader:=wdTabLeaderSpaces
                .ParagraphFormat.TabStops.Add
Position:=CentimetersToPoints(18), Alignment:=wdAlignTabRight,
Leader:=wdTabLeaderSpaces

se la donna č "bona" puoi
mandarmela anche intera, poi ci penso io!!!
Micio