Compilare file word da selezione casella combinata

Question

Ciao a tutti,

sto cercando di creare un file con access al fine di poter inviare dei dati in diversi file word in base alla selezione del file effettuata nella casella combinata COMPILA.

Ho provato a creare diversi file word, con i diversi segnalibri.

Premendo il comando COMPILA, dopo la selezione del nome del file presente nella casella combinata, dovrebbe aprirsi il relativo file word ed inserire automaticamente i diversi valori nei segnalibri.

Ho provato a visionare diversi codici nel forum, ma resto in grande difficoltà.

Provo a postare il file al fine di poter chiedere un vostro prezioso aiuto per ottenere il risultato desiderato.

Grazie in anticipo a tutti Voi per la Vostra professionalità

Answer 1

Intanto dire che dovresti cambiare la struttura del database tipo quella sotto

in quanto la tabella tblPratiche dovrebbe essere normalizzata per non ripetere campi come Operatore1,Operatore2, ecc... Soggetto1,Soggetto2, ecc..., risparmiando spazio e rendendoli riutilizzabili per altre Pratiche, e i file docx dovrebbero essere modelli associabili alle Pratiche.

A questo punto quando fai click sul pulsante il codice aprirà il file modello relativo alla Pratica e andrà a compilare i relativi segnaposto scorrendo i dati, relativi alla Pratica corrente, che traverà nella tblPraticaDati.

Answer 2

ciao daniele,

grazie in anticipo per la disponibilità.

A prima vista, mi confermi che dovremmo rivedere il percorso del filepath che deve cambiare in base al valore della combobox, che indica appunto il file word con i segnalibri da popolare?

Provo a ridescrivere l'obiettivo che vorrei raggiungere.

Nella maschera di access ho creato delle caselle di testo ed una casella combinata con origine il nome dei file word, dove all'interno sono presenti dei segnalibri, diversi oppure uguali tra i diversi files word.

Il valore di queste caselle di controllo deve essere riportato nel file word selezionato all'interno della casella combinata attraverso i segnalibri

Appena riesco provo a lavorarci

Grazie ancora.

Buona giornata

Answer 3

Ciao Giuseppe,

qui Daniele, bentrovato nella community Microsoft,

Puoi farlo con VBA, crea un modulo con due funzioni, una per aprire il file word, un'altra per cambiare il testo ad un segnalibro.

Prima però per aprire un file word devi inserire i Microsoft Word x.0 Object Library tra i riferimenti del codice VBA

Per aprire un file word puoi usare la seguente funzione:

Public Function OpenWord() As Word.Document
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim filepath As String

    Set wrdApp = CreateObject("Word.Application")

    c = CurrentProject.Path
    filepath = c & "\File Alfa Codice 001.docx"
    wrdApp.Visible = True
    Set OpenWord = wrdApp.Documents.Open(filepath)
End Function

per cambiare il testo del segnalibro

Public Sub ChangeBkmark(ByRef wrdDoc As Word.Document, bkmName As String, newText As String)

    Dim bkmRng As Range 

     If wrdDoc.Bookmarks.Exists(bkmName) Then 

        Set bkmRng = wrdDoc.Bookmarks(bkmName).Range 

        bkmRng.Text = newText 

        bkmRng.End = bkmRng.Start + Len(newText) 

        wrdDoc.Bookmarks.Add bkmName, bkmRng 

    Else 

        MsgBox ("Bookmark " & bkmName & " non esiste") 

    End If 

 End Sub 

quindi nel comando compila, che sembra essere il tasto 43 puoi fare questo:

Private Sub Comando43_Click()
    Dim wrdDoc As Word.Document
    Set wrdDoc = Modulo1.OpenWord
    
    Modulo1.ChangeBkmark wrdDoc, "bkOperatore1", Me.Operatore1.Value
    Modulo1.ChangeBkmark wrdDoc, "bkOperatore2", Me.Operatore2.Value
    '...
    Modulo1.ChangeBkmark wrdDoc, "bkOperatoreN", Me.OperatoreN.Value

End Sub

Answer 4

ciao,

grazie in anticipo,

perdonami ho inserito un filezip, contenente i files

Grazie ancora

Answer 5

• Intanto dovremmo avere anche almeno un file di Word che hai creato per inserirvi i dati
• inoltre la tabella tbl_pratiche presenta una struttura che fa presumere una cattiva gestione del database vedendo i campi
  • Operatore1, Operatore2, ecc...
  • Soggetto1, Soggetto2, eccc..