Ureader.com  
Microsoft software help and Community
   home   |   control panel login   |   archive   |  
 
Word
application.errors
conversions
docmanagement
drawing.graphics
formatting.longdocs
international
internet.assistant
mail
mailmerge.fields
menustoolbars
newusers
numbering
oleinterop
pagelayout
printingfonts
setup.networking
spelling.grammar
tables
vba.addins
vba.beginners
vba.customization
vba.general
vba.userforms
web.authoring
word6-7macros
word97vba
  
 
date: Sun, 24 Aug 2008 11:48:45 -0500,    group: microsoft.public.word.vba.userforms        back       


Create a Userform-Problem   
I was following the tutorial, 
http://word.mvps.org/FAQs/Userforms/CreateAUserForm.htm, on how to create a 
Userform.  But when I then open the document...the form doesn't appear.  I 
think the likely problems may be in steps 10 or 13.  This is what I've done 
for both:

Step 10:
Private Sub CommandButton1_Click()
With ActiveDocument
    .Bookmarks("Text1").Range _
    .InsertBefore TextBox1
    .Bookmarks("Text2").Range _
    .InsertBefore TextBox2
End With

UserForm1.Hide

End Sub


Step 13:
Sub autonew()
'
' autonew Macro
' Macro created 8/24/2008 by Rajesh
'UserForm1.Show


End Sub

Any tips?
date: Sun, 24 Aug 2008 11:48:45 -0500   author:   Raj

Re: Create a Userform-Problem   
Hi Raj,

The problem is that the line for step 13, UserForm1.Show, has an apostrophe at
the beginning, which makes it a comment instead of an executable command. Remove
the apostrophe.

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all
may benefit.

On Sun, 24 Aug 2008 11:48:45 -0500, "Raj"  wrote:

>I was following the tutorial, 
>http://word.mvps.org/FAQs/Userforms/CreateAUserForm.htm, on how to create a 
>Userform.  But when I then open the document...the form doesn't appear.  I 
>think the likely problems may be in steps 10 or 13.  This is what I've done 
>for both:
>
>Step 10:
>Private Sub CommandButton1_Click()
>With ActiveDocument
>    .Bookmarks("Text1").Range _
>    .InsertBefore TextBox1
>    .Bookmarks("Text2").Range _
>    .InsertBefore TextBox2
>End With
>
>UserForm1.Hide
>
>End Sub
>
>
>Step 13:
>Sub autonew()
>'
>' autonew Macro
>' Macro created 8/24/2008 by Rajesh
>'UserForm1.Show
>
>
>End Sub
>
>Any tips?
date: Sun, 24 Aug 2008 13:29:38 -0400   author:   Jay Freedman

Google
 
Web ureader.com


    COPYRIGHT 2007, YARDI TECHNOLOGY LIMITED, ALL RIGHT RESERVE  |   contact us