ParagraphFormat

[Sweety]

Никак не могу разобраться, записала макрос в Word, чтобы выставлялась верхняя граница применительно к абзацу(Формат/Границы и заливки/применительно к абзацу, верхняя граница). Пока записываю все выполняется. Когда запускаю, ничего не происходит.
Вот получившийся код:

With Selection.ParagraphFormat
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders
.DistanceFromTop = 0
.Shadow = False
End With
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
End With

Помогите разобраться!!!

[alibek]

А если выделить весь абзац и запустить макрос?

[Sweety]

Да я выделяла, но к сожалению, и в этом случае ничего не происходит

[uhm]

Что-то странное... Я попробовал, похоже, что на то, показывается эта линия, или нет, влияет стиль предыдущего абзаца. Т. е. ситуация следующая: если абзац1 и абзац2 идут друг за другом и у абзаца1 стиль "Обычный", то при выполнении макроса на абзаце2 его стиль становится "Обычный + Граница: Сверху..." и линия показывается. Если потом выполнить макрос на абзаце1, у него стиль становится тем же, стиль абзаца2 не меняется, но линия показывается только над первым абзацем...

[GSerg]

Да нет, работает...

[uhm]

Word 2003. Те же симптомы при выполнении действий вручную: устанавливаем границу у второго абзаца - есть граница. Устанавливаем у первого - над первым она появляется, над вторым исчезает. Заходим в границы второго абзаца - граница там показана, если ее убрать, исчезнет и у первого, и у второго абзаца...

[Sweety]

Да, наверное надо было сказать, что это я пытаюсь сделать в ячейки таблице, где у мня уже есть Текст.
Т.е. есть текст 123 потом мне необходимо вставить эту черту и добавить еще текст.
И вот в этом случае он у меня и не отрабатывает.