Re: How to create a window showing building block organiser in 2007

Jay, Doug, Peter, jec,

I have been toying with this issue for a few hours and another option is to
use one of the custom building block galleries. The display in the gallery
control is larger (not by much) and usually readable as compared to the full
page preview in the organizer.

I have put together a Web tips page describing how the method can be
deployed:

http://gregmaxey.mvps.org/Buiild_Employ_Custom_BB_Gallery.htm

Jay Freedman wrote:
Hi Pete,

Christian is right that the preview from the Building Blocks
Organizer isn't available in VBA/userforms, but what Doug has written
doesn't display a "preview". It displays the text of the entry, in
the font used for the multiline text box in the userform. It won't
show any formatting that's included in the entry; and if the entry
contains a graphic or a field, you'll see an asterisk or the field
code, respectively. On the plus side, if the entries are all text,
the display is guaranteed to be readable.

Greg's contribution doesn't attempt to display anything except the
name of the entry (and a tooltip with an explanatory phrase) -- no
preview there, either.

Programmatic access to the Building Block preview control is
something we're discussing with Microsoft as a desirable feature for
the next version, but it's not something to count on, and definitely
not available now. And if it does become available, it'll probably be
the same tiny unreadable picture you've already said you didn't like.


That's interesting Doug and Greg, MVP Christian Freßdorf says that
Building Blocks cannot be previewed in a modeless userform in Word
2007.

"Doug Robbins - Word MVP" <dkr@xxxxxxxxxxxxxxxxxx> wrote in message
news:%23EybBYjQJHA.4916@xxxxxxxxxxxxxxxxxxxxxxx
You could use a UserForm, displayed as modeless, that contains a
combobox, a multiline textbox and a command button named
cmbAutotext, txtAutotextValue and cmdInsertComment respectively and
have the following code in the User Form

Private Sub cmbAutotext_Change()
With Me.cmbAutotext
.BoundColumn = 2
Me.txtAutotextValue.Text = .Value
End With
End Sub

Private Sub cmdInsertComment_Click()
ActiveDocument.Comments.Add Range:=Selection.Range,
Text:=txtAutotextValue.Text
End Sub

Private Sub UserForm_Initialize()
For i = 1 To NormalTemplate.AutoTextEntries.Count
With NormalTemplate.AutoTextEntries(i)
Me.cmbAutotext.AddItem .Name
Me.cmbAutotext.List(Me.cmbAutotext.ListCount - 1, 1) = .Value
End With
Next i
End Sub

The Initialize statement will load the combobox with the names of
the autotext entries, when an entry is selected in the Combobox,
its value will be displayed in the textbox and clicking on the
command button will insert a comment containing the selected
autotext at the location of the selection.

--
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

"Peter" <Peter@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:08B11F64-1B6E-4214-A23D-EDBB44105796@xxxxxxxxxxxxxxxx
Ideally I would like the window to be formated similiat to the
autotext entry
in Word 2003 e.g. shows the list of names of the items then a
preview of the
contents of the item. Ideally it would be a modeless window that
could float
over the application but this is not necessary. The basic context
is that I
use Word Autotext enties to insert comments into documents when
making assignments.

It works very well in Word 2003 (the autotext box allows you to
easily key
through the enteries and the preview that is shown is large enough
to read
the entries) but in 2007 it is not as easy to use (the names are
not shown in
a list and the entries are not large enough to read). About 13
minutes into
the screeen movie at
http://baker-evans.com/marker%27s-assistant/demo.html
there is a demo.

Any assistance woudl be gratefully received,
Pete Evans

--
Greg Maxey - Word MVP

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



.