Поделиться через

Объект TextRange (PowerPoint)

  • Статья

Содержит текст, присоединенный к фигуре, а также свойства и методы для управления текстом.

Замечания

В следующих примерах описано, как:

  • Возвращает диапазон текста в любой указанной фигуре.

  • Возвращает текстовый диапазон из выделенного фрагмента.

  • Возвращает определенные символы, слова, строки, предложения или абзацы из текстового диапазона.

  • Поиск и замена текста в текстовом диапазоне.

  • Вставьте текст, дату и время или номер слайда в текстовый диапазон.

  • Поместите курсор в нужное место в текстовом диапазоне.

Пример

Используйте свойство 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.

Методы

Имя
AddPeriods
ChangeCase
Characters
Copy
Cut
Delete
Find
InsertAfter
InsertBefore
InsertDateTime
InsertSlideNumber
InsertSymbol
Lines
LtrRun
Paragraphs
Paste
PasteSpecial
RemovePeriods
Replace
RotatedBounds
RtlRun
Runs
Select
Sentences
TrimText
Words

Свойства

Имя
ActionSettings
Application
BoundHeight
BoundLeft
BoundTop
BoundWidth
Count
Font
IndentLevel
LanguageID
Length
ParagraphFormat
Parent
Start
Text

См. также

Справочник по объектной модели PowerPoint

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.