Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.03.2017, 19:55   #1
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
Восклицание Форматирование текста в текстовом поле (надписи)

Есть в документе оч.много текстовых полей (надписей). Нужно в каждом из них изменить шрифт и размер текста.
Направьте в нужное русло пожалуйста.
На скорую руку пытался такое состряпать, но не работает, матерится на неверные функции.

Код:
Sub Макрос2()
    For Each Shapes In ActiveDocument
        ActiveDocument.Shapes.TextFrame.TextRange.Font.Name = "Arial"
        ActiveDocument.Shapes.TextFrame.TextRange.Font.Size = 16
    Next
End Sub
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах
cent вне форума Ответить с цитированием
Старый 19.03.2017, 20:02   #2
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

по крайней мере(без проверки)
Код:
Sub Макрос2()
dim sh as shape
    For Each Sh In ActiveDocument.shapes
        sh.TextFrame.TextRange.Font.Name = "Arial"
        sh.TextFrame.TextRange.Font.Size = 16
    Next sh
End Sub
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 19.03.2017, 20:09   #3
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
По умолчанию

Цитата:
Сообщение от shanemac51 Посмотреть сообщение
по крайней мере(без проверки)
Код:
Sub Макрос2()
dim sh as shape
    For Each Sh In ActiveDocument.shapes
        sh.TextFrame.TextRange.Font.Name = "Arial"
        sh.TextFrame.TextRange.Font.Size = 16
    Next sh
End Sub
Спасибо! Это то, что нужно.
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах

Последний раз редактировалось cent; 19.03.2017 в 20:28.
cent вне форума Ответить с цитированием
Старый 19.03.2017, 20:38   #4
cent
Пользователь
 
Аватар для cent
 
Регистрация: 26.12.2008
Сообщений: 73
По умолчанию

Поторопился.
Обычные текстовые поля форматирует, а вот необычные не хочет.
Мои необычные находятся в ГОСТовских форматах.
И там организованы как вложенные текстовые поля.
Как быть в таком случае? Как в них форматировать текст?


http://prntscr.com/elwnr2

Точнее, как я понял, в документе есть и другие фигуры (не только текстовые поля), и вот к ним неприменимы методы работы с вложенным текстом, т.к. он его не могут содержать.
Т.е. нужно отфильтровать из всех фигур только "текстовые поля".
Вложения
Тип файла: zip Doc1.zip (69.6 Кб, 18 просмотров)
Четко сформулированная задача - половина решения!
<= Спасибо оставляем в отзывах

Последний раз редактировалось cent; 19.03.2017 в 21:02.
cent вне форума Ответить с цитированием
Старый 20.03.2017, 06:39   #5
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

попробуйте
Код:
Sub w170319_23()
Dim sh As Shape
    For Each sh In ActiveDocument.Shapes
    If sh.TextFrame.HasText Then
        sh.TextFrame.TextRange.Font.Name = "Arial"
        sh.TextFrame.TextRange.Font.Size = 16
        End If
    Next sh
End Sub
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
изменение размера объекта в текстовом поле !Katrin C# (си шарп) 0 08.11.2012 14:31
Форматирование в текстовом редакторе в Дельфи Нам Руслан Общие вопросы Delphi 6 13.10.2011 18:23
Как заменить слово в текстовом поле. vladtr SQL, базы данных 2 19.04.2010 09:46
Форматирование текста в текстовом редакторе Delphi2009 Помощь студентам 0 06.05.2009 14:05