B
Bob84
Здравствуйте.
Есть вордовский документ, в котором на каждой странице вставлено изображение.
Макросом рисую поверх изображения надписи на каждой странице:
По какой-то причине код последнюю надпись рисовал на предыдущей странице. Дополнил код вначале добавлением разрыва строки и удалением пустых страниц после цикла.
Код
добавил к документы аж две страницы (которые потом кодом же удалял).
После этого такая ошибка перестала проявлятся.
Собственно вопрос почему в каких-то случаях не удается добавить надпись на последнюю страницу?
Спасибо.
Есть вордовский документ, в котором на каждой странице вставлено изображение.
Макросом рисую поверх изображения надписи на каждой странице:
Код:
Sub inscription()
NumberOfPages = Selection.Information(wdNumberOfPagesInDocument)
For CurrentPage = 1 To NumberOfPages
If CurrentPage = 1 Then
Call Selection.GoTo(wdGoToSection, wdGoToFirst)
End If
'================================================================
STAMP_TEXT1 = "Какой-то текст"
Dim shp1 As Shape
Set shp1 = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
10, 10, Application.InchesToPoints(6), Application.InchesToPoints(10.7))
shp1.Select
Selection.InsertAfter (STAMP_TEXT1)
shp1.Line.Visible = msoFalse
shp1.TextFrame.VerticalAnchor = msoAnchorBottom
'================================================================
Set shp1 = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Application.InchesToPoints(6.5), _
Application.InchesToPoints(10), _
Application.InchesToPoints(1.5), Application.InchesToPoints(1))
shp1.Select
Selection.InsertAfter (CurrentPage)
shp1.Line.Visible = msoFalse
shp1.TextFrame.VerticalAnchor = msoAnchorBottom
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
'================================================================
Call Selection.Collapse(wdCollapseEnd)
Call Selection.GoTo(wdGoToPage, wdGoToNext, 1)
Next
Call Selection.Collapse(wdCollapseEnd)
End Sub
По какой-то причине код последнюю надпись рисовал на предыдущей странице. Дополнил код вначале добавлением разрыва строки и удалением пустых страниц после цикла.
Код
Код:
Call Selection.GoTo(wdGoToPage, wdGoToLast)
Selection.EndKey Unit:=wdStory
Selection.insertbreak Type:=wdPageBreak
После этого такая ошибка перестала проявлятся.
Собственно вопрос почему в каких-то случаях не удается добавить надпись на последнюю страницу?
Спасибо.