User Form

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Tripla - 30 Mar 2007 05:57 GMT

I have created a user form for a letter template and would like the
senders information to stay the same if saved (kind of like
personalizing the template), unless cleared. My problem is coding the
form to keep the senders information intact upon opening. I have this
as my code wondering if I should go about this differently:
Public Sub cmdClose_Click()
Application.ScreenUpdating = False
With ActiveDocument
.Bookmarks("To").Range.Text = txtTo.Value
.Bookmarks("Attn").Range.Text = txtAttn.Value
.Bookmarks("Faxto").Range.Text = txtFaxto.Value
.Bookmarks("Phoneto").Range.Text = txtPhoneto.Value
.Bookmarks("From").Range.Text = txtFrom.Value
.Bookmarks("Faxfrom").Range.Text = txtFaxfrom.Value
.Bookmarks("Phonefrom").Range.Text = txtPhonefrom.Value
.Bookmarks("Date").Range.Text = txtDate.Value
.Bookmarks("Notes").Range.Text = txtNotes.Value
.Bookmarks("Pages").Range.Text = txtPages.Value
End With
Application.ScreenUpdating = True
Unload Me
End Sub

Any help is appreciated
Thanks
Tripla

Reply to this Message

Jonathan West - 30 Mar 2007 10:47 GMT

>I have created a user form for a letter template and would like the
> senders information to stay the same if saved (kind of like
[quoted text clipped - 18 lines]
> Unload Me
> End Sub

Hi Tripla

When opening the form, you want to do the reverse assignment

With ActiveDocument
txtTo.Value =.Bookmarks("To").Range.Text

etc.

This populates the userform with the current contents of the bookmarks. Put
this code into the UserForm_Initialize event.

Signature

Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Reply to this Message

Rob - 30 Mar 2007 13:24 GMT

In this office we have a lot of forms that do something similar except the
data is never stored in the templates because new docs are always created
from them. I have to save user data like their fax and extension, etc, to
populate forms for them. To do this I use System.PrivateProfileString in the
initialize to store and get stuff from their registry. Just thought I'd
mention that as an option.

Reply to this Message

Doug Robbins - Word MVP - 30 Mar 2007 20:12 GMT

In the Initialize event of your userform, include the command

txtFrom.Text = Application.UserName

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

>I have created a user form for a letter template and would like the
> senders information to stay the same if saved (kind of like
[quoted text clipped - 22 lines]
> Thanks
> Tripla

Reply to this Message

Rate this thread: