Makroproplem

[Patric_S]

Hej!

Finns det någon som kan hjälpa mig med ett makro för Word.

Har ett antal word filer som skall sparas om till txt format. Problemet som jag inte kan lösa är att första dokumentet konverteras till *.txt och "sparas som" i rätt mapp.

Dokument nummer två konverteras till *.txt och "sparas som" i rätt map. Men med samma filnamn som föregående dokument. I Visual Basic står koden: ActiveDocument.SaveAs FileName:="förstadok.txt".

Hur ska koden se ut för att den skall spara dokumentet med samma namn som det öppnas med men då som .txt format

 

Patric

[MH]

Dim FilNamn As String

Dim OrdLangd As Long

'...

FilNamn = ActiveDocument.Name

OrdLangd = Len(FilNamn) - 3

FilNamn = Left(FilNamn, OrdLangd)

FilNamn = FilNamn & "txt"

ActiveDocument.SaveAs FileName:=FilNamn

 

[inlägget ändrat 2001-03-09 11:40:28 av MH]