Word 2007 autotexts in menubar

Dear Graham,

Thanks for the link. It took me some time to read it and I have not got the
time yet to go to all of it, but it looks interesting

But Is it not possible to do it an easier way?

If I make a custom dropdown list with a selection of auto text entries in
the older versions of Word (is rather easy) and I open the file in Word 2007
the custom button is shown on the ribbon Add-Inns. After that I can add this
dropdown list to the Quick Access toolbar.

This could be the way to get this list in Word 2007. But there must be a way
to do that directly in Word 2007 without Visio, Com, C++ or XML code.



I am confident with VBA, but in the Help and newsgroups I encounter a lot of
other programming languages, especially XML.

Do I really need to know these languages or can it be done with vba aswel?



Anne






"Graham Mayor" <gmayor RemoveThis @REMOVETHISmvps.org> schreef in bericht
news:%23oaXLHGhJHA.5408@TK2MSFTNGP03.phx.gbl...
> It can be done - see
> http://gregmaxey.mvps.org/Buiild_Employ_Custom_BB_Gallery.htm
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
>
> Anne Schouten wrote:
>> In the older versions of Word it was possible to make a custom
>> menuoption with a some of the autotexts in the template.
>> Is it possible to that in Word 2007 aswel?
>>
>> (In 2007 you can add the whole autotext list as a dropdownmenu on the
>> toolbar, but I cannot find how to edit this list under this button,
>> whithout removing the autotexts from the template)
>>
>> Anne
>
>

Unfortunately not - at least not that I know of. The issue is covered on my
web site at http://www.gmayor.com/Toolbars_in_word_2007.htm
There is quite a bit on programming the ribbon on Greg Maxey's web site, but
if you need add-ins with toolbars it is simpler just to keep a copy of Word
2003 for the purpose.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


Anne Schouten wrote:
> Dear Graham,
>
> Thanks for the link. It took me some time to read it and I have not
> got the time yet to go to all of it, but it looks interesting
>
> But Is it not possible to do it an easier way?
>
> If I make a custom dropdown list with a selection of auto text
> entries in the older versions of Word (is rather easy) and I open the
> file in Word 2007 the custom button is shown on the ribbon Add-Inns.
> After that I can add this dropdown list to the Quick Access toolbar.
>
> This could be the way to get this list in Word 2007. But there must
> be a way to do that directly in Word 2007 without Visio, Com, C++ or
> XML code.
>
>
> I am confident with VBA, but in the Help and newsgroups I encounter a
> lot of other programming languages, especially XML.
>
> Do I really need to know these languages or can it be done with vba
> aswel?
>
>
> Anne
>
>
>
>
>
>
> "Graham Mayor" <gmayor RemoveThis @REMOVETHISmvps.org> schreef in bericht
> news:%23oaXLHGhJHA.5408@TK2MSFTNGP03.phx.gbl...
>> It can be done - see
>> http://gregmaxey.mvps.org/Buiild_Employ_Custom_BB_Gallery.htm
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor - Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site http://word.mvps.org
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>
>>
>> Anne Schouten wrote:
>>> In the older versions of Word it was possible to make a custom
>>> menuoption with a some of the autotexts in the template.
>>> Is it possible to that in Word 2007 aswel?
>>>
>>> (In 2007 you can add the whole autotext list as a dropdownmenu on
>>> the toolbar, but I cannot find how to edit this list under this
>>> button, whithout removing the autotexts from the template)
>>>
>>> Anne

Anne,

Confirming what Graham has already said. If you want to customize the
ribbon itself you will have to learn a little about XML

You could create a custom control on the ribbon that provides a dropdown
(gallery actually) of selected AutoText entries. You would need to use XML
to create the control and then define it with VBA callbacks. Something like
the following:

Hide the Existing Insert>Text Control Group and rebuild a custom group
include a custom gallery control:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<tabs>
<tab idMso="TabInsert">
<group idMso="GroupInsertText" visible="false" />
<group id="customGrpInsertText" label="Text"
insertBeforeMso="GroupInsertText" >
<gallery idMso="QuickPartsInsertGallery" size="large" />
<gallery id="custGallery1" label="AutoText Items" size="large"
imageMso="AutoTextGallery" onAction="LSRC1.GetGalleryIndex" getItemCount=
"LSRC1.GetGalleryCount" getItemLabel="LSRC1.GetGalleryLabels"
getItemImage="LSRC1.GetGalleryImage" columns="1" />
<separator id="sep1" />
<gallery idMso="TextBoxInsertGallery" size="normal" />
<gallery idMso="WordArtInsertGalleryClassic" size="normal" />
<gallery idMso="DropCapInsertGallery" size="normal" />
<separator id="sep2" />
<splitButton idMso="SignatureLineInsertMenu" size="normal" />
<button idMso="DateAndTimeInsert" size="normal" />
<splitButton idMso="OleObjectInsertMenu" size="normal" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Use VBA callbacks to populate the control with "4" selected autotext entries
from "Normal.dotm"

Code in a standard module:

Option Explicit
Public arrAutoText() As String
Public oTmp As Template
Sub AutoOpen()
arrAutoText = Split("Attention:|Best wishes,|Filename|Filename and path",
"|")
Set oTmp = Templates("Normal.dotm")
End Sub

Code in a standard module named LSRC1 for controling the ribbon:

Option Explicit
Sub GetGalleryIndex(ByVal control As IRibbonControl, selectedID As String, _
selectedIndex As Integer)
Select Case control.ID
Case "custGallery1"
oTmp.BuildingBlockEntries(arrAutoText(selectedIndex)).Insert _
Where:=Selection.Range, RichText:=True
Case Else
'Do nothing
End Select
End Sub
Sub GetGalleryCount(ByVal control As IRibbonControl, ByRef Count)
Select Case control.ID
Case "custGallery1"
Count = UBound(arrAutoText) + 1
Case Else
'Do nothing
End Select
End Sub
Sub GetGalleryLabels(ByVal control As IRibbonControl, _
Index As Integer, ByRef label)
Select Case control.ID
Case "custGallery1"
label = arrAutoText(Index)
Case Else
'Do nothing
End Select
End Sub
Sub GetGalleryImage(ByVal control As IRibbonControl, _
Index As Integer, ByRef image)
Select Case control.ID
Case "custGallery1"
image = "AutoTextGallery"
Case Else
'Do nothing
End Select
End Sub


--
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org


"Anne Schouten" <aaschouten.TakeThisOut@hotmail.com> wrote in message
news:6fdfb$49893d89$5ed2077b$10643@cache3.tilbu1.nb.home.nl...
> Dear Graham,
>
> Thanks for the link. It took me some time to read it and I have not got
> the time yet to go to all of it, but it looks interesting
>
> But Is it not possible to do it an easier way?
>
> If I make a custom dropdown list with a selection of auto text entries in
> the older versions of Word (is rather easy) and I open the file in Word
> 2007 the custom button is shown on the ribbon Add-Inns. After that I can
> add this dropdown list to the Quick Access toolbar.
>
> This could be the way to get this list in Word 2007. But there must be a
> way to do that directly in Word 2007 without Visio, Com, C++ or XML code.
>
>
>
> I am confident with VBA, but in the Help and newsgroups I encounter a lot
> of other programming languages, especially XML.
>
> Do I really need to know these languages or can it be done with vba aswel?
>
>
>
> Anne
>
>
>
>
>
>
> "Graham Mayor" <gmayor.TakeThisOut@REMOVETHISmvps.org> schreef in bericht
> news:%23oaXLHGhJHA.5408@TK2MSFTNGP03.phx.gbl...
>> It can be done - see
>> http://gregmaxey.mvps.org/Buiild_Employ_Custom_BB_Gallery.htm
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor - Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site http://word.mvps.org
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>
>>
>> Anne Schouten wrote:
>>> In the older versions of Word it was possible to make a custom
>>> menuoption with a some of the autotexts in the template.
>>> Is it possible to that in Word 2007 aswel?
>>>
>>> (In 2007 you can add the whole autotext list as a dropdownmenu on the
>>> toolbar, but I cannot find how to edit this list under this button,
>>> whithout removing the autotexts from the template)
>>>
>>> Anne
>>
>>
>
>

