Excel + сохранине Word документа

[Tirendus]

Всем привет.

В ходе работы над небольшим макросом возникла проблема, связанная с сохранением открытого через Excel документа Word.

    ' Вот так открываю
    Dim wd As Object
    Set wd = CreateObject("Word.Application")
    wd.documents.Open ("c:\list.doc")
    wd.Visible = True
    ' Вот так сохраняю
    wd.activedocument.SaveAs filename:="d:\list.doc", FileFormat:=wdFormatDocument _
        , LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

Пользуюсь Office 2007, при попытке открыть сохраненный Word документ, три раза выскакивает ошибка о том, что конвертер mswrd632.wpc невозможно запустить. Если изменяю расширение на .docx, всё открывется идеально, но нужно сохранить документ именно в .doc

Посоветуйте как это правильно сделать, пожалуйста.

[EducatedFool]

По идее, всё верно.
Но попробуй ещё так:

Sub test()
    Dim wd As Object: Set wd = CreateObject("Word.Application")    ' Вот так открываю
    wd.Visible = True
    With wd.documents.Open("c:\list.doc")
        wdFormatDocument = 0
        .SaveAs Filename:="d:\list.doc", FileFormat:=wdFormatDocument    ' Вот так сохраняю
        .Close
    End With
End Sub

Проблема в том, что по умолчанию Word2007 сохраняет файл в своём формате: wdFormatDocumentDefault = 16

Поскольку в твоём коде переменная wdFormatDocument была не определена, по идее, должно было идти сохранение в формате Word2003:

wdFormatDocument = 0
wdFormatDocument97 = 0

Почему макрос сохраняет в формает 2007 - непонятно.

Список констант и их значений есть в MSDN.

[Tirendus]

Большое спасибо
wdFormatDocument = 0 работает идеально