Hmm... Now it's getting interesting.
There are some applications that interfere with Word's toolbars. One that
comes to mind is the horrid Adobe PDFMaker.dot, which tries to display its
own toolbar every time a document opens, and often ends up wrecking all the
toolbars.
So the first thing after testing your template as suggested by Beth is to
check for the presence of "add-ins" sometimes known as "Haxies" -- things
that promise to make your use of Word or the Mac "easy". Most of us run at
least some of them, but there are some that are not properly house-trained.
If you have several, give us their names and we'll try to tell you which
ones behave badly.
Now: Toolbars can "belong" to either the "Application" or to the
"Document". Some toolbars will not appear unless you have at least one
document open. Others will appear only if you have a document open in which
you have previously used that toolbar.
If you display a toolbar, then save the document in which you displayed it,
then re-open that document, the toolbar should appear. If that's not
happening, the document or your Normal Template is corrupt.
OK, let¹s see if we can make Word tell us what¹s wrong: Here are two
macros. The first you¹ve seen before: it simply enables and makes visible a
toolbar you nominate. If a toolbar is not enabled, it cannot be either
revealed or hidden, it behaves as though it were not there at all.
The second macro prompts you for the name of a toolbar, then tells you
whether it is enabled, and whether it is visible. It will also tell you
whether it doesn¹t exist at all. You should never see a ³Doesn't exist² on
a built-in toolbar (if you do, your template is corrupt) but you might get
it for one you have created then deleted. If the second macro says the
toolbar you want is both enabled and visible, then it¹s behind something.
Move your document and toolbars around until you find it. If the toolbar
you want is not enabled, run the first macro to heave it into view.
Sub RevealToolbar()
Dim tb As CommandBar
Dim strName As String
strName = "Reviewing"
strName = InputBox("Which toolbar?", , "Reviewing")
For Each tb In Application.CommandBars
If tb.Name = strName Then
With tb
.Enabled = True
.Visible = True
.Left = 0
End With
End If
Next ' tb
End Sub
Sub QueryToolbar()
Dim tb As CommandBar
Dim doesExist As Boolean
Dim strName As String
Dim strEnabled As String
Dim strVisible As String
strEnabled = "DISabled"
strVisible = "Hidden"
strName = InputBox("Which toolbar?", , "Standard")
For Each tb In Application.CommandBars
If UCase(tb.Name) = UCase(strName) Then
doesExist = True
With tb
If .Enabled Then strEnabled = "Enabled"
If .Visible Then strVisible = "Visible"
End With
Exit For
End If
Next ' tb
If doesExist Then
MsgBox "Toolbar " & strName & " is " & strEnabled & " and is " _
& strVisible & "."
Else
MsgBox "Toolbar " & strName & " does not exist."
End If
End Sub
Well,
Me again.. and no good news now. I said already that my problem was
solved, but unfortunatelly it is not
The toolbar appeared once, then I closed word, and when I relaunch it,
toolbar is not there. Then I ran again the macro, and toolbar didn't
appear. I tried closing word and open it again, and then run the
macro. Sometimes it works, and some other do not. Tried in between to
reset the toolbar, and doesn't seem to help.
What can be wrong?
Thanks,
Brainiac
--
Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.
John McGhie <
[email protected]>
Microsoft MVP, Word and Word for Macintosh. Business Analyst, Consultant
Technical Writer.
Sydney, Australia +61 (0) 4 1209 1410
