|
|
|
Работа со стилями и абзацами
|
|||
|---|---|---|---|
|
#18+
подскажите, пожалуйста!!!! не знаю как решить проблему с выравниванием абзацев в ворде. натолкните на мысль.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.01.2006, 12:42:35 |
|
||
|
Работа со стилями и абзацами
|
|||
|---|---|---|---|
|
#18+
А в чем проблема-то? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.01.2006, 13:32:55 |
|
||
|
Работа со стилями и абзацами
|
|||
|---|---|---|---|
|
#18+
нужно текст определенного стиля выравнять или по центру, или по пр краю, но не по ширине... вот не знаю как тут решить эту проблему... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.01.2006, 13:57:40 |
|
||
|
Работа со стилями и абзацами
|
|||
|---|---|---|---|
|
#18+
Я плохо знаю 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 ... Может можно проще, не знаю. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.01.2006, 14:52:28 |
|
||
|
Работа со стилями и абзацами
|
|||
|---|---|---|---|
|
#18+
спасиба, что натолкнул на эту идею. а вот этот вариант будет по проще: For Each m In ActiveDocument.Paragraphs With m If .Style = "Стиль" Then Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter End If End With Next m вроде работает, респект тебе и спасиба еще разок!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.01.2006, 16:06:48 |
|
||
|
|
start [/forum/topic.php?desktop=1&fid=61&tid=2185396]: |
0ms |
get settings: |
6ms |
get forum list: |
8ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
37ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
23ms |
get tp. blocked users: |
1ms |
| others: | 233ms |
| total: | 320ms |
| 0 / 0 |
