Цитата Iska:
Код:
Option Explicit
Sub DrawCrossLines()
Dim objSection As Section
Dim i As Integer
For Each objSection In ThisDocument.Sections
With objSection
For i = 1 To .PageSetup.PageWidth Step CentimetersToPoints(0.5)
.Headers(wdHeaderFooterPrimary).Shapes.AddLine i, 1, i, .PageSetup.PageHeight
Next i
For i = 1 To .PageSetup.PageHeight Step CentimetersToPoints(0.5)
.Headers(wdHeaderFooterPrimary).Shapes.AddLine 1, i, .PageSetup.PageWidth, i
Next i
.Headers(wdHeaderFooterPrimary).Range.ShapeRange.Group
End With
Next objSection
End Sub »
|
Помогите, пжлста! Сейчас вновь напомнила о себе проблема "прошлогодняя". Я попробовал данный макрос, но ничего не отрисовывает. Может что не так делаю. Я тупо вставил этот код в макрос. И запустил его. Появился значок, типа система думает (т.е. что-то выполняет), а потом все. Ничего не отрисовано! И ничего не распечатывает.
