обтекание текстом в Word

Женечка

Создаем вордовский документ, вставляем туда рисунок, какой-то текст. А как можно сделать «обтекание текстом»? Кроме того, что предложить пользователю ручками проделывать эту операцию.

const

Женечка написал(а):

Создаем вордовский документ, вставляем туда рисунок, какой-то текст. А как можно сделать «обтекание текстом»? Кроме того, что предложить пользователю ручками проделывать эту операцию.

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

Женечка

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

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

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'.
......

Женечка

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'.

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

const

Женечка, вот кусок программы, которая создает новый документ, печатает текст, вставляет в него рисунок, изменяет его размеры и свойство "обтекание текстом".

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.

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

обтекание текстом в Word

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