Article View: free.it.visual-basic
Article #2138Re: Inesperto chiede....
From: stgfv
Date: Tue, 14 Oct 2003 22:49
Date: Tue, 14 Oct 2003 22:49
56 lines
3037 bytes
3037 bytes
Forse sono stato poco chiaro, ho implementato attraverso il codice : Dim WrdApp As Word.Application 'Se Word sul Pc non c'� mi manda in crash l'applicazione!!!!!!!!!! Dim WrdDoc As Word.Document Dim Campo As Word.FormFields Dim str As Variant Set WrdApp = New Word.Application 'Creo un nuovo documento basato su modello Set WrdDoc = WrdApp.Documents.Add(App.Path & "\" sNomeFileWord) Set Campo = WrdDoc.FormFields Campo(1).Result=Trim(sCampo1) Campo(2).Result=Trim(sCampo2) 'Vorrei ora proteggere il file aperto con una password!! 'Come farlo? 'Salvo il documento con nome WrdDoc.SaveAs sNomeFileWord, wdFormatRTF WrdDoc.Close (wdSaveChanges) Set WrdDoc = Nothing WrdApp.Quit Set WrdApp=Nothing per� sono riuscito instanziando word e passando le variabili dei miei form in Vb su campi di Word, ora per� vorrei proteggere il file word aperto in istanza con una password attraverso VB, quale il codice sorgente? Come posso fare per controllare se su un Pc � installato Winword, solo attraverso il registro di windows? RINGRAZIO E MI SCUSO ULTERIORMENTE PER L'ASSOLUTA IGNORANZA..... "KillerBoy" <@nospam@@pippo.it> ha scritto nel messaggio news:sUOib.36322$e6.1287211@twister2.libero.it... > > "stgfv" <stgfv@NOSPAM-tiscali.it> ha scritto nel messaggio > news:ZwBib.277259$R32.9038809@news2.tin.it... > > Premetto che essendo un inesperto non conosco ancora sufficeintemente bene > > VB, so comunque che � possibile passare i dati di un form in VB a un file > > modello di Word. > > Come posso fare per passare i dati ? > > Come devono essere gli oggetti nel file .doc? > > il codice in VB per passare i dati? > > Ringrazio anticipatamente tutti coloro che intenderanno darmi qualche > dritta > > e mi scuso per l'ignoranza.............................. > > > > > > potresti essere pi� chiaro? cosa intendi per "passare i dati"? > > in ogni caso una "form" per editare la puoi fare anche direttamente in word >
Technical Details
Message-ID:
<o4%ib.216840$hE5.7311795@news1.tin.it>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news-out1.nntp.be!propagator2-sterling!news-in-sterling.newsfeed.com!news-out.tin.it!news-in.tin.it!news1.tin.it.POSTED!not-for-mailReferences:
<ZwBib.277259$R32.9038809@news2.tin.it> <sUOib.36322$e6.1287211@twister2.libero.it>Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII X-Google-Thread: f94ee,3c3673a7b24ed666 X-Google-Attributes: gidf94ee,public X-Google-ArrivalTime: 2003-10-14 15:49:57 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news-out1.nntp.be!propagator2-sterling!news-in-sterling.newsfeed.com!news-out.tin.it!news-in.tin.it!news1.tin.it.POSTED!not-for-mail From: "stgfv" <stgfv@NOSPAM-tiscali.it> Newsgroups: free.it.visual-basic References: <ZwBib.277259$R32.9038809@news2.tin.it> <sUOib.36322$e6.1287211@twister2.libero.it> Subject: Re: Inesperto chiede.... Lines: 58 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 Message-ID: <o4%ib.216840$hE5.7311795@news1.tin.it> Date: Tue, 14 Oct 2003 22:49:56 GMT NNTP-Posting-Host: 80.117.244.245 X-Complaints-To: newsmaster@tin.it X-Trace: news1.tin.it 1066171796 80.117.244.245 (Wed, 15 Oct 2003 00:49:56 MET DST) NNTP-Posting-Date: Wed, 15 Oct 2003 00:49:56 MET DST Organization: TIN