|
Surrogate
Russia
122 Posts |
 Posted - 05/04/2010 : 20:08:28
|
коллеги, я только начинаю осваивать VBA!
передо мной стоит задача, программно удалить последние 2 страницы многостраничного документа! Страницы имеют имена "Прил1" и "АКТ".
вот что у меня не получилось:
Sub PageDel()
Dim lastpage As String
Dim delpage As Visio.Page
Dim n As Integer
Dim thedoc As Visio.Document
Set thedoc = ThisDocument
For n = 1 To thedoc.Pages.Count
If Pages.Item(n).Name = "Прил1" Then DelNamedPage (n)
If Pages.Item(n).Name = "АКТ" Then DelNamedPage (n)
Debug.Print Pages.Item(n).Name
Next n
и функция которая должна по замыслу убивать страницы
Function DelNamedPage(n As Integer) As Visio.Page
Function DelNamedPage(n As Integer) As Visio.Page
Dim dDoc As Visio.Document
Dim dpage As Visio.Page
Set dpage = aDoc.Pages.Item(n)
dpage.Delete
Set DelNamedPage = dpage
End Function
скорее всего проблема в функции. помогите советом !
(темку продублирую на форуме http://visio.getbb.ru/viewtopic.php?f=6&t=48, заранее прошу прошу прощения за флуд. Но очень нужно решить вопрос поскорее) |
|
All Forums
удаление страниц программно
