title image


Smiley Re: wordstrings in eine excel tabelle uebernehmen
Damit wird der aktuelle Word-Dokument-Name in die txt-Datei "irgendwasspeichern.txt" gespeichert:



Public Sub irgendwasspeichern()

Dim WordNameDoku As String

WordNameDoku = ActiveDocument.Name



Open "C:\irgendwasspeichern.txt" For Output As #1

Write #1, WordNameDoku

Close #1

End Sub



Gruß Anke

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: