PDA

View Full Version : [Word] Come prelevare valore dai form


cionci
26-08-2004, 09:20
Sapete come leggere il contenuto dei form di Word da un programma esterno (in qualsiasi linguaggio, va bene anche VBA)...
Allego un file di esempio...

Fenomeno85
26-08-2004, 17:26
domanda forse stupida ma non puoi realizzarlo direttamente con programma per quelle informazioni??

Il problema č che non riesco a capire come fare a determinare quei textbox dato che non trovo qualche proprieta.

~§~ Sempre E Solo Lei ~§~

cipi
26-08-2004, 17:37
Se hai .NET 2003 e Office 2003 puoi guardare a questo link (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odc_vsto2003_ta/html/wordobject.asp)

Purtroppo io nn ce li ho e quindi... :(

cipi
26-08-2004, 17:40
Dimenticavo un particolare.... devi avere anche
Visual Studio Tools for the Microsoft Office System
per la modesta cifra di 500 eurozzi... :eek:

cionci
27-08-2004, 07:09
Non ci credo che non ci sia un modo pių semplice :cry: :cry:

Fenomeno85
27-08-2004, 11:52
la butto lė, provare a scorrere il file ??

~§~ Sempre E Solo Lei ~§~

cionci
27-08-2004, 14:19
Devo ancora provare a lavorarci, ma per Word come per Excel e per Access ci dovrebbe essere un insieme di gerarchie di oggetti che permette di accedere direttamente al file...

cionci
29-08-2004, 09:32
Up !!! ;)

cionci
31-08-2004, 17:40
Ho trovato la soluzione !!!

Private Sub Form_Load()
Dim app As Word.Application
Set app = New Word.Application
app.Documents.Open ("C:\ProvaForm.doc")
MsgBox "" & app.ActiveDocument.FormFields.Item("Testo1").Result
app.ActiveDocument.FormFields.Item("Testo1").Result = "cionci"
app.ActiveDocument.Save
app.ActiveDocument.Close
Set app = Nothing
End Sub

cipi
31-08-2004, 17:44
mitico cionci :cool:

Fenomeno85
31-08-2004, 18:40
Originariamente inviato da cionci
Ho trovato la soluzione !!!

Private Sub Form_Load()
Dim app As Word.Application
Set app = New Word.Application
app.Documents.Open ("C:\ProvaForm.doc")
MsgBox "" & app.ActiveDocument.FormFields.Item("Testo1").Result
app.ActiveDocument.FormFields.Item("Testo1").Result = "cionci"
app.ActiveDocument.Save
app.ActiveDocument.Close
Set app = Nothing
End Sub


sempre il migliore :D

~§~ Sempre E Solo Lei ~§~

cionci
31-08-2004, 18:47
Originariamente inviato da Fenomeno85
sempre il migliore :D
Ma che migliore...č una cazzatina ;)

Fenomeno85
31-08-2004, 19:06
Originariamente inviato da cionci
Ma che migliore...č una cazzatina ;)

be io mi ero bloccato all'apertura :cry: ... non capivo come diavolo fare a capire come associare il textbox

~§~ Sempre E Solo Lei ~§~

cionci
31-08-2004, 19:08
Ho usato VB perchč cosė mi potevo scorrere tutti gli oggetti e i metodi...ci sono riuscito in questo modo...

Fenomeno85
31-08-2004, 19:10
Originariamente inviato da cionci
Ho usato VB perchč cosė mi potevo scorrere tutti gli oggetti e i metodi...ci sono riuscito in questo modo...

bravo bravo :D

~§~ Sempre E Solo Lei ~§~