Hallo
Ik zou graag een selectie uit Excel naar Word kopieëren, plakken als "niet opgemaakte tekst" en dan opslaan als een .txt bestand. De bestandsnaam moet het resultaat van een Sub zijn. Hoe noteer ik dit?
Kan er mij iemand helpen aub.
Sub test()
Dim wdApp As Word.Application
Dim docNew As Word.Document
Set wdApp = New Word.Application
Set docNew = Word.Documents.Add
ThisWorkbook.Sheets("ww4 deurblad").Range("A1:A102").Copy
wdApp.Application.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
activedocument.SaveAs "C:\Documents and Settings\drafab\Bureaublad\Bart\resultaat.txt"
wdApp.Quit
End Sub
Ik zou graag een selectie uit Excel naar Word kopieëren, plakken als "niet opgemaakte tekst" en dan opslaan als een .txt bestand. De bestandsnaam moet het resultaat van een Sub zijn. Hoe noteer ik dit?
Kan er mij iemand helpen aub.
Sub test()
Dim wdApp As Word.Application
Dim docNew As Word.Document
Set wdApp = New Word.Application
Set docNew = Word.Documents.Add
ThisWorkbook.Sheets("ww4 deurblad").Range("A1:A102").Copy
wdApp.Application.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
activedocument.SaveAs "C:\Documents and Settings\drafab\Bureaublad\Bart\resultaat.txt"
wdApp.Quit
End Sub
