Сохранение файла формата .doc в файл формата .xml

MadSpirit

Задача следующая: на компе есть файл 'E:\work\123.doc' с текстом и картинками, его надо программно сохранить в формате .xml, так же как это сделает MS Word, если выбрать Файл->Сохранить как->XML-документ Word (*.xml).
Пытаюсь сделать это через ole2 следующим образом:

Code:

REPORT  zmb_test5.
TYPE-POOLS: ole2.
DATA: gs_word        TYPE ole2_object.

START-OF-SELECTION.
  CREATE OBJECT gs_word 'WORD.BASIC'.
  CALL METHOD OF gs_word 'FILEOPEN'
    EXPORTING
    #1 = 'E:\work\123.doc'.
  CALL METHOD OF gs_word 'FILESAVEAS'
    EXPORTING
    #1 = 'E:\work\123.xml'.

Файл сохраняется, но внутри него не пойми что.
Еще был вариант сохранения через DOI, методом:

Code:

      CALL METHOD document->save_as
        EXPORTING
          file_name = 'E:\work\123.xml'
*          prompt_user = 'X'.

Тут тоже проблема. Если оставить строку "file_name = 'E:\work\123.xml'", сохраняет так же как и ole. А если выбрать "prompt_user = 'X'" - выскакивает диалоговое окно MS Word, с предложением пользователю выбрать тип сохраняемого файла, а нужно чтобы это происходило без участия пользователя.

Возможно есть другие способы выполнить эту задачу, буду признателен любым толковым предложениям. Заранее спасибо!

vahtang

Попробуйте так:

Code:

  CALL METHOD OF gs_word 'FILESAVEAS'
    EXPORTING
    #1 = 'E:\work\123.xml'
    #2 = 11.

Можно записать макрос со своими действиями в ворде, посмотреть его код и реализовывать то же самое через абап.

sy-uname

MadSpirit написал(а):

Задача следующая: на компе есть файл 'E:\work\123.doc' с текстом и картинками, его надо программно сохранить в формате .xml, так же как это сделает MS Word, если выбрать Файл->Сохранить как->XML-документ Word (*.xml).
Пытаюсь сделать это через ole2 следующим образом:

Code:

REPORT  zmb_test5.
TYPE-POOLS: ole2.
DATA: gs_word        TYPE ole2_object.

START-OF-SELECTION.
  CREATE OBJECT gs_word 'WORD.BASIC'.
  CALL METHOD OF gs_word 'FILEOPEN'
    EXPORTING
    #1 = 'E:\work\123.doc'.
  CALL METHOD OF gs_word 'FILESAVEAS'
    EXPORTING
    #1 = 'E:\work\123.xml'.

Файл сохраняется, но внутри него не пойми что.
...

Так и укажите правильный формат в параметрах метода SaveAs

MadSpirit

vahtang написал(а):

Попробуйте так:

Code:

  CALL METHOD OF gs_word 'FILESAVEAS'
    EXPORTING
    #1 = 'E:\work\123.xml'
    #2 = 11.

Можно записать макрос со своими действиями в ворде, посмотреть его код и реализовывать то же самое через абап.

Спасибо огромное, заработало!
Скажи, пожалуйста, как ты узнал код для формата сохранения

Цитата:

#2 = 11

?

Pavel Berezin

в Ворде открываешь VBA-редактор. В нём есть браузер объектов (клавиша F2 помоему) - там можно глядеть, какие значения имеют константы ворда. Ну или тупо в VBA-отладчике глянуть.

Правила форума

Сохранение файла формата .doc в файл формата .xml

Кто сейчас на конференции