| 
 | |||||||
| 
 | 
|  | 
|  | 
|  | Strumenti | 
|  20-03-2003, 18:26 | #1 | 
| Member Iscritto dal: Oct 2002 
					Messaggi: 205
				 | 
				
				WORD: DOMANDA DIFFICILE
			 
		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 | 
|   |   | 
|  20-03-2003, 20:48 | #2 | 
| Senior Member Iscritto dal: Feb 2001 Città: Italia 
					Messaggi: 608
				 | 
				
				Non dovrebbe essere molto complesso...
			 
		con poche linee di VBA o vbScript dovresti riuscire senza troppi problemi. BiG | 
|   |   | 
|  21-03-2003, 18:11 | #3 | 
| Member Iscritto dal: Oct 2002 
					Messaggi: 205
				 | 
		E' che non conosco i due linguaggi. Sapresti darmi delle dritte su dove/come imparare le basi per risolvere il problema? Grazie | 
|   |   | 
|  23-03-2003, 11:36 | #4 | 
| Senior Member Iscritto dal: Feb 2001 Città: Italia 
					Messaggi: 608
				 | 
				
				Non è completo ma dovrebbe essere...
			 
		... 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 | 
|   |   | 
|   | 
| Strumenti | |
| 
 | 
 | 
Tutti gli orari sono GMT +1. Ora sono le: 20:25.









 
		 
		 
		 
		





 
  
 



 
                        
                        










