Office 2013
From Attie's Wiki
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
- Open "Options"
- Goto the "Save" tab
- Check "Don't show the Backstage when opening or saving files"
- Uncheck "Show additional places for saving, even if sign-in may be required"
- Check "Save to Computer by default"
Stop Opening in Reader Mode
- Open "Options"
- Goto "General"
- Uncheck "Open e-mail attachments and other uneditable files in Reading View."
Outlook
- Click on the dots at the bottom, to the right of "Mail", "Calendar", etc...
- Click "Navigation Options"
- Check "Compact Navigation"
Access Macros
- Right Click on the Ribbon, and select "Customize the Ribbon..."
- Check the "Developer" Tab
- Click "OK"
- Click "Macro Security"
- Select "Enable all macros"
- Click "OK"
New Window for Replies
- Open "Options"
- Select the "Mail" tab
- 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