Acquista i nostri libri consigliati su Amazon.it
Discussione chiusa
Visualizzazione dei risultati da 1 a 7 su 7

automazione word

  1. #1
    margiu non  in linea Novello
    chi mi pu dire cosa manca? vorrei creare una tabella in word dove inserire i dati di una database come indicato di seguito.....riesco a trasferire i dati ma non a formattarli
    'esportazione Elenco parametri:
    'selezione del punto di inserimento
    Doc.Bookmarks("Elencoprodotti").Select


    'impostazione delle tabulazioni:
    With Wrd.Selection.Paragraphs.TabStops
    .Add Wrd.Application.CentimetersToPoints(-3.5), wdAlignTabRight 'numeroprodotto
    .Add Wrd.Application.CentimetersToPoints(-2.5) 'prodotto
    .Add Wrd.Application.CentimetersToPoints(1.5), wdAlignTabdown 'caratteristiche
    .Add Wrd.Application.CentimetersToPoints(5.5), wdAlignTabdown 'tipoprodotto
    End With 'Wrd.Selection.Paragraphs.TabStops

    'apertura del recordset
    'apro un nuovo recordset per poter impostare l'ordinamento,
    SQL = "SELECT * FROM prodotti WHERE numeroprodotto=" & Me.numeroprodotto & _
    " ORDER BY tipoprodotto;"
    Set Rst = CurrentDb.OpenRecordset(SQL)

    If Not Rst.BOF Then 'se il recordset non vuoto
    Tbl = Chr$(9) 'Chr$(9) una tabulazione
    'scrivi l'intestazione:
    Wrd.Selection.Font.Bold = True 'abilita il grassetto
    Wrd.Selection.TypeText Tbl & "numeroprodotto" & _
    Tbl & "prodotto/caratteristiche" & _
    Tbl & "tipoprodotto" & vbCrLf
    Wrd.Selection.Font.Bold = False 'togli il grassetto

    pausa
    'aggiungi una linea orizzontale tra le intestazioni e i dati
    Wrd.Selection.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
    'spaziatura di 8 punti tra la linea e il testo
    Wrd.Selection.Borders.DistanceFromTop = 8

    pausa
    'ciclo sul recordset ed esportazione di tutte le righe
    With Rst
    .MoveFirst 'posizionati sul primo record
    While Not .EOF 'ripeti fino alla fine del recordset:
    'costruisci la riga da scrivere nel documento:
    Record = Tbl & !numeroprodotto & Tbl & StrConv((!parametro), vbProperCase) & Tbl & _
    !caratteristiche
    Wrd.Selection.TypeText Record & vbCrLf 'scrivi la riga
    pausa
    .MoveNext 'passa al prossimo record
    Wend 'Not .EOF
    End With 'Rst
    'chiudi e azzera il recordset
    Rst.Close: Set Rst = Nothing

    pausa

    Else 'Not Rst.BOF
    Wrd.Selection.TypeText "NESSUN PRODOTTO ACQUISTATO." & vbCrLf
    End If 'Not Rst.BOF

    'ripristina il valore originario dell'opzione
    '"Sostituisci la selezione"
    Wrd.Options.ReplaceSelection = ReplSel
    'avvisa l'utente che l'esportazione terminata
    Wrd.Application.WordBasic.MsgBox "Esportazione terminata", "Esportazione dati da Access"

    End Sub

    Il risultato e:
    numero prodotto prodotto/caratteristiche tipo
    1 porta alluminio
    2 finestra legno
    3 viti in acciaio

    mentre dovrebbe essere

    prodotti fissi
    1 Porta
    alluminio F
    2 finestra
    alluminio F


    Prodotti consumabili
    1 Viti
    acciaio C



    quelle sopra dovrebbero essere due tabelle la prima di due righe e tre colonne la seconda di una riga e tre colonne nella stessa cella della seconda colonna dovrebbero andare caratteristiche e prodotto con le caratteristiche scritte in corsivo e il prodotto scritto in grassetto..... ho provato ad attivare il grassetto con fontbold= true ma niente

    spero che qualcuno mi possa aiutare.....

  2. #2
    L'avatar di Cteniza
    Cteniza non  in linea Amanuense
    Hai postato su un forum sbagliato.
    Quanto indicato codice vb6 non .net
    ℹ️ Leggi di pi su Cteniza ...

  3. #3
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da Cteniza Visualizza il messaggio
    Hai postato su un forum sbagliato.
    Quanto indicato codice vb6 non .net
    Mmmm mi pare simile : http://forum.masterdrive.it/ms-offic...-access-60139/
    ℹ️ Leggi di pi su @Alex ...

  4. #4
    margiu non  in linea Novello
    ok lascio perdere mi sembra evidente che nessuno sa o vuole darmi la risposta....grazie a tutti lo stesso.....

  5. #5
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da margiu Visualizza il messaggio
    ok lascio perdere mi sembra evidente che nessuno sa o vuole darmi la risposta....grazie a tutti lo stesso.....
    Senza porti il dubbio che qualcuno stesse provando a fare qualche TEST nel tempo che poteva dedicare, e gi qu ti ricordo che nessuno OBBLIGATO
    a dedicartene, ma lo si fa per spirito di partecipazione e per piacere, tu non ti sei minimamente posto il problema di aver sbagliato metodo di fruizione postando in altre sezioni, sbagliate peraltro, contravvenendo al regolamento.
    Ti sei tuttavia sentito in dovere di una rimostranza...
    ℹ️ Leggi di pi su @Alex ...

  6. #6
    Quote Originariamente inviato da margiu Visualizza il messaggio
    ok lascio perdere mi sembra evidente che nessuno sa o vuole darmi la risposta....grazie a tutti lo stesso.....
    Sicuramente, dopo questa risposta, nessuno vorr.

    Devi lasciare il tempo a chi ti vuole/pu rispondere di farlo. Questo non un servizio gratuito garantito.

    Chiudo.
    ℹ️ Leggi di pi su AntonioG ...

  7. #7
    L'avatar di Cteniza
    Cteniza non  in linea Amanuense
    Prova a scrivere il testo prima e a formattarlo poi utilizzando selection e range
    ℹ️ Leggi di pi su Cteniza ...

Discussione chiusa

Potrebbero interessarti anche ...

  1. Automazione word
    Da Jocman nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 02-03-2017, 08:42
  2. Vba automazione word da excel
    Da Chicco1962 nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 08-10-2016, 15:05
  3. Automazione word
    Da CESABAS nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 05-03-2015, 14:40
  4. Automazione Word
    Da Rob nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 28-01-2008, 19:37
  5. automazione word
    Da leogio nel forum Microsoft Word
    Risposte: 10
    Ultimo Post: 24-01-2008, 16:29