Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Содержит текст, прикрепленный к фигуре, а также свойства и методы для работы с текстом.
Примечания
В следующих примерах описано, как выполнить следующие действия:
Верните текстовый диапазон в любой заданной фигуре.
Возврат текстового диапазона из выделенного фрагмента.
Верните определенные символы, слова, строки, предложения или абзацы из текстового диапазона.
Поиск и замена текста в текстовом диапазоне.
Вставка в текстовый диапазон текста, даты и времени или номера слайда.
Установите курсор в любом нужном текстовом диапазоне.
Пример
Используйте свойство TextRangeобъекта TextFrame , чтобы вернуть объект TextRange для любой указанной фигуры. Свойство Textиспользуется для возвращения строки текста в объекте TextRange . В следующем примере в myDocument добавляется прямоугольник и задается содержащийся в нем текст.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140) _
.TextFrame.TextRange.Text = "Here is some test text"
Так как свойство Text является свойством по умолчанию объекта TextRange , две следующие инструкции эквивалентны.
ActivePresentation.Slides(1).Shapes(1).TextFrame _
.TextRange.Text = "Here is some test text"
ActivePresentation.Slides(1).Shapes(1).TextFrame _
.TextRange = "Here is some test text"
Свойство HasTextFrameиспользуется для определения наличия текстового фрейма в фигуре, а свойство HasText— для определения наличия текста в текстовом фрейме.
Используйте свойство TextRange объекта Selection , чтобы вернуть выделенный текст. В следующем примере выделенный фрагмент копируется в буфер обмена.
ActiveWindow.Selection.TextRange.Copy
Чтобы вернуть часть текста объекта TextRange , используйте один из следующих методов: символы, строки, абзацы, бегуны, предложения или слова.
Для поиска и замены текста в текстовом диапазоне используйте методы поискаи замены.
Чтобы вставить символы в объект TextRange , используйте один из следующих методов: InsertAfter, InsertBefore, InsertDateTime, InsertSlideNumber или InsertSymbol.
Методы
Свойства
| Имя |
|---|
| ActionSettings |
| Application |
| BoundHeight |
| BoundLeft |
| BoundTop |
| BoundWidth |
| Count |
| Font |
| IndentLevel |
| LanguageID |
| Length |
| ParagraphFormat |
| Parent |
| Start |
| Text |
См. также
Справочник по объектной модели PowerPoint
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.