Newsgroup: it.comp.os.win.software
Titolo: conteggio parole (word)

'Fine codice
Adesso vorrei usare questo codice per contare le parole invece che i
caratteri, cosě ho provato a scrivere al posto di Characters.Count
Words.Count ma ho visto che il conteggio era sbagliato e infatti poi
ho letto sulla guida di MS Visual Basic che cosě vengono considerate
parole anche i segni di paragrafo.
Sulla guida c'č anche scritto che per contare solo le parole  bisogna
usare la finestra di dialogo Conteggio parole, ma  proprio non riesco
a capire come, qualcuno puo` aiutarmi?

 a capire come, qualcuno puo` aiutarmi?
Usando words.count vengono considerati come parole anche
i segni di punteggiatura oltre che i segni di paragrafo.
Prova questo codice
Sub Conteggio()
Close
Open "c:\filelist.txt" For Input As #1
Open "c:\numcar.txt" For Output As #2
i = 1
Do Until EOF(1)
    Application.StatusBar = "Elaborazione file " & i
    Line Input #1, nomefile
    Documents.Open FileName:="c:\prova\" & nomefile
    Print #2, "c:\prova\" & nomefile,
Documents(1).BuiltInDocumentProperties(wdPropertyWords)
    Documents(1).Close wdDoNotSaveChanges
    i = i + 1
Loop
Close
Beep
MsgBox "Conteggio terminato"
End Sub
Se vuoi fare un conteggio piů preciso dei caratteri
sostituisci la costante wdPropertyWords con
la costante wdPropertyCharacters
Vb.sw
=================================
Vuoi imparare a scrivere piů velocemente?
Allora vai su 
http://digilander.iol.it/quickeyboard
e scarica QuicKeyboard 2001, č Freeware
ICQ: 75621885
=================================

End Sub
Prima di tutto grazie per la risposta. 
Ho provato, ma quando lo eseguo mi da questo messaggio
Errore di compilazione:
Utilizzo non valido di property
inoltre evidenzia in giallo "Sub Conteggio()" e in blu
".BuiltInDocumentProperties".
Suggerimenti?
--
Ciao
Rob

Utilizzo non valido di property
Nel frattempo ho risolto: facendo un po' di copia e incolla dalla
guida di Ms Visual Basic ho modificato il tuo primo codice (quello per
il conteggio dei caratteri) ottenendo questo:
'Inizio codice
Sub ConteggioCaratteri()
Close
Open "c:\numcar.txt" For Output As #1
Close
Open "c:\filelist.txt" For Input As #1
Open "c:\numcar.txt" For Append As #2
i = 1
Do Until EOF(1)
    Application.StatusBar = "Elaborazione file " & i
    Line Input #1, nomefile
    Documents.Open FileName:="c:\prova\" & nomefile
    Set temp = Dialogs(wdDialogToolsWordCount)
    temp.Execute
    numWords = temp.Words
    Print #2, "c:\prova\" & nomefile, temp.Words
    Documents(1).Close (wdDoNotSaveChanges)
    i = i + 1
Loop
Close
Beep
MsgBox "Il conteggio dei caratteri di tutti i file č stato eseguito"
End Sub
'Fine codice
Pare che funzioni, anche se non ho la piů pallida idea di ciň che ho
fatto. :-)
Ciao
Robboh

 Rob
Print #2, "c:\prova\" & nomefile,
Documents(1).BuiltInDocumentProperties(wdPropertyWords)
devi mettere tutto su una riga (colpa del newreader)
Vb.sw
=================================
Vuoi imparare a scrivere più velocemente?
Allora vai su 
http://digilander.iol.it/quickeyboard
e scarica QuicKeyboard 2001, è Freeware
ICQ: 75621885
=================================

devi mettere tutto su una riga (colpa del newreader)
infatti adesso funziona, grazie
Ciao
Rob