Microsoft Office Standard 2007 WindowsVista - The

[yongkang9447]

Concern 1st solution 2nd Solution ,Office Standard 2007

[WindowsVista]The various choice is disabled


Issue
Sometimes, the selection of multiple files and folders below Vista doesnot effort any more. (a bug that hardly ever occurs). To solve this issue:
1st choice Go to this page: Click Fix Single Decide on hyperlink to download the file FixSingleSelect.zip Preserve it towards the desktop, after which extract its contents. Shut all windows within the browser open, and don't until eventually the stop from the treatment. Create a double click on on the file FixSingleSelect.vbs which can be on the desktop. Verify by clicking Okay.
Wait a second, then validate the message.
Restart your Computer and try once more.



If the download website link will not do the job,Office 2007 License, you can produce the file FixSingleSelect.vbs: Open the notepad. Duplicate with the following code:


Option Explicit const HKCU = &H80000001 const FWF_SINGLESEL = &H00000040 dim objReg msgbox "Close all Explorer windows before continuing." Set objReg=GetObject("winmgmts:impersonationLevel=impe rsonate,Buy Office 2010!\\.\root\default:StdRegProv") FixBags FixDefaults msgbox "Done! Logoff and Logon before opening any Explorer windows." '================================================= ================================================== Sub FixBags const BagsPath = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags" dim iFFlags dim strBag, strShellPath, strFolderID, strKeyPath dim arrBags, arrFolderIDs objReg.EnumKey HKCU, BagsPath, arrBags For Each strBag in arrBags strShellPath = BagsPath & "\" & strBag & "\Shell" If RegKeyExists(strShellPath) Then If objReg.EnumKey(HKCU, strShellPath, arrFolderIDs) = 0 Then If Not IsNull(arrFolderIDs) Then For each strFolderID in arrFolderIDs strKeyPath = strShellPath & "\" & strFolderID If objReg.GetDWORDValue(HKCU, strKeyPath, "FFlags",Microsoft Office Standard 2007, iFFlags) = 0 Then If (iFFlags AND FWF_SINGLESEL) <> 0 Then iFFlags = (iFFlags AND (NOT(FWF_SINGLESEL))) If objReg.SetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) <> 0 Then Msgbox "SetDWORDValue Failed" Finish If Finish If Finish If Next Finish If Finish If Finish If Next End Sub '================================================= ================================================== '================================================= ================================================== Sub FixDefaults const StreamsPath = "Software\Microsoft\Windows\CurrentVersion\Explore r\Streams\Defaults" dim bytTemp, bytFFlags dim iByteIndex dim strFolderID, strViewSettings, strSearch dim arrFolderIDs, arrRegTypes, arrViewSettings If (objReg.EnumValues(HKCU, StreamsPath,Microsoft Office Pro 2007, arrFolderIDs, arrRegTypes) <> 0) Or IsNull(arrFolderIDs) Then Exit Sub Stop If For Each strFolderID in arrFolderIDs If objReg.GetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) = 0 Then '--- Convert Byte array to string to facilitate searching --- strViewSettings = "" For each bytTemp in arrViewSettings strViewSettings = strViewSettings & chr(bytTemp) Next strSearch = "F" & chr(0) & "F" & chr(0) & "l" & chr(0) & "a" & chr(0) & "g" & chr(0) & "s" iByteIndex = instr(strViewSettings, strSearch) + 17 bytFFlags = arrViewSettings(iByteIndex) If (bytFFlags AND FWF_SINGLESEL) <> 0 Then arrViewSettings(iByteIndex) = (bytFFlags AND NOT(FWF_SINGLESEL)) If objReg.SetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) <> 0 Then msgbox "SetBinaryValue Failed" Conclude If End If End If Next End Sub '================================================= ================================================== Function RegKeyExists(sRegKey) dim aValueNames, aValueTypes sRegKey = Trim(sRegKey) If objReg.EnumValues(HKCU, sRegKey, aValueNames, aValueTypes) = 0 Then RegKeyExists = True Else RegKeyExists = False Finish If Stop Function Preserve the file by giving it the name FixSingleSelect.vbs Find All files of this type.
2nd Resolution Go to Control Panel> Folder Options (Classic View). Decide upon the View tab and click on Reset Folders. Click Yes and after that press the Ok button.

This document entitled &laquo; WindowsVista - The different selection is disabled &raquo; from Kioskea (en.kioskea.net) is made available below the Creative Commons license. It is easy to copy, modify copies of this page, under the conditions stipulated by the licence, as this note appears clearly.