title image


Smiley Re: Wie bekomme ich Zeilen aus einer txt-Datei in das Worddokument hinein?
Hallo,



Du musst an die Variable (im Beispiel Textzeile) eine Absatzmarke 'anhängen')

Versuchs so.

Sub TestZ()

Dim Textzeile

Close

'

Open "D:\Neu.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, Textzeile

Selection.TypeText Text:=Textzeile & vbNewLine ' oder & Chr(13)

Loop

'

Close #1

End Sub      Hubert







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: