Saving to Mac text

[cakass]

I need, for production reasons, to save from Word 2003 to Western
European (Mac)text format. This is possible from the Save As dialogue
box but I cannot figure a way of doing it in a macro.

If I simply record the macro it records the SAVEAS format:= as
straight Windows text, which produces the wrong quote and double-quote
symbols on the Mac.

The Visual Basic Help is unhelpful on the point as it simply says the
formats are listed in the SaveAs menu, and these are useless for the
format:= "xxxx" line.

I got a listing of filters using the sample FileConverter code but
this does not include Western European (Mac).

Any suggestions?

 

[Helmut Weber]

Hi,
if I record such a macro, I get,
FileFormat:=105
Word 5.1 for Mactintosh.
HTH
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[Helmut Weber]

Hi again,
hmm..., think I misunderstood.
In Word XP I can't find an option to save as
Western European (Mac)text. But if a translation table
Word - MacText would help you, I could supply one,
at least partially, as I am using a german version.
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

 

[cakass]

Hi,
if I record such a macro, I get,
FileFormat:=105
Word 5.1 for Mactintosh.
HTH
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

Thanks for that. Unfortunately I need it to be in text format. The mac
uses different symbols for quotes and double quotes.

 

[cakass]

Hi again,
hmm..., think I misunderstood.
In Word XP I can't find an option to save as
Western European (Mac)text. But if a translation table
Word - MacText would help you, I could supply one,
at least partially, as I am using a german version.
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

Helmut

Thanks again for your help. I know the translation needed from looking
at a hex dump but I guess that if I change the symbols it will revert
to standard text when saved. As the correct filter option is in the
SaveAs dialoque box, there must surely be a VB line that can invoke
it.

 

[Klaus Linke]

Hi Clive,

Strange. For me the macro recorder produced the correct code:

ActiveDocument.SaveAs FileName:="Test.txt", _
FileFormat:=wdFormatText, _
...
Encoding:=10000, InsertLineBreaks:=False, _
AllowSubstitutions:= False, LineEnding:=wdCROnly

In the object browser I can verify that msoEncodingMacRoman = 10000.

Regards,
Klaus

 

[cakass]

I have tried encoding := 10000 but it does not give the correct
format. That is, it does not give the same format as I get when I save
as Western European(Mac) manually via the dialogue box.

 

[Klaus Linke]

I have tried encoding := 10000 but it does not give the correct
format. That is, it does not give the same format as I get when I save
as Western European(Mac) manually via the dialogue box.

Hi Clive,

It does for me ...
Can you post your code?

Regards,
Klaus