[VB]unire 2 foglio word

[cesco]

Ciao a tutti, vorrei sapere come è possibile unire 2 foglio word in uno, accorpare il primo foglio word con l'altro....Grazie anticipatamente..

[Boolean]

Copia e incolla?

Boolean

[cesco]

Ehm si.....può essere una soluzione.....se sai come se fa da codice...grazie.....

[Boolean]

Stai usando VB6, VB.Net o VBA?

Boolean

[LeleFT]

Originariamente inviato da Boolean
Stai usando VB6, VB.Net o VBA?

Boolean

Esatto... versione obbligatoria... anche nel titolo.


Ciao.

[cesco]

Scusate sto usando Visual basic 6

[Boolean]

Dim oWord As Object
Dim oSrcDoc As Object
Dim oDstDoc As Object

Set oWord = CreateObject("Word.Application")
Set oSrcDoc = oWord.Documents.Open("C:\DocumentoOrigine.Doc")
Set oDstDoc = oWord.Documents.Open("C:\DocumentoDestinazione.Doc")

oSrcDoc.Select
oWord.Selection.Copy

oDstDoc.Activate
oWord.Selection.EndKey wdStory
oWord.Selection.TypeParagraph
oWord.Selection.Paste

oDstDoc.Close (True)
oSrcDoc.Close (False)
oWord.Quit

Set oDstDoc = Nothing
Set oSrcDoc = Nothing
Set oWord = Nothing

Avresti potuto aiutarti registrando delle macro in Word, e adattando il codice relativamente agli oggetti istanziati da codice VB6.

Boolean

[cesco]

Grazie, lo provo subito...grazie di nuovo