SAPфорум.RU: русскоязычный форум по продуктам SAP
Текущее время: Вс, июл 20 2025, 21:08

Просмотр нерешенных тем
Сообщения без ответов | Активные темы


Список форумов » Технические компоненты » Форум по программированию в SAP

Часовой пояс: UTC + 3 часа


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


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  Страница 1 из 1
  [ Сообщений: 14 ] 
  Для печати Пред. тема | След. тема -> 
Автор Сообщение
Ich Will
 Заголовок сообщения: OLE and Word
СообщениеДобавлено: Ср, авг 17 2005, 15:32 
Модератор
Модератор

Зарегистрирован:
Пт, ноя 12 2004, 11:40
Сообщения: 542
Откуда: Москва
Пол: Мужской
Подскажите пожалуйста как сделать вот это -
Code:
For Each c In ActiveDocument.Tables(1).Rows
    c.Cells(2).Width = 30
Next c


на ABAP OLE ?


Принять этот ответ
Вернуться к началу
 Профиль  
 
Ich Will
 Заголовок сообщения:
СообщениеДобавлено: Ср, авг 17 2005, 17:28 
Модератор
Модератор

Зарегистрирован:
Пт, ноя 12 2004, 11:40
Сообщения: 542
Откуда: Москва
Пол: Мужской
попробовал упростить...
Code:
*  Реализую вот это
*  ActiveDocument.Tables(1).Range.Cells(2).Range.InsertAfter "Cell "

......
......
  GET PROPERTY OF gs_word 'ActiveDocument' = gs_actdoc .

  GET PROPERTY OF gs_actdoc 'Tables(1)' = gs_table1 .

  GET PROPERTY OF gs_table1 'Range' = gs_range1.

  GET PROPERTY OF gs_range1 'Cells(2)' = gs_cell.

  GET PROPERTY OF gs_cell   'Range' = gs_range2.

  CALL METHOD OF gs_range2 'InsertAfter'
      EXPORTING
        #1 = 'Cell'.

  SET PROPERTY OF gs_word 'Visible' = '1'.



не работает ....
ошибку не выдает но и ворд не показывает хотя в процесс листе он висит.... :(


Принять этот ответ
Вернуться к началу
 Профиль  
 
MilAndAl1
 Заголовок сообщения:
СообщениеДобавлено: Чт, авг 18 2005, 05:21 
Гость
Не так быстро :)
Выражения типа 'Tables(1)' и 'Cells(2)' не проходят.

Code:
  GET PROPERTY OF gs_app 'ActiveDocument' = gs_actdoc.
  GET PROPERTY OF gs_actdoc 'Tables' = gs_table1 exporting #1 = 1.
  GET PROPERTY OF gs_table1 'Range' = gs_range1.
  GET PROPERTY OF gs_range1 'Cells'  = gs_cell exporting #1 = 2.
  GET PROPERTY OF gs_cell 'Range' = gs_range2.
  CALL METHOD OF gs_range2 'InsertAfter'
        EXPORTING
          #1 = 'Cell'.


Принять этот ответ
Вернуться к началу
  
 
Ich Will
 Заголовок сообщения:
СообщениеДобавлено: Чт, авг 18 2005, 09:09 
Модератор
Модератор

Зарегистрирован:
Пт, ноя 12 2004, 11:40
Сообщения: 542
Откуда: Москва
Пол: Мужской
Спасибо большое!!! Все работает! :)


Принять этот ответ
Вернуться к началу
 Профиль  
 
Ich Will
 Заголовок сообщения:
СообщениеДобавлено: Чт, авг 18 2005, 15:48 
Модератор
Модератор

Зарегистрирован:
Пт, ноя 12 2004, 11:40
Сообщения: 542
Откуда: Москва
Пол: Мужской
Продолжение темы...

пытаюсь создать и спозиционировать таблицу ...
Code:
GET PROPERTY OF gs_word        'ActiveDocument' = gs_actdoc.
  GET PROPERTY OF gs_actdoc      'Tables'         = gs_tables.

  CALL METHOD OF gs_actdoc 'Range' = gs_range
    EXPORTING
       #1 = start    " Start position
       #2 = end.     " End   position

* Добавляем таблицу в документ
  CALL METHOD OF gs_tables 'Add' = gs_table
     EXPORTING
       #1 = gs_range      "Handle for range entity
       #2 = p_row         "Number of rows
       #3 = p_column      "Number of columns
       #4 = 1
       #5 = 2.



Все получается если документ пустой .....
а если там текс есть какой-то в начале хотябы то табличка упрямо устанавливается на вторую строку сверху....


Принять этот ответ
Вернуться к началу
 Профиль  
 
Ich Will
 Заголовок сообщения:
СообщениеДобавлено: Чт, авг 18 2005, 17:27 
Модератор
Модератор

Зарегистрирован:
Пт, ноя 12 2004, 11:40
Сообщения: 542
Откуда: Москва
Пол: Мужской
Удалось сделать ....

Спасибо одной очень хорошей девушке за консультации.... ;)

Code:
  GET PROPERTY OF gs_word   'ActiveDocument' = gs_actdoc.
  GET PROPERTY OF gs_actdoc 'Tables'         = gs_tables.

  GET PROPERTY OF gs_actdoc 'Application'    = gs_application.
  GET PROPERTY OF gs_application 'Selection' = gs_selection.


* Selection.MoveDown Unit:=wdLine, Count:=35
  CALL METHOD OF gs_selection 'MoveDown'
      EXPORTING
         #1 = 5    " Unit:=wdLine
         #2 = 35.  " Count:=35 Это то место куда табличку вставляем


