關閉“是否要保留最後複製的項目？”在微軟辦公室套件中

Question

此彈出視窗表示，如果我保留複製的最後一項，退出可能需要更長的時間。然而，在每種情況下，必須單擊彈出視窗都會導致退出時間更長，因為我必須移動滑鼠才能單擊另一個彈出框，而且實際上，我從來沒有複製足夠多的內容來減慢我的計算機速度（即使我做到了，退出的額外幾秒鐘不會打擾我）。所以，我想停用這個“功能”，但找不到方法。有人有解決辦法嗎？

Answer 1

不幸的是，您無法將其關閉。這個請求 -停用「是否要保留最後複製的項目？」的選項對話框- 在 Uservoice 上建立之後同樣的問題正如您在微軟論壇上被問到的那樣。然而，截至撰寫本答案為止，微軟尚未提供停用它的選項。

微軟論壇的唯一解決方法是在關閉應用程式之前複製單一字元。

Answer 2

暗淡作為對象

' 在建立物件之前

如果 wa 為 Nothing，則設定 wa = CreateObject("word.application")

萬一

' 複製貼上資料後

放棄錯誤

設定 wa = 無

'這對我來說可以避免彈出視窗的發生

Answer 3

這個 AutoHotkey v2 腳本解決了這個問題。

最新版本始終可以在 GitHub 上找到：https://github.com/karolzlot/office-keep-last-item

如果您發現任何錯誤，請提出問題。也歡迎請求請求！

; This is AHK v2 script, it won't work on AHK v1.
#SingleInstance Force
#Warn   ; Enable warnings to assist with detecting common errors.
SendMode "Input"    ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir A_ScriptDir   ; Ensures a consistent starting directory.

SetTitleMatchMode(1) ; 1 = A window's title must start with the specified WinTitle to be a match.

; All translations can be found on https://www.microsoft.com/en-us/language/Search?&searchTerm=You%20placed%20a%20picture%20on%20the%20Clipboard.&langID=591&Source=true&productid=undefined

; English language
phrase1:= "You placed a picture on the Clipboard. Do you want this picture to be available to other applications after you quit"
phrase2:= "Do you want to keep the last item you copied?\n\nIf you do, it may take a bit longer to exit."
phrase_yes:= "Yes"

; ; Polish language
; phrase1:= "W Schowku znajduje się obraz. Czy ten obraz ma być dostępny dla innych aplikacji po zakończeniu pracy z programem"
; phrase2:= "Czy chcesz zachować ostatni skopiowany element?\n\nJeśli tak, zakończenie działania może potrwać trochę dłużej."
; phrase_yes:= "Tak"

Loop
{
    HWND := WinWaitActive("Microsoft ")
    window_text := WinGetText("ahk_id " HWND)

    if InStr(window_text, phrase1, "Off") or InStr(window_text, phrase2, "Off")
    {
        Controls := WinGetControls(HWND)
        for control in Controls
        {   
            MsgBox(control " " ControlGetText(control)) ; for debugging, comment out this line if it works ok
            if InStr(control, "Button") ; check if control is of type button
            {
                if InStr(ControlGetText(control), phrase_yes)
                {
                    MsgBox("Button found") ; for debugging, comment out  this line if it works ok
                    ControlClick(control)
                    Sleep(1000)
                    break
                }
            }
        }
    }
    else
    {
        ; MsgBox "Not found" ; for debugging, comment out this line if it works ok
        Sleep(1000)
    }
}

Answer 4

活動更好，為什麼還要舉辦？我們大多數人都使用配備 16G 至 64G RAM、超線程四核心 CPU 和 SSD 驅動器的機器。真的嗎？我們擔心多納秒可以節省時間嗎？用戶需要更長的時間才能被打斷，弄清楚這個無用的彈出視窗是什麼，然後點擊「確定」。刪除它即可。不要在更多設定和選項上浪費時間。有什麼意義？