Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...
MS Office Forum / Word / Programming / October 2006

Tip: Looking for answers? Try searching our database.

adding autotext to a template

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Addy - 29 Aug 2006 14:42 GMT
Jonathan is now on holiday - can anyone else help in his abence please?  We
have been corresponding over the last few months - please see below.  Any
help would be greatly appreciated as I'm getting quite frustrated now!!

cheers

I have a letter template macro as a form chooser and I would like to add
various autotext in a list so that they can be added to the address bookmark
in the template.  Is there a way or would I have to add each company name to
a module as an additem and then put the addresses in a macro in the form
chooser?  If there is a better way which will pick up the autotex which are
contained in a global template in startup then that would be great as then I
wouldn't have to add a new macro every time someone requires a new address
adding to the list.

Many thanks

Addy

In VBA, you can create a loop to iterate through the AutotextEntries
collection of any Template object, get the Name property of each
AutoTextEntry in turn and use Additem to add that to the listbox in your
form. Something like this

Dim oTemplate As Template
Dim oAuto as AutotextEntry
Set oTemplate = Addins("My Global Template.dot")
For Each oAuto in oTemplate.AutoTextEntries
   ListBox1.AddItem oAuto.Name
Next oAuto

Regards
Jonathan West - Word MVP

I tried the below but it doesn't seem to work.  Please could you let me know
what I am doing wrong.

The below bit I put in my form chooser:-

Dim oTemplate As Template
   Dim oAuto As AutoTextEntry
 
Set oTemplate = AddIns("legal.dot")

The below was put in a new module:-

With frmChooser 'frmchooser is my form (a letter template)
   
   For Each oAuto In oTemplate.AutoTextEntries
   CBOAddress.AddItem oAuto.Name
   Next oAuto
   .Show
   End With

Anyone any ideas please?
Addy

Hi Addy

This line is wrong

   CBOAddress.AddItem oAuto.Name

Its should be this

   .CBOAddress.AddItem oAuto.Name

Note the extra period at the start of the line. That is what links it to the
"With frmChooser" statement

Regards
Jonathan West - Word MVP

Many thanks.  I've changed that but now it doesn't like this line:

For Each oAuto In oTemplate.AutoTextEntries

When I hover over oAuto it says its empty

Cheers Addy

step the through the code. After you get to this line

   Set oTemplate = AddIns("legal.dot")

check whether oTemplate is actually assigned to anything. If it isn't, then
you need to fix that object assignment.

If it is correctly assigned, then check the value of
oTemplate.AutoTextEntries.Count. If it is zero, then oTemplate doesn't have
any autotext entries in it.

Regards
Jonathan West - Word MVP

> I've managed to get my otemplate to be assigned to legal.dot but it says
> my
> oauto is empty and I don't know why because there are autotext enteries in
> legal.dot.  This is what I've got so far:-
>
> These are both in my form chooser:-
>
> Dim oTemplate As Template
> Dim oAuto As AutoTextEntry
>
> The below are in a separate module:-
>
> With frmChooser 'frmchooser is my form (a letter template)
>
> Set oTemplate = AddIns("o:\msoffice97\winword\startup\legal.dot")
> Set oAuto = AutoTextEntry (put this in entra as it wouldn't work)
>
>    For Each oAuto In oTemplate.AutoTextEntries
>    .CBOAddress.AddItem oAuto.Name
>    Next oAuto
>    .Show
>    End With
>
> Do you have an e-mail address that I could maybe sent my whole document to
> you on to find out where I'm going wrong as it is a long and complex form

Addy

OK send it to jwest@mvps.org. I might not have time to look before I go on
holiday this weekend for a fortnight, but I'll see what i can do.

Regards
Jonathan West - Word MVP
Reply to this Message
Jean-Guy Marcil - 30 Aug 2006 00:40 GMT
Addy was telling us:
Addy nous racontait que :

> Jonathan is now on holiday - can anyone else help in his abence
> please?  We have been corresponding over the last few months - please
> see below.  Any help would be greatly appreciated as I'm getting
> quite frustrated now!!

It is difficult for someone else to jumop in and replace Jonathan...

Why don't you tell use exactly what problem you are having right now
insteqad of asking us to read the whole thread and try to figure out what is
it that you

IN any case, I am not sure, but I think that this is were youa re at now:

> Dim oTemplate As Template
> Dim oAuto As AutoTextEntry
[quoted text clipped - 11 lines]
>    .Show
>    End With

I do not understand what you mean by
   "The below are in a separate module:-"

But, your code is still wrong:

> With frmChooser 'frmchooser is my form (a letter template)
>
[quoted text clipped - 6 lines]
>    .Show
>    End With

It should be:

Dim oTemplate As Template
Dim oAuto as AutotextEntry

Set oTemplate = Addins("o:\msoffice97\winword\startup\legal.dot")

With frmChooser
   For Each oAuto in oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAuto.Name
   Next oAuto
   .Show
End With

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 30 Aug 2006 09:01 GMT
Many thanks for your comments Jean.

Sorry if it was confusing.  I just thought it might help to show what
Jonathan had suggested in the past.  My code still doesn't work.  It says
that my oauto is empty.  It is quite difficult to explain through e-mail
without showing you the whole template.  Is it possible I could send you the
whole template so that you can understand what I am trying to do.  It is a
letter template and I would like the address part to have a drop down list
with addresses that come from autotext which is contained in a global add-in
called "legal.dot".  

Many thanks for your help.

Addy

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 57 lines]
>     .Show
> End With
Reply to this Message
Jean-Guy Marcil - 30 Aug 2006 16:30 GMT
Addy was telling us:
Addy nous racontait que :