Greg, thank you for your answer.

I am afraid I have first to learn a bit about XML to fully understand the
procedure.

Anne Schouten

"Greg Maxey" <gmaxey.RemoveThis@mIKEvICTORpAPAsIERRA.oSCARrOMEOgOLF> schreef in bericht
news:eWMEoLthJHA.2384@TK2MSFTNGP04.phx.gbl...
> Anne,
>
> Confirming what Graham has already said. If you want to customize the
> ribbon itself you will have to learn a little about XML
>
> You could create a custom control on the ribbon that provides a dropdown
> (gallery actually) of selected AutoText entries. You would need to use
> XML to create the control and then define it with VBA callbacks.
> Something like the following:
>
> Hide the Existing Insert>Text Control Group and rebuild a custom group
> include a custom gallery control:
> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
> <ribbon>
> <tabs>
> <tab idMso="TabInsert">
> <group idMso="GroupInsertText" visible="false" />
> <group id="customGrpInsertText" label="Text"
> insertBeforeMso="GroupInsertText" >
> <gallery idMso="QuickPartsInsertGallery" size="large" />
> <gallery id="custGallery1" label="AutoText Items" size="large"
> imageMso="AutoTextGallery" onAction="LSRC1.GetGalleryIndex" getItemCount=
> "LSRC1.GetGalleryCount" getItemLabel="LSRC1.GetGalleryLabels"
> getItemImage="LSRC1.GetGalleryImage" columns="1" />
> <separator id="sep1" />
> <gallery idMso="TextBoxInsertGallery" size="normal" />
> <gallery idMso="WordArtInsertGalleryClassic" size="normal" />
> <gallery idMso="DropCapInsertGallery" size="normal" />
> <separator id="sep2" />
> <splitButton idMso="SignatureLineInsertMenu" size="normal" />
> <button idMso="DateAndTimeInsert" size="normal" />
> <splitButton idMso="OleObjectInsertMenu" size="normal" />
> </group>
> </tab>
> </tabs>
> </ribbon>
> </customUI>
>
> Use VBA callbacks to populate the control with "4" selected autotext
> entries from "Normal.dotm"
>
> Code in a standard module:
>
> Option Explicit
> Public arrAutoText() As String
> Public oTmp As Template
> Sub AutoOpen()
> arrAutoText = Split("Attention:|Best wishes,|Filename|Filename and path",
> "|")
> Set oTmp = Templates("Normal.dotm")
> End Sub
>
> Code in a standard module named LSRC1 for controling the ribbon:
>
> Option Explicit
> Sub GetGalleryIndex(ByVal control As IRibbonControl, selectedID As String,
> _
> selectedIndex As Integer)
> Select Case control.ID
> Case "custGallery1"
> oTmp.BuildingBlockEntries(arrAutoText(selectedIndex)).Insert _
> Where:=Selection.Range, RichText:=True
> Case Else
> 'Do nothing
> End Select
> End Sub
> Sub GetGalleryCount(ByVal control As IRibbonControl, ByRef Count)
> Select Case control.ID
> Case "custGallery1"
> Count = UBound(arrAutoText) + 1
> Case Else
> 'Do nothing
> End Select
> End Sub
> Sub GetGalleryLabels(ByVal control As IRibbonControl, _
> Index As Integer, ByRef label)
> Select Case control.ID
> Case "custGallery1"
> label = arrAutoText(Index)
> Case Else
> 'Do nothing
> End Select
> End Sub
> Sub GetGalleryImage(ByVal control As IRibbonControl, _
> Index As Integer, ByRef image)
> Select Case control.ID
> Case "custGallery1"
> image = "AutoTextGallery"
> Case Else
> 'Do nothing
> End Select
> End Sub
>
>
> --
> Greg Maxey - Word MVP
>
> My web site http://gregmaxey.mvps.org
> Word MVP web site http://word.mvps.org
>
>
> "Anne Schouten" <aaschouten.RemoveThis@hotmail.com> wrote in message
> news:6fdfb$49893d89$5ed2077b$10643@cache3.tilbu1.nb.home.nl...
>> Dear Graham,
>>
>> Thanks for the link. It took me some time to read it and I have not got
>> the time yet to go to all of it, but it looks interesting
>>
>> But Is it not possible to do it an easier way?
>>
>> If I make a custom dropdown list with a selection of auto text entries in
>> the older versions of Word (is rather easy) and I open the file in Word
>> 2007 the custom button is shown on the ribbon Add-Inns. After that I can
>> add this dropdown list to the Quick Access toolbar.
>>
>> This could be the way to get this list in Word 2007. But there must be a
>> way to do that directly in Word 2007 without Visio, Com, C++ or XML code.
>>
>>
>>
>> I am confident with VBA, but in the Help and newsgroups I encounter a lot
>> of other programming languages, especially XML.
>>
>> Do I really need to know these languages or can it be done with vba
>> aswel?
>>
>>
>>
>> Anne
>>
>>
>>
>>
>>
>>
>> "Graham Mayor" <gmayor.RemoveThis@REMOVETHISmvps.org> schreef in bericht
>> news:%23oaXLHGhJHA.5408@TK2MSFTNGP03.phx.gbl...
>>> It can be done - see
>>> http://gregmaxey.mvps.org/Buiild_Employ_Custom_BB_Gallery.htm
>>>
>>> --
>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>> Graham Mayor - Word MVP
>>>
>>> My web site www.gmayor.com
>>> Word MVP web site http://word.mvps.org
>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>
>>>
>>> Anne Schouten wrote:
>>>> In the older versions of Word it was possible to make a custom
>>>> menuoption with a some of the autotexts in the template.
>>>> Is it possible to that in Word 2007 aswel?
>>>>
>>>> (In 2007 you can add the whole autotext list as a dropdownmenu on the
>>>> toolbar, but I cannot find how to edit this list under this button,
>>>> whithout removing the autotexts from the template)
>>>>
>>>> Anne
>>>
>>>
>>
>>
>
>

