Finding out whether a cap toggle has occurred

[Larry]

Is there a way of knowing if a change ordered by vba has actually
occurred?

For example, I'd like to know, after running the below code, whether the
case of a character was actually changed, since the character might have
been punctuation that doesn't have a case.

If Selection.Words(1).Characters(1).Case = wdUpperCase Then
Selection.Words(1).Characters(1).Case = wdLowerCase
Else
Selection.Words(1).Characters(1).Case = wdUpperCase
End If

Thanks,
Larry

 

[Jonathan West]

Hi Larry

Try this

Dim strChar as String
With Selection.Words(1).Characters(1)
strChar = .Text
If .Case = wdUpperCase Then
.Case = wdLowerCase
Else
.Case = wdUpperCase
End If
If .Text <> strChar Then
MsgBox "Character was modified"
Else
MsgBox "Character was not modified"
End If
End With

 

[Larry]

Thanks, Jonathan. That's very neat and simple. .

Larry

 

[Larry]

.... so simple that I was apparently unable to think of it myself.

 

[Jonathan West]

... so simple that I was apparently unable to think of it myself.

It's only obvious *after* you've seen how to do it