> Many thanks for your comments Jean.
>
[quoted text clipped - 7 lines]
> that come from autotext which is contained in a global add-in called
> "legal.dot".

Sorry for my atrocious post... forgot to go back and clean it up...

Now, I do not think I need to see your template.
As Jonathan wrote, it the template assignments works and the object is
correctly assigned, then it means your template does not have Autotext
entries in it.

Try this simple code. If the combo box is empty, then for sure your template
does not have any autotext entries in it.

When you create the autotext entries, make sure you select the appropriate
template (legal.dot) in the list at the bottom of the dialog or they will
simply be added to Normal.dot, which is not what you want.

Sub test()

Dim frmChooser As UserForm1
Dim oTemplate As Template
Dim oAuto As AutoTextEntry

Set oTemplate = Templates("o:\msoffice97\winword\startup\legal.dot")
Set frmChooser = New UserForm1

With frmChooser
   For Each oAuto In oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAuto.Name
   Next oAuto
   .Show
End With

End Sub

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 31 Aug 2006 10:13 GMT
I tried your test but it doesn't work.  It comes up with a syntax error and
the below is red

For Each oAuto In oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAuto.Name
   Next oAuto
   .Show

My autotexts are definitely in my legal.dot template and not in normal.  
When I go into addins and open up my legal.dot they are all there in the
autotext tab.

Many thanks.

P.S.  Your English and spelling is better than mine so I wouldn't worry
about your last post!

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 42 lines]
>
> End Sub
Reply to this Message
Jean-Guy Marcil - 31 Aug 2006 15:50 GMT
Addy was telling us:
Addy nous racontait que :

> I tried your test but it doesn't work.  It comes up with a syntax
> error and the below is red
[quoted text clipped - 7 lines]
> normal. When I go into addins and open up my legal.dot they are all
> there in the autotext tab.

Are they still there if you select your template in the "Look in:" drop down
field at the bottom of the "AutoCorrect > AutoText tab" dialog?
If they are, can you post the exact Sub you are using (the one that contains
the snippet you posted above)?
Also, while in the VBE, double click on the ComboBox that is supposed to
receive the autotext names, this will create a default event and its
corresponding Sub, something like:

   Private Sub ComboBox1_Change()

   End Sub

Can you post that as well?

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 31 Aug 2006 16:16 GMT
Yes they are still there when I select legal.dot in look in

This is the whole module:-

Private Sub CBOAddress_Change()

With frmChooser 'frmchooser is my form (a letter template)

Set oTemplate = AddIns("o:\msoffice97\winword\startup\legal.dot")

   For Each oAutotext In oTemplate.AutoTextEntries
   .CBOAddress.AddItem oAutotext.Name
   Next oAutotext
   .Show
   End With

End Sub

This is the sub you wanted.  It only had the dims in the rest was in my ok
sub but tha's massive so I've moved them to the cboaddress sub and below.  
I'm probably missing loads (very new at this as you can probably tell!!):-

Private Sub CBOAddress_Change()
    Dim oTemplate As Template
   Dim oAuto As AutoTextEntry

straddress = Me.CBOAddress.Text
   
   ActiveDocument.Bookmarks("address").Select
   Selection.TypeText straddress
       
End Sub

Many thanks Jean

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 24 lines]
>
> Can you post that as well?
Reply to this Message
Jean-Guy Marcil - 31 Aug 2006 18:54 GMT
Addy was telling us:
Addy nous racontait que :

> Yes they are still there when I select legal.dot in look in
>
[quoted text clipped - 13 lines]
>
> End Sub

I am confused. You have two CBOAddress_Change subs?
In which module are these two subs located?

The one above  will not really work as every time the user makes a change in
the combobox (select an item for example) the code tries to add new items to
the list...

Where is the code that loads the userform and loads the combobox with the
data from the template?

> This is the sub you wanted.  It only had the dims in the rest was in
> my ok sub but tha's massive so I've moved them to the cboaddress sub
[quoted text clipped - 11 lines]
>
> End Sub

This Sub could be reduced to:

Private Sub CBOAddress_Change()

   ActiveDocument.Bookmarks("address").Range.Text = Me.CBOAddress.Text

End Sub

(Try not to use the election object, it slows things down and it is
unreliable.)
If the user makes a second change, the bookmark will be gone and the code
will fail.

This code should be executed not every time the user makes a change in the
combobox, but once just prior to unloading the userform.
Since I do not know what else you have on the userform and who you
instantiate it, I am not sure where you should put that code.

If you have an "OK" button, you could put it in its Click event.
Or in the module that calls the form into being.

If the user can recall the userform as often as needed, then let us know
because the code as is cannot be used more than once (since the bookmark is
gone after execution).

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 01 Sep 2006 12:08 GMT
The template is launched as a copy of the template using this macro:-

WordBasic.FileNew Template:="yw letter", NewTemplate:=0

In VBA I have an autonew in module 1 which lists all the solicitors names so
that the secretary can pick her solicitor and it puts his/her name, e-mail
address, phone number and sign off on automatically.  The rest of the code is
in the OK click sub which has all the dims, variables, declarations and
bookmarks.  Its a very large piece of code do you want it all ?  I put my new
code in module 2 and that's the code I sent to you.  As you rightly pointed
out that is called the same as my CBOaddress change sub which I hadn't
realised so I've given it the name.  

