how to "automatic" way to transform the .DOC files to .RTF
richtext text_conversion

>I need to import into Director text members, 200 word documents (Word
>97). Also change the tipo.
>Do you know any "automatic" way to transform the .DOC files to .RTF or
>something else?
>Thanks in advance for your help. Sorry for the Off Topic question.
>Regards. Maximo Pieretti.


Word comes with VBA  which lets you automate quite a lot. 
The two functions below iterate through all the files of the current directory,
open the DOC and save it as RTF. (Actually, mafile.doc will be saved as myfile.doc.rtf. 
So there is still something left to improve;)

record a new macro in word, just something to start with.
open the macro edit window and choose editing the new macro.
select all the recorded and replace it with the 2 functions below.
Test. Save. 

Sub SaveAllDocInCurrDirAsRtf ()
Dim Pfad, datei
Pfad = CurDir
datei = Dir(Pfad & "\*.Doc")
While datei <> ""
  openDocSAveRtf (datei)
  datei = Dir()

End Sub

Sub openDocSAveRtf(datei)
    Documents.Open FileName:=datei, ConfirmConversions:=False _
        , ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    ActiveDocument.SaveAs FileName:=datei & ".rtf", FileFormat:= _
        wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
End Sub

Hope it helps

Home shock + cgi Bits 'n pieces Director Lingo Shocklets Contact