Count Tick marks in a Table

[Aidan Perdisatt]

Is it possible to count tick marks in a column in a Word table. Equally
>can you count incorrect sign (wingdings symbol).
>
>Any help appreciated,
>
>Aidan.

[Cindy Meister -WordMVP-]

Hi Aidan,

> Is it possible to count tick marks in a column in a Word table. Equally
> >can you count incorrect sign (wingdings symbol).
>

Well, yes, you could count the number of instances of a particular
character. What one do you have in mind with "tick marks"?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister
http://go.compuserve.com/MSOfficeForum

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

[Aidan Perdisatt]

Hi Cindy,
Firstly thanks for answer re copying data in cell above current cell in a
Table.

Re this problem I'm trying to count number of correct symbols (alt 0252)
formatted as wingdings in a particular column. I'm also trying to count
number of incorrect symbols (alt 0251) formatted as wingdings. I have
managed to count them all using Table / Formula... but the split is
important re correct / incorrect.

Hope this helps,

Aidan.

Cindy Meister -WordMVP- wrote in message ...

[Cindy Meister -WordMVP-]

Hi Aidan,

> Re this problem I'm trying to count number of correct symbols (alt 0252)
> formatted as wingdings in a particular column. I'm also trying to count
> number of incorrect symbols (alt 0251) formatted as wingdings. I have
> managed to count them all using Table / Formula... but the split is
> important re correct / incorrect.
>

Are these inserted via Insert/Symbol, or actually as Alt+#### and
formatted as Wingdings?

[Aidan Perdisatt]

Hi Cindy,
I recorded a macro. It picked up action of Alt 0252, formatted as Windings
and I put symbol into bold.
I click on a button on toolbar to input tickmark or press F4 to repeat it if
required.

Hope this helps,

Aidan.

Cindy Meister -WordMVP- wrote in message ...

[Cindy Meister -WordMVP-]

Hi Aidan,

> I recorded a macro. It picked up action of Alt 0252, formatted as Windings
> and I put symbol into bold.
>

OK, based on that, I made up this little macro to test. Make the table with
tick marks is the first one in the document, then run this macro. Do you get
the correct count? If yes, could you specify how you'd want the macro
changed to fit what you need?

Sub CountSymbols()
Dim char
Dim counterChar As Long

For Each char In ActiveDocument.Tables(1).Range.Characters
If AscW(char) = -3842 Then
counterChar = counterChar + 1
End If
Next char
MsgBox "I count " & counterChar & " ticks in the table."
End Sub

[Aidan Perdisatt]

Hi Cindy
I tried macro. It gives message box saying 'I count 0 ticks in the table'

I really need the macro to input just a number in the cell below the
tickmarks.

If it helps here is code I used for Correct tickmark.

Sub Tick()
'
' Tick Macro
' Macro recorded 03/07/00 by Aidan Perdisatt
'
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844,
Unicode _
:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Thanks for your continued help,

Aidan.

Cindy Meister -WordMVP- wrote in message ...

[Cindy Meister -WordMVP-]

Hi Aidan,

> I tried macro. It gives message box saying 'I count 0 ticks in the table'
>

Substitute -3844 (from your macro) in the macro code I gave you and see if
you get an expected result?

[Aidan Perdisatt]

Hi Cindy,

I tried that with no luck. It gives message box with 0 ticks.

Ireally need number of ticks to appear below last tick in a separate cell,
purely as a number. In other words I don't need the Message box.

Hope this helps,

Aidan.

Cindy Meister -WordMVP- wrote in message ...

[Cindy Meister -WordMVP-]

Hi Aidan,

> I tried that with no luck. It gives message box with 0 ticks.
>
> Ireally need number of ticks to appear below last tick in a separate cell,
> purely as a number. In other words I don't need the Message box.
>

I know that, but until we can show the number in the message box, we can't
show it in the table, either. Unfortunately, if what I've given you doesn't
work, then I don't have any other approach. I followed your instructions on
how to create ticks exactly, and the macro code worked for me. I suspect
Word may be converting it into a "Symbol" at some point... but I haven't
enough information to know what else to try <shrug>