Private Sub Addresslist()

Thanks for the tip about not using election objects, I will change all my
codes as you suggested

Many thanks for your help

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 67 lines]
> because the code as is cannot be used more than once (since the bookmark is
> gone after execution).
Reply to this Message
Jean-Guy Marcil - 01 Sep 2006 14:30 GMT
Addy was telling us:
Addy nous racontait que :

> The template is launched as a copy of the template using this macro:-
>
> WordBasic.FileNew Template:="yw letter", NewTemplate:=0

I do not remember WordBasic off-hand.
Why are you using it?

In "modern" VBA, you should use:
   Documents.Add

So, are you creating a document from a template, or opening a template as a
template?

> In VBA I have an autonew in module 1 which lists all the solicitors
> names so that the secretary can pick her solicitor and it puts
[quoted text clipped - 5 lines]
> is called the same as my CBOaddress change sub which I hadn't
> realised so I've given it the name.

Now, where is the code that loads the combobox and what is it?

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 01 Sep 2006 15:21 GMT
The wordbasic was used by someone else and I just kept it.  I'm creating a
document from a template.  Below is all the codes I have:-

The below is in Module 1.  

Sub autonew()

With frmChooser
   
       .cboNames.AddItem "None"
       .cboNames.AddItem "Stuart D McFarlane"
       .cboNames.AddItem "Peter Cockburn"
       .cboNames.AddItem "Shona J Flood"
       .cboNames.AddItem "Matthew Stevens"
       .cboNames.AddItem "Perminder Kaur"
       .cboNames.AddItem "Andrew Newton"
       .cboNames.AddItem "Dominic Goldthorp"
       .cboNames.AddItem "Deborah Stirling"
       .cboNames.AddItem "Nicola Hewitt"
       .cboNames.AddItem "Hamani Parmar"
       .cboNames.AddItem "Adelaide Seymour"
       .cboNames.AddItem "Lynda Barraclough"
       
       .Show
       
 End With
 
End Sub

The below is in module 2:-

Private Sub Addresslist()
   
With frmChooser 'frmchooser is my form (a letter template)

Set oTemplate = AddIns("o:\msoffice97\winword\startup\legal.dot")

   For Each oAutotext In oTemplate.AutoTextEntries
   .CBOAddress.AddItem oAutotext.Name
   Next oAutotext
   .Show
   End With

End Sub

The below is behind the frmchooser - its very long code I'm afraid

Private Sub CBOAddress_Change()

    Dim oTemplate As Template
   Dim oAutotext As AutoTextEntry
   
   straddress = Me.CBOAddress.Text
   
   ActiveDocument.Bookmarks("address").Range.Text = Me.CBOAddress.Text
   
End Sub

Private Sub cmdOK_Click()

'Declare all basic variables, and populate main ones with data from the form
   Dim strFrom As String
   Dim strEmail As String
   Dim strOurRef As String
   Dim strSalutation As String
   Dim strSubject As String
   Dim strYourRef As String
   Dim strSignoff As String
   Dim strCC As String
   Dim strEnc As String
   Dim strName As String
   Dim strSign As String
   Dim strReply As String
     

   strFrom = Me.cboNames.Text
   strEmail = "@yorkshirewater.co.uk"
   strOurRef = Me.txtOurRef.Value
   strSalutation = Me.txtsalutation.Value
   strSubject = Me.txtSubject.Value
   strYourRef = Me.txtYourRef.Value
'End of variable declarations and population

'Calculate who document is from, and populate variables with person-specific
information
   Select Case strFrom
       Case "None"
           strEmail = ""
           
       Case "Stuart D McFarlane"
           strEmail = "stuart.mcfarlane" & strEmail
           strNo = "4159"
           strRef = "SDM"
           strReply = "Mr Stuart McFarlane"
   
       Case "Peter Cockburn"
           strEmail = "peter.cockburn" & strEmail
           strNo = "4107"
           strRef = "PC"
           strReply = "Mr Peter Cockburn"
           
       Case "Shona J Flood"
           strEmail = "shona.flood" & strEmail
           strNo = "4156"
           strRef = "SF"
           strReply = "Miss Shona Flood"
   
       Case "Matthew Stevens"
           strEmail = "matthew.stevens" & strEmail
           strNo = "4141"
           strRef = "MS"
           strReply = "Mr Matthew Stevens"
           
       Case "Perminder Kaur"
           strEmail = "perminder.kaur" & strEmail
           strNo = "4145"
           strRef = "PK"
           strReply = "Miss Perminder Kaur"
   
       Case "Andrew Newton"
           strEmail = "andrew.newton" & strEmail
           strNo = "4147"
           strRef = "AN"
           strReply = "Mr Andrew Newton"
   
       Case "Dominic Goldthorp"
           strEmail = "dominic.goldthorp" & strEmail
           strNo = "4142"
           strRef = "DG"
           strReply = "Mr Dominic Goldthorp"
   
      Case "Deborah Stirling"
           strEmail = "deborah.stirling" & strEmail
           strNo = "4146"
           strRef = "DS"
           strReply = "Mrs Deborah Stirling"
   
       Case "Nicola Hewitt"
           strEmail = "nicola.hewitt" & strEmail
           strNo = "4139"
           strRef = "NH"
           strReply = "Miss Nicola Hewitt"
           
       Case "Hamani Parmar"
           strEmail = "hamani.parmar" & strEmail
           strNo = "4144"
           strRef = "HP"
           strReply = "Mrs Hamani Parmar"
           
       Case "Adelaide Seymour"
           strEmail = "adelaide.seymour" & strEmail
           strNo = "4170"
           strRef = "AS"
           strReply = "Miss Adelaide Seymour"
           
       Case "Lynda Barraclough"
           strEmail = "lynda.barraclough" & strEmail
           strNo = "4138"
           strRef = "LMB"
           strReply = "Miss Lynda Barraclough"
   
   End Select
   
