как програмно вставить во фрейм текст

Nezar / 17.12.2013, 22:17
Форум: 
Макросы и скрипты
Версия программы: 
16.4.0.1280 (sp4)

Собственно нужно программно вставить во фрейм определенный текст.
Или подскажите как программно преобразовать фрейм в текстовый фрейм
Спасибо!

Sancho / 17.12.2013, 22:50

В редакторе VBA есть замечательная вещь - Object Browser, в котором можно быстро найти ответы на все вопросы. А конвертнуть можно так Text.ConvertToParagraph()

Nezar / 18.12.2013, 00:25

пробовал уже (только без () т.к. с ними ругается)
ошибка
"объект неверного типа и не поддерживается при данной операции"
Pub

lic Sub Text()
    Dim s As Shape
    ActiveDocument.BeginCommandGroup "Text"
    For Each s In ActiveDocument.ActivePage.Shapes
        
    If s.Type = 3 Then
        s.Text.ConvertToParagraph
    End If
       Next s
    ActiveDocument.EndCommandGroup
End Sub
Sancho / 18.12.2013, 00:45

Nezar, а, мне почему то показалось что обычный текст во фрейм нужно.
Для кривой такой функции в ВБА вроде нету, по крайней мере я не помню такой. Но вообще можно через выделение и вызов функции через Automation.Invoke. Но опять же как потом туда вставить текст, я не пробовал, так что не знаю.

Nezar / 18.12.2013, 00:53

жаль (( вроде элементарная задача. в короле всего две кнопки нажать нужно. а программно - не получается.
может кто то еще подскажет

Nezar / 18.12.2013, 02:28

а как вызвать функцию через Automation.Invoke?
как узнать ее номер?

shark / 19.12.2013, 19:26

есть еще функция CreateParagraphTextWide

Nezar / 20.12.2013, 03:41

shark и как с помощью этой функции вставить текст в существующий контур??
...
задачу решил. спасибо Sancho за наводку!