Office 中的「無法建立工作檔」錯誤

徵狀

當您嘗試預覽或儲存檔時，Word 會傳回下列錯誤訊息：

Word 無法建立工作檔。檢查 temp 環境變數。

解決方案

掃描惡意程式碼和磁片錯誤

執行防病毒掃描。如果防毒程式未偵測到任何惡意程式碼，請檢查是否有損毀的檔案或磁片錯誤。
開啟提升權限的命令提示字元視窗。若要這麼做，請選取 [ 開始]，輸入 cmd，然後按 enter 鍵。
在搜尋結果中，以滑鼠右鍵按一下 [ 命令提示字元]，然後選取 [ 以系統管理員身分執行]。
輸入 sfc.exe/scannow，然後按 enter。
檢查完成並修復任何錯誤之後，請輸入 chkdsk/r/f，然後按 enter 鍵。
重新開機裝置，然後再次嘗試在 Word 中執行該動作。如果仍發生錯誤，請嘗試下一個方法。

新增環境變數

選取 [開始 > 設定 > 系統] > ****。
向下滾動至 [ 相關設定]，然後選取 [ 高級系統設定]。
選取環境變數。
在 <username> [ (的使用者變數 <username> 位於您的使用者名稱) 上，選取 [新增] 按鈕。
在 [ 變數名稱 ] 欄位中，輸入 % userprofile%。
在 [變數值] 欄位中，輸入 C:\Users \<username > (其中 <username> 的值與 <username> 步驟 4) 中的值相同。
選取 [確定]，然後在開啟的任何確認視窗上選取 [確定 ]。
重新開機裝置，然後再次嘗試在 Word 中執行該動作。如果仍發生錯誤，請嘗試下一個方法。

建立暫存網際網路檔案資料夾

啟動 Windows 檔案總管。
瀏覽至下列資料夾：
C:\Users \<username > \AppData\Local\Microsoft\ Windows \INetCache
附注：在此路徑中， <username> 代表您的使用者設定檔名稱。
建立資料夾，並將其命名為 Content。 Word。
附注：可能需要在 Windows Explorer 的 [視圖] 功能區上開啟隱藏的專案。
重新開機裝置，然後再次嘗試在 Word 中執行該動作。如果仍發生錯誤，請嘗試下一個方法。

關閉預覽窗格或編輯登錄

若要解決此問題，請關閉檔案資源管理器中的預覽窗格。

在檔案瀏覽器中，選擇 [View] （查看）索引標籤，然後再預覽窗格。

如果您想要讓預覽窗格保持使用中狀態，請編輯下列登錄子機碼以修正錯誤。

重要

請仔細依照本節中的步驟執行。如果您不當地修改登錄，可能會發生嚴重的問題。修改之前，請先備份登錄以進行還原，以防發生問題。

若要解決此問題，請刪除下列登錄機碼：

選取 [開始] > [執行]。
在 [開啟： ] 方塊中輸入 regedit ，然後選取 [確定]。
搜尋並刪除下列登錄子項：
- Word 預覽： HKCR\CLSID\{84F66100-FF7C-4fb4-B0C0-02CD7FB668FE}
- PowerPoint預覽：HKCR\CLSID\{65235197-874B-4A07-BDC5-E65EA825B718}
- Excel預覽：HKCR\CLSID\{00020827-0000-0000-C000-000000000046}
關閉 [登錄編輯程式]，然後重新開機 Windows。

Sub ListCommandBarsAndControls()

    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' Create a header on the first row of the spreadsheet
    ws.Rows(1).Cells(1) = "BAR NAME"
    ws.Rows(1).Cells(2) = "BAR VISIBLE"
    ws.Rows(1).Cells(3) = "BAR BUILTIN"
    ws.Rows(1).Cells(4) = "CONTROL ID"
    ws.Rows(1).Cells(5) = "CONTROL CAPTION"
    ws.Rows(1).Cells(6) = "CONTROL ENABLED"
    
    ' Set a variable so the following starts writing on the second row
    targetRow = 2
    
    ' Iterate through all command bars
    For i = 1 To Application.CommandBars.Count

        Set sCmdBar = Application.CommandBars(i)
        ws.Rows(targetRow).Cells(1) = sCmdBar.Name
        ws.Rows(targetRow).Cells(2) = sCmdBar.Visible
        ws.Rows(targetRow).Cells(3) = sCmdBar.BuiltIn
        
        ' And for each command bar, iterate through all the available controls
        For j = 1 To Application.CommandBars(i).Controls.Count
            Set sControl = Application.CommandBars(i).Controls(j)
            ws.Rows(targetRow).Cells(1) = sCmdBar.Name
            ws.Rows(targetRow).Cells(2) = sCmdBar.Visible
            ws.Rows(targetRow).Cells(3) = sCmdBar.BuiltIn
            ws.Rows(targetRow).Cells(4) = sControl.ID
            ws.Rows(targetRow).Cells(5) = sControl.Caption
            ws.Rows(targetRow).Cells(6) = sControl.Enabled
            targetRow = targetRow + 1
        Next j

    Next i

    ' Some times it takes a while to complete so pop up 
    ' a message box to make it clear when it's finished
    MsgBox "Complete!"

End Sub

If you create a new macro, paste this code in and run it you should get output that looks something like the following screenshot. Note that I filtered the output here after running the script to only show me information about toolbars that aren’t built into Excel, i.e. third-party toolbars that are generated by Excel plugins.

電腦筆記

2021年8月1日星期日