Office 2013
From Attie's Wiki
(Difference between revisions)
m |
m |
||
Line 26: | Line 26: | ||
# Uncheck "Open e-mail attachments and other uneditable files in Reading View." | # Uncheck "Open e-mail attachments and other uneditable files in Reading View." | ||
− | ==Compact Navigation | + | ==Outlook== |
+ | ===Compact Navigation=== | ||
# Click on the dots at the bottom, to the right of "''Mail''", "''Calendar''", etc... | # Click on the dots at the bottom, to the right of "''Mail''", "''Calendar''", etc... | ||
# Click "''Navigation Options''" | # Click "''Navigation Options''" | ||
# Check "''Compact Navigation''" | # 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''" | ||
+ | |||
+ | ===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> |
Revision as of 17:29, 6 November 2013
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"
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