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

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


Список форумов » Технические компоненты » Форум по программированию в 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 часа


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

Сейчас этот форум просматривают: Google [Bot]

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

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

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

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