Как очистить буфер обмена vba word

How would you clear the Microsoft Office Clipboard using VBA, specifically Word VBA?

I am copying a lot of data at time into the clipboard and don’t want excessive data kept in the Clipboard.

asked Sep 23, 2015 at 10:19

A quick and easy solution I’ve just used is

MyDoc.Range.Characters(1).Copy

Where «MyDoc» is the name of the document you are using.

It doesn’t technically empty the clipboard, it just makes it one character long (assuming your document starts with characters), which stops Word from popping up with annoying questions.

The purists may not like it, but heyho, it’s dead easy

answered Apr 28, 2021 at 10:39

If you are getting the error while closing the workbook, Use code something like this

wbk.close False
Application.CutCopyMode = False 

answered Aug 26, 2021 at 16:11

I’m working with VBA on ms Word.It run the word document copy the content to paste other document then process.After the finished process when closing the document display «large amount of text» warning.How do i over come this help me
any one.

ActiveDocument.Save
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveDocument.Close
Application.Quit

asked Feb 24, 2016 at 8:26

Use this to clear the clipboard and stop the clipboard message.

Application.CutCopyMode = False

answered Feb 24, 2016 at 10:02

Чтобы очистить буфер обмена офиса (из Excel):

#If VBA7 Then
    Private Declare PtrSafe Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, _
    ByVal iChildStart As Long, ByVal cChildren As Long, _
    ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
    Public Const myVBA7 As Long = 1
#Else
    Private Declare Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, _
                                                              ByVal iChildStart As Long, ByVal cChildren As Long, _
                                                              ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
    Public Const myVBA7 As Long = 0
#End If

Public Sub EvRClearOfficeClipBoard()
    Dim cmnB, IsVis As Boolean, j As Long, Arr As Variant
    Arr = Array(4, 7, 2, 0)                      '4 and 2 for 32 bit, 7 and 0 for 64 bit
    Set cmnB = Application.CommandBars("Office Clipboard")
    IsVis = cmnB.Visible
    If Not IsVis Then
        cmnB.Visible = True
        DoEvents
    End If

    For j = 1 To Arr(0 + myVBA7)
        AccessibleChildren cmnB, Choose(j, 0, 3, 0, 3, 0, 3, 1), 1, cmnB, 1
    Next
        
    cmnB.accDoDefaultAction CLng(Arr(2 + myVBA7))

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

End Sub

Я могу подтвердить, что приведенный ниже код очищает буфер обмена Windows.

#If Win64 Then
Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
#Else
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
#End If

Public Sub ClearClipboard()
   OpenClipboard (0&)
   EmptyClipboard
   CloseClipboard
End Sub

Вы можете скачать безопасные объявления указателя со https://www.microsoft.com/en-us/download/confirmation.aspx?id=9970.

У меня, вероятно, есть 8 часов на поиск VBA, чтобы очистить буфер обмена Office (а не Windows) в 64-битном Office 365. Все другие сообщения, которые я нашел, либо давали код, который выполнялся, но не очищал буфер обмена, либо говорили, что это невозможно сделать.

Если это помогает другим, #If, #Else, #End if дали мне ошибки, поэтому я выбрал 4 строки после #if для своих заявлений объявления.

Кстати, я запускаю это в MS Word VBA.

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Макрос EvR для очистки буфера обмена Office очень умен. (См . выше .) Он работает в Excel с моей 64-разрядной версией Microsoft (Office) 365 и Windows 10.

VBA7 был представлен вместе с Office 2010; это должно быть у всех сейчас. Директива vba7 не различает 64-битные; директива win64 делает это, если это необходимо. Итак, вот моя версия макроса EvR:

      Declare PtrSafe Function AccessibleChildren Lib "oleacc" ( _
    ByVal paccContainer As Office.IAccessible, _
    ByVal iChildStart As Long, ByVal cChildren As Long, _
    ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long
Sub ClearOfficeClipboard()
    Dim A() As Variant, CB As Variant, n As Variant, i As Integer
    With Application
        If Not .DisplayClipboardWindow Then
            ClearClipboard
            .DisplayClipboardWindow = True
            ClearOfficeClipboard ' recurse
            Exit Sub
        End If
        On Error GoTo ErrHandler
        Set CB = .CommandBars("Office Clipboard")
        A = Array(0, 3, 0, 3, 0, 3, 1)
        For i = 0 To UBound(A)
            AccessibleChildren CB, A(i), 1, CB, n
        Next i
        CB.accDoDefaultAction CLng(0)
    End With
ErrHandler:: Set CB = Nothing
End Sub

Макрос ClearClipboard предоставлен Чипом Пирсоном, http://www.cpearson.com/Excel/Clipboard.aspx . (См. Тимоти Рилатт выше , но вместо win64 замените vba7.)

Я не понимаю цикл For, который вызывает AccessibleChildren. Может кто-нибудь объяснить, как это работает? Обратите внимание, что CB должен быть Variant, а не CommandBar или Object.

I’ve used this above code snippet and it worked well until recent software updates that prevented me to clear the office clipboard without opening clipboard window. My solution it’s very simple: Add just this to the code:#If VBA7 ThenPrivate Declare PtrSafe Function AccessibleChildren Lib «oleacc» (ByVal paccContainer As Office.IAccessible, _ByVal iChildStart As Long, ByVal cChildren As Long, _ByRef rgvarChildren As Any, ByRef pcObtained As Long) As LongPublic Const myVBA7 As Long = 1#ElsePrivate Declare Function AccessibleChildren Lib «oleacc» (ByVal paccContainer As Office.IAccessible, _ByVal iChildStart As Long, ByVal cChildren As Long, _ByRef rgvarChildren As Any, ByRef pcObtained As Long) As LongPublic Const myVBA7 As Long = 0#End If

Public Sub EvRClearOfficeClipBoard()Dim cmnB, IsVis As Boolean, j As Long, Arr As VariantArr = Array(4, 7, 2, 0) ‘4 and 2 for 32 bit, 7 and 0 for 64 bitSet cmnB = Application.CommandBars(«Office Clipboard»)

‘Just add here…First’———————
With Application.DisplayClipboardWindow = True End With

      IsVis = cmnB.Visible 

If Not IsVis Then
    cmnB.Visible = True
    DoEvents
End If

For j = 1 To Arr(0 + myVBA7)
    AccessibleChildren cmnB, Choose(j, 0, 3, 0, 3, 0, 3, 1), 1, cmnB, 1
Next
    
cmnB.accDoDefaultAction CLng(Arr(2 + myVBA7))

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

‘And finish with this ‘——————— With Application .DisplayClipboardWindow = False End With

End Sub

24 авг ’21 в 23:09
2021-08-24 23:09