Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login

POZE MRRRR'S FORUM (VIEW ONLY)

Nu sunteti logat.
Nou pe simpatie:
Kitana
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 48 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [WORD] Set page to portrait/landscape in quick access toolbar [VBA] Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 748
NOTE:
This applies to the current Section in the word document (the Section where your mouse cursor is located in).
If you have multiple sections it will only commute between landscape and portrait in the current section.


1. Open Word (create a new word document)

2. Press ALT+F11 to open the Visual Basic editor, where under Normal project you create a new Module, and name it Toggle_Portrait_Landscape:


3. Copy and paste the following code into the new module, then save Normal.dotm and exit Visual Basic Editor:

Sub PortraitLanscape()
    If Selection.PageSetup.Orientation = wdOrientPortrait Then
        Selection.PageSetup.Orientation = wdOrientLandscape
    Else
        Selection.PageSetup.Orientation = wdOrientPortrait
    End If
End Sub


4. Add the macro to your Quick Access Toolbar, rename it, pick an icon and confirm your choices (OK, OK).


5. Now go from Portrait to Landscape in just 1 click:


Modificat de TRaP (acum 5 ani)


pus acum 6 ani
   
Mrrrr
AdMiN

Inregistrat: acum 17 ani
Postari: 2186
Or you can make separate buttons for each:

Module 1 - Portrait orientation:

Sub Portrait()
Selection.PageSetup.Orientation = wdOrientPortrait
End Sub


Module 2 - Landscape orientation:

Sub Landscape()
Selection.PageSetup.Orientation = wdOrientLandscape
End Sub


_______________________________________


pus acum 6 ani
   
Pagini: 1  

Mergi la