PDA

View Full Version : WORD: DOMANDA DIFFICILE


acideecy
20-03-2003, 17:26
Esiste un modo per selezionare ad es. 20 file di word e unirli in un file unico? (senza fare il copia/incolla da file a file)
Grazie

Big
20-03-2003, 19:48
con poche linee di VBA o vbScript dovresti riuscire senza troppi problemi.

BiG

acideecy
21-03-2003, 17:11
E' che non conosco i due linguaggi. Sapresti darmi delle dritte su dove/come imparare le basi per risolvere il problema?
Grazie

Big
23-03-2003, 10:36
... un buon punto di partenza

Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 23/03/2003 da Andrea Biglieri
'
Dim pluto As Document
Set pippo = Documents.Add(DocumentType:=wdNewBlankDocument)
Set pluto = Documents.Open(FileName:="""A seguito della Vostra inserzione.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto)
Selection.WholeStory
Selection.Copy

Windows(pippo).Activate

Selection.PasteAndFormat (wdPasteDefault)
pluto.Close (False)
End Sub

Se cerchi MAro nell'help di word trovi tutto quello che ti server

BiG