Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function strAppendToClipboard(strSelected As String) As String
' Procedure :   strAppendToClipboard
' Description:  Augment the contents of the clipboard.
' Copyright:    Chris Greaves Inc.
' Inputs:       STRING to be appended to the clipboard contents.
' Returns:      STRING previous contents of the clipboard.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    ' Define the clipboard object
    Dim strClipboard As String
    Dim MyData As DataObject
    Set MyData = New DataObject
    ' Obtain the contents of the clipboard
    MyData.GetFromClipboard
    ' We don't handle graphics, only text strings, so ....
    On Error GoTo MustClearClipboard
    strClipboard = MyData.GetText(1)
    On Error GoTo 0
    GoTo GotClipboard
MustClearClipboard:
    ' If we found a graphic, void the clipboard.
    strClipboard = strClearClipboard
GotClipboard:
   ' Obtain existing contents
    MyData.GetFromClipboard
    strAppendToClipboard = MyData.GetText
   ' Set new contents of clipboard.
    Set MyData = New DataObject
    MyData.SetText strClipboard & strSelected, 1
    MyData.PutInClipboard
'Sub TESTstrAppendToClipboard()
'' Tap the PrtScr key to load a graphic image to the clipboard.
'' Enter Wordpad and choose Edit, Paste to inspect existing contents, then ....
'MsgBox strAppendToClipboard(Chr$(13) & "here is message 01")
'MsgBox strAppendToClipboard("here is message 02")
'MsgBox strAppendToClipboard("here is message 03")
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001

Visual Basic (VB and VBA)

Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected]

If in doubt, record a macro and inspect the entrails!

Here is an INDEX to all the procedures.

You will probably need one copy of my GLOBAL DECLARATIONS.

Public Function strAppendToClipboard(strSelected As String) As String
' Procedure :   strAppendToClipboard
' Description:  Augment the contents of the clipboard.
' Copyright:    Chris Greaves Inc.
' Inputs:       STRING to be appended to the clipboard contents.
' Returns:      STRING previous contents of the clipboard.
' Assumes:      Nothing
' Side Effects: None.
' Tested:       By the calls shown below.
    ' Define the clipboard object
    Dim strClipboard As String
    Dim MyData As DataObject
    Set MyData = New DataObject
    ' Obtain the contents of the clipboard
    MyData.GetFromClipboard
    ' We don't handle graphics, only text strings, so ....
    On Error GoTo MustClearClipboard
    strClipboard = MyData.GetText(1)
    On Error GoTo 0
    GoTo GotClipboard
MustClearClipboard:
    ' If we found a graphic, void the clipboard.
    strClipboard = strClearClipboard
GotClipboard:
   ' Obtain existing contents
    MyData.GetFromClipboard
    strAppendToClipboard = MyData.GetText
   ' Set new contents of clipboard.
    Set MyData = New DataObject
    MyData.SetText strClipboard & strSelected, 1
    MyData.PutInClipboard
'Sub TESTstrAppendToClipboard()
'' Tap the PrtScr key to load a graphic image to the clipboard.
'' Enter Wordpad and choose Edit, Paste to inspect existing contents, then ....
'MsgBox strAppendToClipboard(Chr$(13) & "here is message 01")
'MsgBox strAppendToClipboard("here is message 02")
'MsgBox strAppendToClipboard("here is message 03")
'End Sub
End Function

We all knew nothing when we started …

Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001