Prikazi cijelu temu 14.01.2014 01:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pamcenje stranice u Word-u
Otvori VisualBasic editor.
Klikni dupli klik na Thisdocument i kad se otvori prozor u njega kopiraj ovaj kod.
Poslije samo omoguci makro da bi ti sve radilo.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Document_Close()
  2. Dim Strana As Integer, Poz As Integer
  3. Dim Putanja As String
  4.  
  5. Strana = Selection.Information(wdActiveEndAdjustedPageNumber)
  6. Putanja = P
  7. Close #1
  8. Open Putanja For Output Shared As #1
  9. Print #1, Strana
  10. Close #1
  11. Selection.GoTo wdGoToPage, wdGoToAbsolute, 2
  12. End Sub
  13. Private Sub Document_Open()
  14. Dim Putanja As String
  15. Dim Strana
  16.  
  17. Putanja = P
  18. Close 1#
  19. Open Putanja For Input As 1
  20. Line Input #1, Strana
  21. Close 1#
  22. Selection.GoTo wdGoToPage, wdGoToAbsolute, Strana
  23. End Sub
  24. Function P() As String
  25. Dim Poz As Integer
  26. P = Environ(30) & "\k.tmp"
  27. Poz = InStr(1, P, "=") + 1
  28.  
  29. P = Mid(P, Poz)
  30. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.