Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Содержит текст, присоединенный к фигуре, а также свойства и методы для управления текстом.
Замечания
В следующих примерах описано, как:
Возвращает диапазон текста в любой указанной фигуре.
Возвращает текстовый диапазон из выделенного фрагмента.
Возвращает определенные символы, слова, строки, предложения или абзацы из текстового диапазона.
Поиск и замена текста в текстовом диапазоне.
Вставьте текст, дату и время или номер слайда в текстовый диапазон.
Поместите курсор в нужное место в текстовом диапазоне.
Пример
Используйте свойство 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 и обратная связь.