'End of person-specific variable population
 
'Calculate the sign-off - faithfully or sincerely/Stuart McFarlane or
someone else
   If optfaithfully.Value = True Then
       strSign = "faithfully"
       
       If strFrom = "Stuart D McFarlane" Then
           strSignoff = "Head of Legal Services"
           strName = strFrom
       Else
           strName = ""
           strSignoff = "for Legal Services"
       End If
   
   Else
        strSign = "sincerely"
     
       If strFrom = "Stuart D McFarlane" Then
           strSignoff = "Head of Legal Services"
           strName = strFrom
       Else
           strName = strFrom
           strSignoff = "for Legal Services"
       End If
   
   End If
'End of calculating the sign-off
   

'Start of navigating to bookmarks and inserting appropriate text
   ActiveDocument.Bookmarks("email").Select
   Selection.TypeText strEmail

   ActiveDocument.Bookmarks("extno").Select
   Selection.TypeText strNo

   ActiveDocument.Bookmarks("FE").Select
   Selection.TypeText strRef

   
   ActiveDocument.Bookmarks("ourref").Select
   Selection.TypeText strOurRef

   ActiveDocument.Bookmarks("salutation").Select
   Selection.TypeText strSalutation

   ActiveDocument.Bookmarks("subject").Select
   Selection.TypeText strSubject

   ActiveDocument.Bookmarks("yourref").Select
   Selection.TypeText strYourRef

   ActiveDocument.Bookmarks("signoff").Select
   Selection.TypeText strSignoff

   ActiveDocument.Bookmarks("sign").Select
   Selection.TypeText strSign

   ActiveDocument.Bookmarks("name").Select
   Selection.TypeText strName
   
   ActiveDocument.Bookmarks("reply").Select
   Selection.TypeText strReply
   
'End of inserting text
   
   
'Start of calculating and inserting the 'Copies' and 'Enclosures' text
   If txtcc.Value <> "" Then
       ActiveDocument.Bookmarks("cc").Select
       Selection.TypeText "Copy to:         " & txtcc.Value
   End If

   If txtenc.Value <> "" Then
       ActiveDocument.Bookmarks("enc").Select
       Selection.TypeText "Enclosures:   " & txtenc.Value
   End If
'End of inserting 'Copies' and 'Enclosures' text

Unload Me

'takes cursor to top of document and navigates to the first field
   Selection.HomeKey Unit:=wdStory
   Selection.NextField.Select
   Selection.Fields.Unlink             'converts date field to text

       
   ActiveDocument.Bookmarks("bodytext").Select

End Sub

Private Sub UserForm_Click()

End Sub
Reply to this Message
Jean-Guy Marcil - 01 Sep 2006 19:13 GMT
Addy was telling us:
Addy nous racontait que :

> The wordbasic was used by someone else and I just kept it.  I'm
> creating a document from a template.  Below is all the codes I have:-

Here is a revised version of your code. All you need are two subs. One to
launch and manipulate the userform, as well as populating the document. The
other Sub just to hide the form.

You may have to modify the "CC" and "Enc" related code as I do not know what
txtcc and txtenc are. Here, in this code, I presume that they are text
fields from the userform.

Generally speaking, it is better to keep all code outside of the userform
code, except for code that dynamic (Change or Click events for example).

'_______________________________________
Sub AutoNew()
Dim myForm as frmChooser
Dim oTemplate As Template
Dim oAutotext As AutoTextEntry
Dim strFrom As String
Dim strEmail As String
Dim strOurRef As String
Dim strSalutation As String
Dim strSubject As String
Dim strYourRef As String
Dim strSignoff As String
Dim strCC As String
Dim strEnc As String
Dim strName As String
Dim strSign As String
Dim strReply As String
Dim strAddress As String
Dim strCC As String
Dim strEnc As String

Set oTemplate = Templates("o:\msoffice97\winword\startup\legal.dot")

Set myForm = New frmChooser

With myForm
   With .cboNames
       .AddItem "None"
       .AddItem "Stuart D McFarlane"
       .AddItem "Peter Cockburn"
       .AddItem "Shona J Flood"
       .AddItem "Matthew Stevens"
       .AddItem "Perminder Kaur"
       .AddItem "Andrew Newton"
       .AddItem "Dominic Goldthorp"
       .AddItem "Deborah Stirling"
       .AddItem "Nicola Hewitt"
       .AddItem "Hamani Parmar"
       .AddItem "Adelaide Seymour"
       .AddItem "Lynda Barraclough"
   End With
   For Each oAutotext In oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAutotext.Name
   Next oAutotext
   .Show

   strFrom = .cboNames.Text
   strEmail = "@yorkshirewater.co.uk"
   strOurRef = .txtOurRef.Value
   strSalutation = .txtsalutation.Value
   strSubject = .txtSubject.Value
   strYourRef = .txtYourRef.Value
   strAddress  =  .CBOAddress.Text
   strCC = .txtcc.Text
   strEnc = .txtenc.Text

