usability problem

Thanks Barb, your code was handy.

Since I posess a strange illness that prevents me from writing in VB i asked
my friend to help me. And with his programming talent and my debugging we
(mostly, he) created this (credits to LastSoul, Ukraine):

===[CUT]===
Option Explicit
Sub fixVisFlags()
Dim i As Integer
Dim vsoDocument As Visio.Document
Dim vsoPages As Visio.Pages
Dim vsoPage As Visio.Page

Set vsoPages = ActiveDocument.Pages
Debug.Print "Document: "; ActiveDocument.Name
For i = 1 To vsoPages.Count
Set vsoPage = vsoPages.Item(i)
Debug.Print " Page: "; vsoPage.Name
fixShapes vsoPage.Shapes
Next i
End Sub
Sub fixShapes(vsoShapes As Visio.Shapes)
Dim j As Integer
Dim vsoShape As Visio.shape
For j = 1 To vsoShapes.Count
Set vsoShape = vsoShapes.Item(j)
Debug.Print " Shape: "; vsoShape.Name
If (vsoShape.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU <>
"0") Then
Debug.Print " Fixed:"; vsoShape.Name
vsoShape.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = "0"
End If
If vsoShape.Shapes.Count > 0 Then
fixShapes vsoShape.Shapes
End If
Next j
End Sub
===[/CUT]===

Just create a macro with any name, wipe it's empty template and insert this
code.
You'll get a fixVisFlags macro that will fix most of problems in already
created document.

I found one rare occasion that we'll investigate further, it occures when
you alredy have a r-to-l shape with (label) that has several differently
formatted text blocks. For some reason only the first one is fixed - it seems
we'd have to add another level of recursion.

Thus, I have some questions:
1. It there a way in Visio DOM to just plainly address all text blocks in
the document in one huge 1-dimensional array as it is possible with elements
in HTML DOM?
2. What should I do to enable this macro to run on stencils? Which objects
should I address and do I have to have the stencils opened?

"Barb Way" wrote:

> You can definitely use a macro to update the stencils that you use
> regularly.

Hello!
Is there any patch to fix the described issue above? I have the same version
of Visio and the same annoying bug in it :
"LEFT arrow key moves cursor to the RIGTH, and RIGTH
arrow key moves cursor to the LEFT. More over, END key moves cursor to the
begining of a text, and HOME key moves cursor (as you already guessed )
to the end of a text"
I have to work with Visio a lot but the solution mentioned here is not
helpful for me, I am not aware how to use it. Please help.
Thanks in advance!

"Barb Way" wrote:

> 1. It there a way in Visio DOM to just plainly address all text blocks in
> the document in one huge 1-dimensional array as it is possible with
> elements
> in HTML DOM?
>
> 2. What should I do to enable this macro to run on stencils? Which objects
> should I address and do I have to have the stencils opened?
>
> There isn't a 'do this for all text' kind of method that I'm aware of in
> the Visio object model.
> Assuming you mean groups, you would generally expect to recursively run
> through all objects .
>
> Alternatively, you could save a drawing or a stencil (or a template) as an
> XML version file, and do a search and replace:
> Find: <Flags>0</Flags>
> Replace with: <Flags>1</Flags>
> ...for instance.
> Although that won't get the items which have a value which they inherited.
> Might be better to search just for "0</Flags>" and replace with "1</Flags>"
> (without any of the quotes, of course)
>
>
> Barb Way
> Product Support - Visio
> Microsoft Corporation
> This posting is provided "AS IS" with no warranties, and confers no rights