🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #2138

Re: Inesperto chiede....

#2138
From: stgfv
Date: Tue, 14 Oct 2003 22:49
56 lines
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-mail
References: <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