"Anne Schouten" <aaschouten RemoveThis @hotmail.com> wrote in message
news:a479c$49856e3e$5ed2077b$17723@cache4.tilbu1.nb.home.nl...
> In the older versions of Word it was possible to make a custom menuoption
> with a some of the autotexts in the template.
> Is it possible to that in Word 2007 aswel?
>
> (In 2007 you can add the whole autotext list as a dropdownmenu on the
> toolbar, but I cannot find how to edit this list under this button,
> whithout removing the autotexts from the template)

First, for clarify since this seems to be confusing to some, what was
formerly known as AutoText is now called Building Blocks in Word 2007. If
you created AutoText entries in a previous version of Word they are migrated
to Building Blocks but are assigned to the AutoText gallery.

If you want to make certain Building Blocks available for insertion when you
create a new document based on the template you can move them to a custom
gallery. That custom gallery can then be added to the Quick Access Toolbar.

What you need to do is open your template, display the Building Blocks
Organizer, available on the Insert tab under Quick Parts, and edit the
Properties of the Building Blocks you want to display in a custom gallery.
All you need to do is change the gallery from AutoText to say, Custom 1 and
make sure Save In reflects your template. After you've moved them to another
gallery then you can add the Custom Gallery to the Quick Access Toolbar
(QAT) using the following steps:

- Make sure your template is open
- Right-click the QAT and select "Customize Quick Access Toolbar"
- From the "Customize Quick Access Toolbar" drop down, select your template
- From the "Choose commands from drop down" select "Commands not in the
Ribbon"
- Locate and select Custom Gallery 1
- Click Add to add it to the QAT

