Office 2013

From Attie's Wiki
Revision as of 14:41, 11 November 2013 by Attie (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

This page shows some steps to help you fix Office 2013.

Contents

Disable the Animations and 'GPU Acceleration'

[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Common\Graphics]
"DisableHardwareAcceleration"=dword:00000001
"DisableAnimations"=dword:00000001

Disable the Start Screen

[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Common\General]
"DisableBootToOfficeStart"=dword:00000001

Disable SkyDrive

  1. Open "Options"
  2. Goto the "Save" tab
  3. Check "Don't show the Backstage when opening or saving files"
  4. Uncheck "Show additional places for saving, even if sign-in may be required"
  5. Check "Save to Computer by default"

Stop Opening in Reader Mode

  1. Open "Options"
  2. Goto "General"
  3. Uncheck "Open e-mail attachments and other uneditable files in Reading View."

Outlook

Compact Navigation

  1. Click on the dots at the bottom, to the right of "Mail", "Calendar", etc...
  2. Click "Navigation Options"
  3. Check "Compact Navigation"

Access Macros

  1. Right Click on the Ribbon, and select "Customize the Ribbon..."
  2. Check the "Developer" Tab
  3. Click "OK"
  4. Click "Macro Security"
  5. Select "Enable all macros"
  6. Click "OK"

New Window for Replies

  1. Open "Options"
  2. Select the "Mail" tab
  3. In the "Replies and forwards" section, check "Open replies and forwards in a new window"

Sub-Folder Expansion

Public Sub ExpandAllFolders()
  On Error GoTo die
  Dim Ns As Outlook.NameSpace
  Dim Folders As Outlook.Folders
  Dim CurrF As Outlook.MAPIFolder
 
  ExpandDefaultStoreOnly = True
 
  Set Ns = Application.GetNamespace("Mapi")
  Set CurrF = Application.ActiveExplorer.CurrentFolder
 
  If ExpandDefaultStoreOnly = True Then
    Set Folders = Ns.GetDefaultFolder(olFolderInbox).Parent.Folders
    LoopFolders Folders, True
  Else
    LoopFolders Ns.Folders, True
  End If
 
  Set Application.ActiveExplorer.CurrentFolder = CurrF
  Exit Sub
 
die:
  MsgBox "An error occured" & vbNewLine & Err.Description
End Sub
 
Public Sub ExpandSubFolders()
  On Error GoTo die
  Dim CurrF As Outlook.MAPIFolder
 
  Set CurrF = Application.ActiveExplorer.CurrentFolder
 
  LoopFolders CurrF.Folders, True
 
  Set Application.ActiveExplorer.CurrentFolder = CurrF
  Exit Sub
 
die:
  MsgBox "An error occured" & vbNewLine & Err.Description
End Sub
 
Private Sub LoopFolders(Folders As Outlook.Folders, ByVal bRecursive As Boolean)
  Dim F As Outlook.MAPIFolder
 
  For Each F In Folders
    If F.Name <> "Sync Issues" Then
      Set Application.ActiveExplorer.CurrentFolder = F
 
      If bRecursive Then
        If F.Folders.Count Then
          LoopFolders F.Folders, bRecursive
        End If
      End If
    End If
  Next
 
  DoEvents
End Sub
Personal tools
Namespaces

Variants
Actions
Navigation
Toolbox