Изменить имя шаблона

Сашок

Code:

FORM changeDocumentName.

  DATA: active_document TYPE ole2_object,
        rc TYPE i,
        docName(80),
        orderDate(10),
        orderNumber(10).

  GET PROPERTY OF wordApp 'ActiveDocument' = active_document.
  IF active_document IS INITIAL.
    data mText(255).
    concatenate 'FORM changeDocumentName: ['
                'get property of word.ActiveDocument]'
    into mText.
*    message w000 with mText.
  ENDIF.

  concatenate 'численность сотрудников на' sy-datum into docName
              separated by space.

  WRITE: / docName.
  CALL METHOD OF active_document 'SaveAs'
    exporting #1 = docName.
  IF sy-subrc NE 0.
    clear mText.
    concatenate 'FORM changeDocumentName: ['
                'call method of active_document->PrintOut]'
    into mText.
*    message w000 with mText.
  ENDIF.

  FREE OBJECT active_document.

ENDFORM.                    " changeDocumentName

этой процедурой пытаюсь изменить имя шаблона (файл word) загруженный oaor. Но при запуске документ открываеться с именем Документ 2.doc

Может у кого нибудь будут идеи?

Vitalka

Я обычно делаю так:

CALL METHOD OF app_word 'Documents' = docs.
CALL METHOD OF docs 'Open' = doc
EXPORTING #1 = p_tpl_path.

IF sy-subrc <> 0 .
MESSAGE i000(clhp) WITH 'Документ не найдет'.
EXIT.
ENDIF.
inc = inc + 1.
CONCATENATE templ_name '_' inc INTO name_word.
CALL METHOD OF doc 'SaveAs' EXPORTING #1 = name_word.

name_word - имя по которым ты хочешь сохранить шаблон

vga

Сашок написал(а):

Code:

  concatenate 'численность сотрудников на' sy-datum into docName
              separated by space.

Документ сохраняете, а пишете, что он открывается. Не понятненько.

Может для начала имя docName напишите попроще и английскими буквами, без concatenate. Например: "em_count.doc".

Сашок

Проверил в последнюю очередь, а как оказалось действительно грамотный совет! Что то ему с concatenate не нравиться.
Спасибо!

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

Изменить имя шаблона

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