Текущее время: Пн, июл 07 2025, 14:12

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


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


ВНИМАНИЕ!

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



Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: обтекание текстом в Word
СообщениеДобавлено: Вт, май 23 2006, 23:53 
Гость
Создаем вордовский документ, вставляем туда рисунок, какой-то текст. А как можно сделать «обтекание текстом»? Кроме того, что предложить пользователю ручками проделывать эту операцию.


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения: Re: обтекание текстом в Word
СообщениеДобавлено: Ср, май 24 2006, 08:02 
Младший специалист
Младший специалист

Зарегистрирован:
Пн, сен 19 2005, 08:33
Сообщения: 56
Откуда: Воронеж
Женечка написал(а):
Создаем вордовский документ, вставляем туда рисунок, какой-то текст. А как можно сделать «обтекание текстом»? Кроме того, что предложить пользователю ручками проделывать эту операцию.

Для первого рисунка в активном документе
ActiveDocument.Shapes(1).Select
Selection.ShapeRange.WrapFormat.Type = WdWrapType, где WdWrapType (
wdWrapInline = 7,
wdWrapNone = 3,
wdWrapSquare = 0,
wdWrapThrough = 2,
wdWrapTight = 1,
wdWrapTopBottom = 4)

_________________
4.0B


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: обтекание текстом в Word
СообщениеДобавлено: Ср, май 24 2006, 09:16 
Гость
const написал(а):
Женечка написал(а):
Создаем вордовский документ, вставляем туда рисунок, какой-то текст. А как можно сделать «обтекание текстом»? Кроме того, что предложить пользователю ручками проделывать эту операцию.

Для первого рисунка в активном документе
ActiveDocument.Shapes(1).Select
Selection.ShapeRange.WrapFormat.Type = WdWrapType, где WdWrapType (
wdWrapInline = 7,
wdWrapNone = 3,
wdWrapSquare = 0,
wdWrapThrough = 2,
wdWrapTight = 1,
wdWrapTopBottom = 4)



а как это выглядит в АБАПе?

изначально мне не совсем понятно как сделать

ActiveDocument.Shapes(1).Select

именно,чтобы первый объект.


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения: Re: обтекание текстом в Word  Тема решена
СообщениеДобавлено: Ср, май 24 2006, 09:31 
Младший специалист
Младший специалист

Зарегистрирован:
Пн, сен 19 2005, 08:33
Сообщения: 56
Откуда: Воронеж
Женечка написал(а):


а как это выглядит в АБАПе?

изначально мне не совсем понятно как сделать

ActiveDocument.Shapes(1).Select

именно,чтобы первый объект.

Code:
INCLUDE OLE2INCL.
DATA: word TYPE OLE2_OBJECT,
             Shapes TYPE OLE2_OBJECT.
.......

CREATE OBJECT word 'Word.Application'.
.......

CALL METHOD OF word 'ActiveDocument' = ad.
CALL METHOD OF ad 'Shapes' = Shapes
             EXPORTING #1 = 1.
CALL METHOD OF Shapes 'Select'.
......

_________________
4.0B


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: обтекание текстом в Word
СообщениеДобавлено: Ср, май 24 2006, 10:07 
Гость
const написал(а):
Женечка написал(а):


а как это выглядит в АБАПе?

изначально мне не совсем понятно как сделать

ActiveDocument.Shapes(1).Select

именно,чтобы первый объект.

Code:
INCLUDE OLE2INCL.
DATA: word TYPE OLE2_OBJECT,
             Shapes TYPE OLE2_OBJECT.
.......

CREATE OBJECT word 'Word.Application'.
.......

CALL METHOD OF word 'ActiveDocument' = ad.
CALL METHOD OF ad 'Shapes' = Shapes
             EXPORTING #1 = 1.
CALL METHOD OF Shapes 'Select'.
......


хорошо, у меня видимо предыдущий этап не получается, это когда рисунок вставлен, тут как раз все нормально, а потом нужно изменить размер.

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
здесь все ок, типа выделился

Selection.InlineShapes(1).Height = 63.8
а вот здесь заметно хуже.
т.е. я делаю:

data: InlineShapes TYPE ole2_object.

GET PROPERTY OF selection 'Inlineshapes' = InlineShapes.
CALL METHOD OF InlineShapes 'Addpicture' = rc
EXPORTING #1 =
LOC_PATH_foto
#2 = 0
#3 = 1.

а потом нужно указание, что дело имеем с первым объектом:

CALL METHOD OF InlineShapes 'InlineShapes' = rc
EXPORTING #1 = 1.

GET PROPERTY OF InlineShapes 'Height' = Height.

CALL METHOD OF Height 'Execute' = rc
EXPORTING #1 = '63'.

где я делаю что-то не так?


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср, май 24 2006, 13:27 
Младший специалист
Младший специалист

Зарегистрирован:
Пн, сен 19 2005, 08:33
Сообщения: 56
Откуда: Воронеж
Женечка, вот кусок программы, которая создает новый документ, печатает текст, вставляет в него рисунок, изменяет его размеры и свойство "обтекание текстом".

Code:
INCLUDE OLE2INCL.
DATA: word TYPE OLE2_OBJECT,
      DOC TYPE OLE2_OBJECT,
      AD TYPE OLE2_OBJECT,
      IS TYPE OLE2_OBJECT,
      WF TYPE OLE2_OBJECT,
      SEL TYPE OLE2_OBJECT,
      SHAPES TYPE OLE2_OBJECT.

  CREATE OBJECT WORD 'Word.Application'.
  SET PROPERTY OF WORD 'visible' = 1.
  CALL METHOD OF WORD 'Documents' = DOC.
  CALL METHOD OF DOC 'Add'.
  CALL METHOD OF WORD 'ActiveDocument' = AD.
  CALL METHOD OF WORD 'Selection' = SEL.
  CALL METHOD OF SEL 'TypeText'
    EXPORTING #1 = 'Рис. 1. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'.
  CALL METHOD OF AD 'InlineShapes' = IS.
  CALL METHOD OF IS 'AddPicture'
    EXPORTING #1 = 'c:\xxx.jpg'
              #2 = 0
              #3 = 1.
  CALL METHOD OF AD 'InlineShapes' = IS
    EXPORTING #1 = 1.
  SET PROPERTY OF IS 'Height' = 100.
  SET PROPERTY OF IS 'Width' = 100.
  CALL METHOD OF IS 'ConvertToShape'.
  CALL METHOD OF AD 'Shapes' = SHAPES
    EXPORTING #1 = 1.
  CALL METHOD OF SHAPES 'WrapFormat' = WF.
  SET PROPERTY OF WF 'Type' = 5.
  FREE OBJECT SHAPES.
  FREE OBJECT SEL.
  FREE OBJECT WF.
  FREE OBJECT AD.
  FREE OBJECT IS.
  FREE OBJECT DOC.
  FREE OBJECT WORD.

_________________
4.0B


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

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


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

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


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

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