Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа со стилями и абзацами / 5 сообщений из 5, страница 1 из 1
03.01.2006, 12:42:35
    #33467298
BluntMan111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со стилями и абзацами
подскажите, пожалуйста!!!!
не знаю как решить проблему с выравниванием абзацев в ворде.
натолкните на мысль....
...
Рейтинг: 0 / 0
03.01.2006, 13:32:55
    #33467323
Tachkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со стилями и абзацами
А в чем проблема-то?
...
Рейтинг: 0 / 0
03.01.2006, 13:57:40
    #33467340
BluntMan111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со стилями и абзацами
нужно текст определенного стиля выравнять или по центру, или по пр краю, но не по ширине...
вот не знаю как тут решить эту проблему...
...
Рейтинг: 0 / 0
03.01.2006, 14:52:28
    #33467385
Tachkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со стилями и абзацами
Я плохо знаю VBA, но по мне дак это должно выглядеть примерно так:

Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
'выделяем параграф

If (Selection.Font.Bold = True) And (Selection.Font.Italic = True) Then
'проверяем стиль

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'центруем текст

End If
Selection.MoveDown Unit:=wdParagraph, Count:=1
'переходим к следующему параграфу

Repeat ...

Может можно проще, не знаю.
...
Рейтинг: 0 / 0
03.01.2006, 16:06:48
    #33467447
BluntMan111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со стилями и абзацами
спасиба, что натолкнул на эту идею. а вот этот вариант будет по проще:

For Each m In ActiveDocument.Paragraphs
With m
If .Style = "Стиль" Then
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End If
End With
Next m

вроде работает, респект тебе и спасиба еще разок!!!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа со стилями и абзацами / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]