Unload myForm
Set myForm = Nothing

'Calculate who document is from, and populate variables with person-specific
information
Select Case strFrom
   Case "None"
       strEmail = ""
   Case "Stuart D McFarlane"
       strEmail = "stuart.mcfarlane" & strEmail
       strNo = "4159"
       strRef = "SDM"
       strReply = "Mr Stuart McFarlane"

   Case "Peter Cockburn"
       strEmail = "peter.cockburn" & strEmail
       strNo = "4107"
       strRef = "PC"
       strReply = "Mr Peter Cockburn"

   Case "Shona J Flood"
       strEmail = "shona.flood" & strEmail
       strNo = "4156"
       strRef = "SF"
       strReply = "Miss Shona Flood"

   Case "Matthew Stevens"
       strEmail = "matthew.stevens" & strEmail
       strNo = "4141"
       strRef = "MS"
       strReply = "Mr Matthew Stevens"

   Case "Perminder Kaur"
       strEmail = "perminder.kaur" & strEmail
       strNo = "4145"
       strRef = "PK"
       strReply = "Miss Perminder Kaur"

   Case "Andrew Newton"
       strEmail = "andrew.newton" & strEmail
       strNo = "4147"
       strRef = "AN"
       strReply = "Mr Andrew Newton"

   Case "Dominic Goldthorp"
       strEmail = "dominic.goldthorp" & strEmail
       strNo = "4142"
       strRef = "DG"
       strReply = "Mr Dominic Goldthorp"

   Case "Deborah Stirling"
       strEmail = "deborah.stirling" & strEmail
       strNo = "4146"
       strRef = "DS"
       strReply = "Mrs Deborah Stirling"

   Case "Nicola Hewitt"
       strEmail = "nicola.hewitt" & strEmail
       strNo = "4139"
       strRef = "NH"
       strReply = "Miss Nicola Hewitt"

   Case "Hamani Parmar"
       strEmail = "hamani.parmar" & strEmail
       strNo = "4144"
       strRef = "HP"
       strReply = "Mrs Hamani Parmar"

   Case "Adelaide Seymour"
       strEmail = "adelaide.seymour" & strEmail
       strNo = "4170"
       strRef = "AS"
       strReply = "Miss Adelaide Seymour"

   Case "Lynda Barraclough"
       strEmail = "lynda.barraclough" & strEmail
       strNo = "4138"
       strRef = "LMB"
       strReply = "Miss Lynda Barraclough"
End Select

'End of person-specific variable population

'Calculate the sign-off - faithfully or sincerely/Stuart McFarlane or
someone else
If optfaithfully.Value = True Then
   strSign = "faithfully"
   If strFrom = "Stuart D McFarlane" Then
       strSignoff = "Head of Legal Services"
       strName = strFrom
   Else
       strName = ""
       strSignoff = "for Legal Services"
   End If
Else
   strSign = "sincerely"
   If strFrom = "Stuart D McFarlane" Then
       strSignoff = "Head of Legal Services"
       strName = strFrom
   Else
       strName = strFrom
       strSignoff = "for Legal Services"
   End If
End If
'End of calculating the sign-off

'Start of navigating to bookmarks and inserting appropriate text
With ActiveDocument
   .Bookmarks("email").Range.Text  = strEmail
   .Bookmarks("extno").Range.Text  = strNo
   .Bookmarks("FE").Range.Text  = strRef
   .Bookmarks("ourref").Range.Text  = strOurRef
   .Bookmarks("salutation").Range.Text  = strSalutation
   .Bookmarks("subject").Range.Text  = strSubject
   .Bookmarks("yourref").Range.Text  = strYourRef
   .Bookmarks("signoff").Range.Text  = strSignoff
   .Bookmarks("sign").Range.Text  = strSign
   .Bookmarks("name").Range.Text  = strName
   .Bookmarks("reply").Range.Text  = strReply
   .Bookmarks("address").Range.Text = strAddress
'End of inserting text

'Start of calculating and inserting the 'Copies' and 'Enclosures' text
   If Trim(strCC) <> "" Then
       .Bookmarks("cc").Range.Text = "Copy to:         " & strCC
   End If
   If Trim(strEnc) <> "" Then
       .Bookmarks("enc").Range.Text =  "Enclosures:   " & strEnc
   End If
'End of inserting 'Copies' and 'Enclosures' text
End With

'takes cursor to top of document and navigates to the first field
Selection.HomeKey Unit:=wdStory
Selection.NextField.Select
Selection.Fields.Unlink             'converts date field to text

ActiveDocument.Bookmarks("bodytext").Select

End Sub
'_______________________________________

'_______________________________________
Private Sub cmdOK_Click()

Me.Hide

End Sub
'_______________________________________

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 04 Sep 2006 10:18 GMT
Thanks for that Jean.  Are you saying that I just put the ok click sub behind
the form and the rest of your code in a new module?  I tried that and it
won't work.  Lots of the code is coming up red.   The "CC" is to put copy to:
at the bottom of the letter and "Enc" is to put enclosure at the bottom of
the letter.

Thanks

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 218 lines]
> End Sub
> '_______________________________________
Reply to this Message
Jean-Guy Marcil - 04 Sep 2006 23:07 GMT
Addy was telling us:
Addy nous racontait que :

> Thanks for that Jean.  Are you saying that I just put the ok click
> sub behind the form and the rest of your code in a new module?  I

