Проверьте, открыт ли буфер обмена

Question

Я использовал код Application.ShowClipboard, чтобы открыть буфер обмена при открытии Word. Однако этот код также закрывает буфер обмена, если он уже открыт.

Поэтому мне нужно знать, как проверить, открыт ли буфер обмена, чтобы знать, выполнять ли код.

If Clipboard is open
Then Application.ShowClipboard
Else

Есть идеи?

Answer 1

Все, что вам действительно нужно, это:

Application.CommandBars("Office Clipboard").Visible = True

Answer 2

Кажется, буфер обмена является частью коллекции Applciation.Commandbars.

Проверьте, если Application.CommandBars("ClipBoard").Visible = False, а затем ShowClipboard, ничего не делайте.

Примечание: Это было проверено на Word в Office 365.

Sub CheckForClipboard()
If Application.CommandBars("Office Clipboard").Visible = False Then
    Application.ShowClipboard
Else
    'Do nothing
End If
End Sub