*  Set myRange = ActiveDocument.Range(
*      Start:= Selection.Start,
*      End  := Selection.End
*  )

  GET PROPERTY OF gs_selection 'Start' = gs_start.
  GET PROPERTY OF gs_selection 'End'   = gs_end.

  CALL METHOD OF gs_actdoc 'Range' = gs_range
    EXPORTING
       #1 = gs_start " Start position (Selection.Start)
       #2 = gs_end.  " End   position (Selection.End)

* Добавляем таблицу в документ
  CALL METHOD OF gs_tables 'Add' = gs_table
     EXPORTING
       #1 = gs_range      "Handle for range entity
       #2 = p_row         "Number of rows
       #3 = p_column      "Number of columns
       #4 = 1
       #5 = 2.


Принять этот ответ
Вернуться к началу
 Профиль  
 
creo
 Заголовок сообщения:
СообщениеДобавлено: Сб, май 06 2006, 11:12 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Пт, ноя 25 2005, 15:06
Сообщения: 143
Необходимо принудительно установить правильную фамилию и инициалы в Word'e (для контроля за исправлениями),
а не подскажете почему не работает такая конструкция:

ABAP:

Code:
   
        CREATE OBJECT gs_word 'WORD.APPLICATION'.

        SET PROPERTY OF gs_word 'Visible' = '1' .

        CALL METHOD OF gs_word 'Documents' = gs_documents.

        CALL METHOD OF gs_documents 'Open' = gs_newdoc
          EXPORTING #1 = file_name.

        CALL METHOD OF gs_word 'ActiveDocument' = gs_actdoc .

        GET PROPERTY OF gs_actdoc 'application' = gs_application.

        call method of gs_application 'UserName'
           exporting #1 = 'Иванов'.

        call method of gs_application 'UserInitials'
            exporting #1 = 'И.И.'.


VB:
Code:
    Application.UserName = "Иванов"
    Application.UserInitials = "И.И."


Принять этот ответ
Вернуться к началу
 Профиль  
 
creo
 Заголовок сообщения:
СообщениеДобавлено: Пн, май 29 2006, 17:06 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Пт, ноя 25 2005, 15:06
Сообщения: 143
Неужели никто не знает? Вроде элеменатрные свойства, а не ставятся...


Принять этот ответ
Вернуться к началу
 Профиль  
 
Parazit
 Заголовок сообщения:
СообщениеДобавлено: Пн, май 29 2006, 17:14 
Почетный гуру
Почетный гуру
Аватара пользователя

Зарегистрирован:
Чт, авг 19 2004, 17:37
Сообщения: 1962
Откуда: Москва
Пол: Мужской
Code:
   
        CALL METHOD OF gs_word 'ActiveDocument' = gs_actdoc .

        GET PROPERTY OF gs_actdoc 'application' = gs_application.

Замени GET PROPERTY на CALL METHOD по аналогии с верхней строкой


Принять этот ответ
Вернуться к началу
 Профиль  
 
creo
 Заголовок сообщения:
СообщениеДобавлено: Пн, май 29 2006, 17:46 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Пт, ноя 25 2005, 15:06
Сообщения: 143
Parazit написал:
Замени GET PROPERTY на CALL METHOD по аналогии с верхней строкой

Не помогло... :-(


Принять этот ответ
Вернуться к началу
 Профиль  
 
T
 Заголовок сообщения:
СообщениеДобавлено: Вт, май 30 2006, 09:16 
Почетный гуру
Почетный гуру
Аватара пользователя

Зарегистрирован:
Ср, май 04 2005, 16:29
Сообщения: 687
Откуда: Нижневартовск->Москва
Пол: Мужской
SET PROPERTY OF gs_application 'UserName' = 'Иванов'.
SET PROPERTY OF gs_application 'UserInitials' = 'И.И.'.


Принять этот ответ
Вернуться к началу
 Профиль  
 
creo
 Заголовок сообщения:
СообщениеДобавлено: Вт, май 30 2006, 13:20 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Пт, ноя 25 2005, 15:06
Сообщения: 143
T написал:
SET PROPERTY OF gs_application 'UserName' = 'Иванов'.
SET PROPERTY OF gs_application 'UserInitials' = 'И.И.'.

Большое спасибо! :D


Принять этот ответ
Вернуться к началу
 Профиль  
 
Rpl
 Заголовок сообщения: Re: OLE and Word
СообщениеДобавлено: Вт, апр 16 2013, 18:03 
Ассистент
Ассистент

Зарегистрирован:
Вт, сен 01 2009, 16:40
Сообщения: 37
Откуда: Киев
Пол: Мужской
Дабы не создавать новую тему спрошу в этой.

Не получается записать в word-файл по OLE, sy-subrc = 2.
Это мой первый опыт с OLE :oops:, строго не судите.
Пытаюсь перейти на строку №9 и вставить текст.

Что я не так делаю? Спасибо.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
Rpl
 Заголовок сообщения: Re: OLE and Word
СообщениеДобавлено: Пт, апр 19 2013, 10:03 
Ассистент
Ассистент

Зарегистрирован:
Вт, сен 01 2009, 16:40
Сообщения: 37
Откуда: Киев
Пол: Мужской
Разобрался)))


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  Страница 1 из 1
  [ Сообщений: 14 ] 

Список форумов » Технические компоненты » Форум по программированию в SAP

Часовой пояс: UTC + 3 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB

SAPфорум.RU © 2000-... Михаил Вершков

Логотип © 2006 Андрей Горшков
Основан 27 ноября 2000 года
По вопросам сотрудничества обращайтесь по адресу: sapboard@sapforum.ru