Word save as Fileformat

Jeg har ofte brug for at gamme indholdet af en wordfil som en batfil.
I øjeblikket kopierer jeg teksten via klippebordet over i et tomt Notepad dokument, som jeg så gemmer som en bat-fil.

Jeg har forsøgt mig med nedenstående makro, men kan ikke finde ud af hvad jeg skal sætte FileFormat til, hvis indholdet overhovedet ikke må ændres.
Jeg har skiftet alle danske tegn ud med de tilsvarende tegn fra skrifttypen Terminal efter nedenstående skema og det er disse tegn, der ikke må ændres af makroen.

if Tekst[x]='æ' then Tekst[x]:=#145;
    if Tekst[x]='Æ' then Tekst[x]:=#146;
    if Tekst[x]='ø' then Tekst[x]:=#155;
    if Tekst[x]='Ø' then Tekst[x]:=#157;
    if Tekst[x]='å' then Tekst[x]:=#134;
    if Tekst[x]='Å' then Tekst[x]:=#143;

Der er fx. problemer med at ’ bliver til '


Sub batfil()
'
' batfil Makro
' Makro indspillet 21-03-2008 af Niels Christian Andersen
'
Dim intResponse As Integer
Dim Message, Title, Default, BatFileName
Message = "Indtast et navn for batfilen"    ' Set prompt.
Title = "File save as.."    ' Set title.
Default = "Test"    ' Set default.
' Display message, title, and default value.
On Error GoTo Fejl
BatFileName = InputBox(Message, Title, Default)
BatFileName = BatFileName & ".bat"

ChangeFileOpenDirectory _
    "C:\Documents and Settings\Niels Christian\Skrivebord\"
ActiveDocument.SaveAs FileName:=BatFileName, FileFormat:=wdFormatText, _
    LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
    :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
    False, Encoding:=850, InsertLineBreaks:=False, AllowSubstitutions:=False, _
    LineEnding:=wdCRLF
intResponse = _
    MsgBox("Så er filen gemt på skrivebordet som " & BatFileName _
    & Chr(13) & Chr(10) & "Skal Word lukkes (ændringer gemmes ikke)?", vbYesNo)
If intResponse = vbYes Then Application.Quit _
    SaveChanges:=wdDoNotSaveChanges
Fejl:
End Sub