Untuk perbesaran dokumen di Word sebenarnya sudah ada fitur zoom.
Namun untuk lebih mendetail dapat ditambah Zoom In dan Zoom Out.
Note: Tips ini khusus untuk Word 2000/2003/XP
a. Zoom In
- Buka Microsoft Word, Klik Tools, Macro, Visual Basic Editor
- Buat Modul baru (Insert, Module)
- Ketik:
Sub ZoomIn()
Dim ZP As Integer
ZP = Int(ActiveWindow.ActivePane.View.
Zoom.Percentage*1.1)
If ZP>200 Then ZP=200
ActiveWindow.ActivePane.View.Zoom.Percentage
=ZP
End Sub
b. Untuk Zoom Out Ketik:
Sub ZoomOut
Dim ZP As Integer
ZP=Int(ActiveWindow.ActivePane.View.Zoom.
Percentage*0.9)
if ZP<10 Then ZP=10
ActiveWindow.ActivePane.View.Zoom
Percentage=ZP
End Sub
-Klik Debug, Compile Project
-Tutup jendela VBE
-Klik Tools, Macro, Macros
-Klik opsi "Zoom In"/''ZoomOut'' pada daftar ''Organizer''
-Aktifkan Tab ''Macro Project Items'', copy ''Module1'' dari bagian kiri ke kanan, klik OK
-Buka Tools, Customize. Pada Tab ''Comments'' cari opsi ''Macros'' pada bagian ''Categories''
-Drag opsi ''Normal.Mode1.ZoomIn''/''Normal.Mode1.ZoomOut '' ke Menu bar
-Klik kanan shortcut tersebut, ubah namanya menjadi ''ZoomIn/ZoomOut pada bagian ''Name''
-Tutup ''Customize''
Note: Tips ini khusus untuk Word 2000/2003/XP
a. Zoom In
- Buka Microsoft Word, Klik Tools, Macro, Visual Basic Editor
- Buat Modul baru (Insert, Module)
- Ketik:
Sub ZoomIn()
Dim ZP As Integer
ZP = Int(ActiveWindow.ActivePane.View.
Zoom.Percentage*1.1)
If ZP>200 Then ZP=200
ActiveWindow.ActivePane.View.Zoom.Percentage
=ZP
End Sub
b. Untuk Zoom Out Ketik:
Sub ZoomOut
Dim ZP As Integer
ZP=Int(ActiveWindow.ActivePane.View.Zoom.
Percentage*0.9)
if ZP<10 Then ZP=10
ActiveWindow.ActivePane.View.Zoom
Percentage=ZP
End Sub
-Klik Debug, Compile Project
-Tutup jendela VBE
-Klik Tools, Macro, Macros
-Klik opsi "Zoom In"/''ZoomOut'' pada daftar ''Organizer''
-Aktifkan Tab ''Macro Project Items'', copy ''Module1'' dari bagian kiri ke kanan, klik OK
-Buka Tools, Customize. Pada Tab ''Comments'' cari opsi ''Macros'' pada bagian ''Categories''
-Drag opsi ''Normal.Mode1.ZoomIn''/''Normal.Mode1.ZoomOut '' ke Menu bar
-Klik kanan shortcut tersebut, ubah namanya menjadi ''ZoomIn/ZoomOut pada bagian ''Name''
-Tutup ''Customize''