Office 2013
From Attie's Wiki
(Difference between revisions)
m |
m (→Outlook) |
||
Line 39: | Line 39: | ||
# Select "''Enable all macros''" | # Select "''Enable all macros''" | ||
# Click "''OK''" | # 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=== | ===Sub-Folder Expansion=== |
Latest revision as of 15:41, 11 November 2013
This page shows some steps to help you fix Office 2013.
Contents |
[edit] Disable the Animations and 'GPU Acceleration'
[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Common\Graphics] "DisableHardwareAcceleration"=dword:00000001 "DisableAnimations"=dword:00000001
[edit] Disable the Start Screen
[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Common\General] "DisableBootToOfficeStart"=dword:00000001
[edit] 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"
[edit] Stop Opening in Reader Mode
- Open "Options"
- Goto "General"
- Uncheck "Open e-mail attachments and other uneditable files in Reading View."
[edit] Outlook
[edit]
- Click on the dots at the bottom, to the right of "Mail", "Calendar", etc...
- Click "Navigation Options"
- Check "Compact Navigation"
[edit] 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"
[edit] 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"
[edit] 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