Yes and no.
Yes for the OK button, but you do not need a new module since you already
have one that contains your own autonew sub. Just replace your autonew by
mine.

> tried that and it won't work.  Lots of the code is coming up red.

If it is red it means that the compiler cannot read the lines of code (watch
out for wrapped text form the NG reader).

If you are not sure, post some of the red line of code.

> The "CC" is to put copy to: at the bottom of the letter and "Enc" is
> to put enclosure at the bottom of the letter.

I now what CC and Enc are. I just meant that I could not tell where the
content for those variables came from as your code was not clear on the
topic...

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 20 Oct 2006 14:57 GMT
Hi Jean

Sorry its me again - the bain of your life!  I have managed to get the
address dropdown to populate at last but its now coming up with an error with
the following codes, its saying they are empty:-

   strFrom = cboNames.Text
   strEmail = "@yorkshirewater.co.uk"
   strOurRef = txtOurRef.Value
   strSalutation = txtsalutation.Value
   strSubject = txtSubject.Value
   strYourRef = txtYourRef.Value
   strAddress = CBOAddress.Text
   strCC = txtcc.Text
   strEnc = txtenc.Text

Any ideas please as they worked in my original macro.  I have pasted below
my code. Many thanks in advance, its driving my insane!

Sub AutoNew()

Dim myForm As frmChooser
Dim oTemplate As Template
Dim oAutotext As AutoTextEntry
Dim strFrom As String
Dim strEmail As String
Dim strOurRef As String
Dim strSalutation As String
Dim strSubject As String
Dim strYourRef As String
Dim strSignoff As String
Dim strName As String
Dim strSign As String
Dim strReply As String
Dim strAddress As String
Dim strCC As String
Dim strEnc As String

Set oTemplate = Templates("o:\msoffice97\winword\startup\legal.dot")

Set myForm = New frmChooser

With myForm
   With .cboNames
       .AddItem "None"
       .AddItem "Stuart D McFarlane"
       .AddItem "Peter Cockburn"
       .AddItem "Shona J Flood"
       .AddItem "Matthew Stevens"
       .AddItem "Perminder Kaur"
       .AddItem "Andrew Newton"
       .AddItem "Dominic Goldthorp"
       .AddItem "Deborah Stirling"
       .AddItem "Nicola Hewitt"
       .AddItem "Hamani Parmar"
       .AddItem "Adelaide Seymour"
       .AddItem "Lynda Barraclough"
   End With
   For Each oAutotext In oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAutotext.Name
   Next oAutotext
   .Show
End With

   strFrom = cboNames.Text
   strEmail = "@yorkshirewater.co.uk"
   strOurRef = txtOurRef.Value
   strSalutation = txtsalutation.Value
   strSubject = txtSubject.Value
   strYourRef = txtYourRef.Value
   strAddress = CBOAddress.Text
   strCC = txtcc.Text
   strEnc = txtenc.Text

Unload myForm
Set myForm = Nothing

'Calculate who document is from, and populate variables with person-specific
Information

Select Case strFrom
   Case "None"
       strEmail = ""
   Case "Stuart D McFarlane"
       strEmail = "stuart.mcfarlane" & strEmail
       strNo = "4159"
       strRef = "SDM"
       strReply = "Mr Stuart McFarlane"

   Case "Peter Cockburn"
       strEmail = "peter.cockburn" & strEmail
       strNo = "4107"
       strRef = "PC"
       strReply = "Mr Peter Cockburn"

   Case "Shona J Flood"
       strEmail = "shona.flood" & strEmail
       strNo = "4156"
       strRef = "SF"
       strReply = "Miss Shona Flood"

   Case "Matthew Stevens"
       strEmail = "matthew.stevens" & strEmail
       strNo = "4141"
       strRef = "MS"
       strReply = "Mr Matthew Stevens"

   Case "Perminder Kaur"
       strEmail = "perminder.kaur" & strEmail
       strNo = "4145"
       strRef = "PK"
       strReply = "Miss Perminder Kaur"

   Case "Andrew Newton"
       strEmail = "andrew.newton" & strEmail
       strNo = "4147"
       strRef = "AN"
       strReply = "Mr Andrew Newton"

   Case "Dominic Goldthorp"
       strEmail = "dominic.goldthorp" & strEmail
       strNo = "4142"
       strRef = "DG"
       strReply = "Mr Dominic Goldthorp"

   Case "Deborah Stirling"
       strEmail = "deborah.stirling" & strEmail
       strNo = "4146"
       strRef = "DS"
       strReply = "Mrs Deborah Stirling"

   Case "Nicola Hewitt"
       strEmail = "nicola.hewitt" & strEmail
       strNo = "4139"
       strRef = "NH"
       strReply = "Miss Nicola Hewitt"

   Case "Hamani Parmar"
       strEmail = "hamani.parmar" & strEmail
       strNo = "4144"
       strRef = "HP"
       strReply = "Mrs Hamani Parmar"

   Case "Adelaide Seymour"
       strEmail = "adelaide.seymour" & strEmail
       strNo = "4170"
       strRef = "AS"
       strReply = "Miss Adelaide Seymour"

   Case "Lynda Barraclough"
       strEmail = "lynda.barraclough" & strEmail
       strNo = "4138"
       strRef = "LMB"
       strReply = "Miss Lynda Barraclough"
End Select

'End of person-specific variable population

'Calculate the sign-off - faithfully or sincerely/Stuart McFarlane or
someone else

