Office 2013
From Attie's Wiki
(Difference between revisions)
(Created page with "This page shoes some steps to help you fix Office 2013. ==Disable the Animations and 'GPU Acceleration'== <source lang="text"> [HKEY_CURRENT_USER\Software\Microsoft\Office\15...") |
m (→Outlook) |
||
(6 intermediate revisions by one user not shown) | |||
Line 1: | Line 1: | ||
− | This page | + | This page shows some steps to help you fix Office 2013. |
==Disable the Animations and 'GPU Acceleration'== | ==Disable the Animations and 'GPU Acceleration'== | ||
Line 6: | Line 6: | ||
"DisableHardwareAcceleration"=dword:00000001 | "DisableHardwareAcceleration"=dword:00000001 | ||
"DisableAnimations"=dword:00000001 | "DisableAnimations"=dword:00000001 | ||
+ | </source> | ||
+ | |||
+ | ==Disable the Start Screen== | ||
+ | <source lang="text"> | ||
+ | [HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Common\General] | ||
+ | "DisableBootToOfficeStart"=dword:00000001 | ||
</source> | </source> | ||
==Disable SkyDrive== | ==Disable SkyDrive== | ||
− | # Open | + | # Open "Options" |
− | # Goto the | + | # Goto the "Save" tab |
− | # Uncheck 'Show additional places for saving, even if sign-in may be required' | + | # Check "''Don't show the Backstage when opening or saving files''" |
− | # Check 'Save to Computer by default' | + | # 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== | ||
+ | ===Compact Navigation=== | ||
+ | # 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=== | ||
+ | <source lang="vb"> | ||
+ | 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 | ||
+ | </source> |
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