When a new document based on the template is created the custom gallery will
be added the user's QAT and the Building Blocks will be available for
insertion.

--
~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP
https://mvp.support.microsoft.com/profile/Melton
What is a Microsoft MVP? http://mvp.support.microsoft.com/gp/mvpfaqs

Guides for the Office 2007 Interface:
http://office.microsoft.com/en-us/training/HA102295841033.aspx

Here is a real world application that I don't think is addressed by these
gallery parts. I used autotext in a template (so it wouldn't show up
globally) assigned to certain styles so only certain autotexts would show up
in a document. I sectioned out where those styles were so I could simply go
to the autotext toolbar, select the correct autotext for that section and
move along. This is for a bank, where we had 15 sections, all with 10
variables (up to 20) at each section. Using styles, it would know what you
wanted, and then I built a macro to lock and unlock the sections (because the
autotext were actually form modules).

I can add all these sections to the gallery, but it would take a lot of work
to see what is supposed to go where, and also, there might be slight
variances of the same autotext that is applicable in one section, but not in
another; I can't prevent the users from seeing this anymore.

I cannot do this at all anymore in word 2007 from what I can see. All help
assumes you want autotext from your normal template, which I do not. I can
import the autotext from the original 2003 template, but it all just shows up
in one huge list that is basically useless.

I also can't find a way to make a gallery only show up certain entries based
on what section it is in from looking around (meaning I don't mind readding
these quick parts, but I can't restrict based on the section; A user has to
go three three menus to restrict what they are seeing, and that is
counter-intuitive).

"Beth Melton" wrote:

> "Anne Schouten" <aaschouten.DeleteThis@hotmail.com> wrote in message
> news:a479c$49856e3e$5ed2077b$17723@cache4.tilbu1.nb.home.nl...
> > In the older versions of Word it was possible to make a custom menuoption
> > with a some of the autotexts in the template.
> > Is it possible to that in Word 2007 aswel?
> >
> > (In 2007 you can add the whole autotext list as a dropdownmenu on the
> > toolbar, but I cannot find how to edit this list under this button,
> > whithout removing the autotexts from the template)
>
> First, for clarify since this seems to be confusing to some, what was
> formerly known as AutoText is now called Building Blocks in Word 2007. If
> you created AutoText entries in a previous version of Word they are migrated
> to Building Blocks but are assigned to the AutoText gallery.
>
> If you want to make certain Building Blocks available for insertion when you
> create a new document based on the template you can move them to a custom
> gallery. That custom gallery can then be added to the Quick Access Toolbar.
>
> What you need to do is open your template, display the Building Blocks
> Organizer, available on the Insert tab under Quick Parts, and edit the
> Properties of the Building Blocks you want to display in a custom gallery.
> All you need to do is change the gallery from AutoText to say, Custom 1 and
> make sure Save In reflects your template. After you've moved them to another
> gallery then you can add the Custom Gallery to the Quick Access Toolbar
> (QAT) using the following steps:
>
> - Make sure your template is open
> - Right-click the QAT and select "Customize Quick Access Toolbar"
> - From the "Customize Quick Access Toolbar" drop down, select your template
> - From the "Choose commands from drop down" select "Commands not in the
> Ribbon"
> - Locate and select Custom Gallery 1
> - Click Add to add it to the QAT
>
> When a new document based on the template is created the custom gallery will
> be added the user's QAT and the Building Blocks will be available for
> insertion.
>
> --
> ~~~~~~~~~~~~~~~
> Beth Melton
> Microsoft Office MVP
> https://mvp.support.microsoft.com/profile/Melton
> What is a Microsoft MVP? http://mvp.support.microsoft.com/gp/mvpfaqs
>
> Guides for the Office 2007 Interface:
> http://office.microsoft.com/en-us/training/HA102295841033.aspx
>
>
>