Kuidas programmiliselt Word’i dokumendi päist muuta?
06.01.2008 | Gunnar
Imeline maailm täis tüütuid probleeme ja imelisi lahendusi. Seekord siis väike ootamatus Word'i dokumentide programmilise mudimise mailt. Nimelt on pisike nõks, millega tuleb arvestada, kui programmiliselt VBA abil dokumentide päiste ja jaluste kallale on vaja minna.
Hoiatan siin igaks juhuks teisigi tegijaid, et ei juhtuks kellelgi sellist apsakat, et kõik nagu toimib ja siis teeb klient ühe liigutuse, mille järel enam midagi ei toimi.
VBA koodis dokumendi päise ja jaluse muutmisel pole sugugi ükskõik, millises vaates dokument on avatud. Kui on vaade, mida päise või jaluse muutmisel ei toetata, siis on tulemuseks viga koodis. Kui vaade päise ja jaluse mudimise ajaks trükivaate peale keerata, ei teki probleemi.
Et mul oli tegemist võõra koodi mudimisega, siis loomulikult kirjutasin koodi sellise, et taastub see vaade, mis enne ees oli.
Aga kood ise on siin.
' Salvesta käesolev vaatetüüp
ViewType = ActiveWindow.ActivePane.View.Type
' Mine üle trükivaate peale ja ava lehe päis
ActiveWindow.ActivePane.View.Type = wdPrintView
ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
'
' Tee siin ära kõik, mis lehe päisega seotud
'
' Sulge lehe päis
ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
' Mine üle vaatele, mis oli ees enne, kui alustasime
ActiveWindow.ActivePane.View.Type = ViewType
Äkki on abiks 