If optfaithfully.Value = True Then
   strSign = "faithfully"
   If strFrom = "Stuart D McFarlane" Then
       strSignoff = "Head of Legal Services"
       strName = strFrom
   Else
       strName = ""
       strSignoff = "for Legal Services"
   End If
Else
   strSign = "sincerely"
   If strFrom = "Stuart D McFarlane" Then
       strSignoff = "Head of Legal Services"
       strName = strFrom
   Else
       strName = strFrom
       strSignoff = "for Legal Services"
   End If
End If
'End of calculating the sign-off

'Start of navigating to bookmarks and inserting appropriate text
With ActiveDocument
   .Bookmarks("email").Range.Text = strEmail
   .Bookmarks("extno").Range.Text = strNo
   .Bookmarks("FE").Range.Text = strRef
   .Bookmarks("ourref").Range.Text = strOurRef
   .Bookmarks("salutation").Range.Text = strSalutation
   .Bookmarks("subject").Range.Text = strSubject
   .Bookmarks("yourref").Range.Text = strYourRef
   .Bookmarks("signoff").Range.Text = strSignoff
   .Bookmarks("sign").Range.Text = strSign
   .Bookmarks("name").Range.Text = strName
   .Bookmarks("reply").Range.Text = strReply
   .Bookmarks("address").Range.Text = strAddress
'End of inserting text

End With
'Start of calculating and inserting the 'Copies' and 'Enclosures' text
   
   If txtcc.Value <> "" Then
       ActiveDocument.Bookmarks("cc").Select
       Selection.TypeText "Copy to:         " & txtcc.Value
   End If

   If txtenc.Value <> "" Then
       ActiveDocument.Bookmarks("enc").Select
       Selection.TypeText "Enclosures:   " & txtenc.Value
   End If
   
   
'End of inserting 'Copies' and 'Enclosures' text

'takes cursor to top of document and navigates to the first field
Selection.HomeKey Unit:=wdStory
Selection.NextField.Select
Selection.Fields.Unlink             'converts date field to text

ActiveDocument.Bookmarks("bodytext").Select

End Sub
Reply to this Message
Jean-Guy Marcil - 20 Oct 2006 15:32 GMT
Addy was telling us:
Addy nous racontait que :

> Hi Jean
>
[quoted text clipped - 11 lines]
>    strCC = txtcc.Text
>    strEnc = txtenc.Text

<snip>

> Set oTemplate = Templates("o:\msoffice97\winword\startup\legal.dot")
>
[quoted text clipped - 34 lines]
> Unload myForm
> Set myForm = Nothing

<snip>

Sorry about that, my bad.
In my previous post, the code I gave you was missing an "End With"
statement. So I guess that when you tried to run it, the compiler informed
you that there was an IF or a With block problem. You then added the End
With yourself, but at the wrong place...

When you use this construct:

   With myForm
   .
   .
   .
   End With

it means that all code inside the With block that would normally require
"myForm" at the start of the line can be abbreviated to a ".".
For example, notice you have  a line ".Show". If you did not have the With
block, you would need to write "myForm.Show"
So, to give you a complete example, without With blocks the code would have
been:

   myForm.cboNames
   myForm.cboNames.AddItem "None"
   myForm.cboNames.AddItem "Stuart D McFarlane"
   myForm.cboNames.AddItem "Peter Cockburn"
   myForm.cboNames.AddItem "Shona J Flood"
   myForm.cboNames.AddItem "Matthew Stevens"
   myForm.cboNames.AddItem "Perminder Kaur"
   myForm.cboNames.AddItem "Andrew Newton"
   myForm.cboNames.AddItem "Dominic Goldthorp"
   myForm.cboNames.AddItem "Deborah Stirling"
   myForm.cboNames.AddItem "Nicola Hewitt"
   myForm.cboNames.AddItem "Hamani Parmar"
   myForm.cboNames.AddItem "Adelaide Seymour"
   myForm.cboNames.AddItem "Lynda Barraclough"

   For Each oAutotext In oTemplate.AutoTextEntries
       myForm.CBOAddress.AddItem oAutotext.Name
   Next oAutotext
   myForm.Show

We use the With blocks to make the code easier to read/manage and also
because it is marginally faster, especially when you have lots of references
to objects such as "myForm". The compiler does not have to retrace the
object reference at each line.

Outside of the With block, a statement like:
   strFrom = cboNames.Text
is going to generate an empty string because the compiler does not know what
"cboNames.Text" is.

So, your code should be:

With myForm
   With .cboNames
       .AddItem "None"
       .AddItem "Stuart D McFarlane"
       .AddItem "Peter Cockburn"
       .AddItem "Shona J Flood"
       .AddItem "Matthew Stevens"
       .AddItem "Perminder Kaur"
       .AddItem "Andrew Newton"
       .AddItem "Dominic Goldthorp"
       .AddItem "Deborah Stirling"
       .AddItem "Nicola Hewitt"
       .AddItem "Hamani Parmar"
       .AddItem "Adelaide Seymour"
       .AddItem "Lynda Barraclough"
   End With
   For Each oAutotext In oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAutotext.Name
   Next oAutotext
   .Show

   strFrom = .cboNames.Text
   strEmail = "@yorkshirewater.co.uk"
   strOurRef = .txtOurRef.Value
   strSalutation = .txtsalutation.Value
   strSubject = .txtSubject.Value
   strYourRef = .txtYourRef.Value
   strAddress = .CBOAddress.Text
   strCC = .txtcc.Text
   strEnc = .txtenc.Text

