DataObject (VBA 5 and 6)

Topic

New Reply

I have been using this code at the end of some macros to clear my clipboard memory. I works fine for me in Word 97, 2000, and 2002.

Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText “”
MyData.PutInClipboard

I have friends with the Word 2000 and 2002 who have not been able to use it. They get this message for first line: “compile error: user-defined type not defined” .

Does any one know how to rewrite it so it will run?

Thanks.

Jerry

Reply | Quote

Replies

Hi Jerry,
Your friends need to set a reference to the Microsoft Forms object library for your code to work or else you can use Windows API functions instead:

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" _
                        (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Sub clearclippy()
   OpenClipboard GetActiveWindow
   EmptyClipboard
   CloseClipboard
End Sub

for example.
Hope that helps.

Reply | Quote

Rory:

Thanks. I’ll try that. I guess what puzzles me is that we are all using the exact same modules.

Jerry

Reply | Quote

In Word 97 (and Excel 97), a reference to the Microsoft Forms 2.0 Object Library was set by default; in Word 2000 and 2002 this is not the case. Why?

Reply | Quote

Hans:

Thanks. I got it now.

Jerry

Reply | Quote

The reference gets set when one inserts a Userform.

Reply | Quote

Yes, but the DataObject is useful even if you have no UserForms. In Word 97, you didn’t have to worry about using DataObject because the reference to MS Forms 2.0 was ALWAYS set. In Word 2000/2002, you must set the reference, either explicitly, or – as you indicate – implicitly by inserting a UserForm.

Reply | Quote

I hate to defend MSFT, but MSFT was correct in requiring an explicit reference to be entered.
Automatically including references can lead to problems.

Reply | Quote

> we are all using the exact same modules

If they imported them into their own project, that could explain the discrepancy. I believe references are stored at the project level and aren’t in the .bas files.

Reply | Quote