<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Document_Close()
Dim Strana As Integer, Poz As Integer
Dim Putanja As String

Strana = Selection.Information(wdActiveEndAdjustedPageNumber)
Putanja = P
Close #1
Open Putanja For Output Shared As #1
Print #1, Strana
Close #1
Selection.GoTo wdGoToPage, wdGoToAbsolute, 2
End Sub
Private Sub Document_Open()
Dim Putanja As String
Dim Strana

Putanja = P
Close 1#
Open Putanja For Input As 1
Line Input #1, Strana
Close 1#
Selection.GoTo wdGoToPage, wdGoToAbsolu