End With

Unload myForm
Set myForm = Nothing

Notice the extra "." I added for all statements that generate the string
variable, except "strEmail" as this is static, (it could be a constant).

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 20 Oct 2006 16:15 GMT
Many thanks for that but it still doesn't work.  I had tried the end with
before where you suggested but moved it as it wouldn't work.  Any other ideas
please.  Its still saying the str's are empty.

Cheers

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 149 lines]
> Notice the extra "." I added for all statements that generate the string
> variable, except "strEmail" as this is static, (it could be a constant).
Reply to this Message
Addy - 20 Oct 2006 16:44 GMT
Sorry false alarm - that bit of code works now I forgot the "."s thought I'd
put them in originally but then realised I'd taken them out.  Only thing is
it now doesn't like

If optfaithfully.Value = True Then

Don't know why are its exactly the same as my original template code.

Cheers

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 149 lines]
> Notice the extra "." I added for all statements that generate the string
> variable, except "strEmail" as this is static, (it could be a constant).
Reply to this Message
Jean-Guy Marcil - 20 Oct 2006 20:53 GMT
Addy was telling us:
Addy nous racontait que :

> Sorry false alarm - that bit of code works now I forgot the "."s
> thought I'd put them in originally but then realised I'd taken them
[quoted text clipped - 3 lines]
>
> Don't know why are its exactly the same as my original template code.

It is because when I suggested my code 3 messages ago, I had not seen that
particular line of code. Must have thought it was some variable... Looked
too fast.

Well, since "optfaithfully" must refer to a control on the userform. and
since you have
   Unload myForm
   Set myForm = Nothing
higher up in the code, the userform is now gone from memory, so
"optfaithfully" refers to nothing.

Do this change:

   If myForm.optfaithfully.Value = True Then

and move

   Unload myForm
   Set myForm = Nothing

to between those two comments:

'End of calculating the sign-off

   Unload myForm
   Set myForm = Nothing

'Start of navigating to bookmarks and inserting appropriate text

_________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org
Reply to this Message
Addy - 25 Oct 2006 14:02 GMT
That is fantastic thank you very much Jean.  I moved the unload myform bit
right to the end because I had some other code similar and I also added
myform. to them also and it works.  I just need to put in another field for
any addresses which need to be added and I've cracked it - cross your fingers
I can work that out by myself!!  

Many thanks for all your help - you've been a godsend.

Addy

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 40 lines]
> jmarcilREMOVE@CAPSsympatico.caTHISTOO
> Word MVP site: http://www.word.mvps.org 
Reply to this Message
Addy - 25 Oct 2006 14:47 GMT
Sorry just realised that its putting in the name of the address but not the
address itself from the autotext - any ideas.  I've sorted the other address
field and thats worked - sorry to bug you again this is honestly the very
last bit !!

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 40 lines]
> jmarcilREMOVE@CAPSsympatico.caTHISTOO
> Word MVP site: http://www.word.mvps.org 
Reply to this Message
Jean-Guy Marcil - 25 Oct 2006 15:28 GMT
Addy was telling us:
Addy nous racontait que :

> Sorry just realised that its putting in the name of the address but
> not the address itself from the autotext - any ideas.  I've sorted
> the other address field and thats worked - sorry to bug you again
> this is honestly the very last bit !!

Sorry, but I do not understand what you are trying to do.

What AutoText?
Where is the address "name" coming from?

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message
Addy - 25 Oct 2006 15:51 GMT
The autotext I am trying to put in is a whole address such as :-

Barnsley County Court
12 Regent Street
BARNSLEY
S70 2EW

but it is just putting in Barnsley County Court and not the rest of the
address.  Obviously if I go into the letter afterwards and press f3 it will
complete the rest of the autotext but wondered if there was something within
the code that would complete it.  I have found a code "InsertAutoText" which
I am fiddling around with. I thought of replacing :-

.Bookmarks("address").Range.text = straddress
with
.Bookmarks("address").Range.InsertAutoText = straddress

but it doesn't work

cheers

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 8 lines]
> What AutoText?
> Where is the address "name" coming from?
Reply to this Message
Addy - 25 Oct 2006 16:26 GMT
I've got it so that it puts the whole address in the dropdown box but I
really only want the company in the dropdown box and the full address to be
added to the letter.  I added it by putting:-

For Each oAutotext In oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAutotext.Value
rather than
For Each oAutotext In oTemplate.AutoTextEntries
       .CBOAddress.AddItem oAutotext.Name

I've tried changing:-

strAddress = .CBOAddress.Text
to
strAddress = .CBOAddress.Value

but it still doesn't put the whole address in.

cheers

> Addy was telling us:
> Addy nous racontait que :
[quoted text clipped - 8 lines]
> What AutoText?
> Where is the address "name" coming from?
Reply to this Message
Jean-Guy Marcil - 25 Oct 2006 18:41 GMT
Addy was telling us:
Addy nous racontait que :

> I've got it so that it puts the whole address in the dropdown box but
> I really only want the company in the dropdown box and the full
[quoted text clipped - 13 lines]
>
> but it still doesn't put the whole address in.

So, if I get this right,

In the userform, the user selects a company.
In the template you have stored each company address as an autotext
So, when the user is done with the userform, you need to correlate the
company name that was selected on the userform with the appropriate address
and enter it in the document at a bookmark.

Is that right?

Signature

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Reply to this Message

 Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage
Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.