PPT2000: Cannot Paste Text Into Message Box or Debug.Print Methods

ID: Q226738

The information in this article applies to:

Microsoft PowerPoint 2000

SYMPTOMS

If you try to paste text into a message box or to the immediate window with the Debug.Print method, you will receive the following error message:

Run-time error '91':

Object variable or With block variable not set

CAUSE

The .Paste method does not support inserting text into a message box or the Debug.Print method.

RESOLUTION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft Support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

NOTE: The following macro examples only work from within the PowerPoint application. Visual Basic for Applications macros are not supported by the Microsoft PowerPoint Viewer. For additional information, please see the following article in the Microsoft Knowledge Base:

Q230746 PPT: Viewer: Presentation Macros Don't Run

Use a variable to store the string data you want to display in a message box, or directly access the string data, instead of using a code fragment such as the following code example:


   With ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange
      .Copy
      MsgBox .Paste.Text
   End With

The following sample demonstrates both methods:


   Dim strTemp as String
   '...
   strTemp = ActivePresentation.Slides(1).Shapes.Title.TextFrame _
     .TextRange.Text
   MsgBox strTemp
   '...
   Msgbox ActivePresentation.Slides(1).Shapes.Title.TextFrame _
     .TextRange.Text

Additional query words: PPT2K PPT2000 PPT POWERPNT 2000 PPT9 9.0 vba

Keywords : kbdta kbdtacode OffVBA KbVBA
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbprb