nonbreaking hyphen 1

[kyda48]

I am trying to write a macro for Word 2007 in which I have an If statement that seeks to determine if a string is a nonbreaking hyphen. I have tried:

If string = "Chr(30)"
If string = "-"
If string = "^~"


I have even tried to copy and paste the exact character I want into the VBA but then I get:

If string = " "

and it still doesn't recognize it.


Any ideas on what VBA recognizes as the nonbreaking hyphen?

 

[GlennUK]

Well, this looks dodgy:
If string = "Chr(30)"

surely it would be:
If string = Chr(30)

Cheers, Glenn.

Beauty is in the eye of the beerholder.

 

[MakeItSo]

What is more: you are using a reserved word ("string") as variable name.
That's a no-no.

Rename your variable to something else.
"strng" will already do.

[navy]"We had to turn off that service to comply with the CDA Bill."[/navy]
- The Bastard Operator From Hell

 

[strongm]

>surely it would be:
If string = Chr(30)

A pedant writes ...

If string = Chr$(30)

 

[kyda48]

Thanks GlennUK. I was comparing the string to other punctuation marks and they had the quotation marks around them. I didn't even stop to think that I didn't need it for this one. Also, the "string" I used in the post was just for illustrative purposes. I did not actually use the word "string" as my string. Thanks to all who responded.

 

[fumei]

You are testing for a single character? Seems a little odd. How are you working up to getting that character. Just as an afterthought:

Sub HyphenOrNotHypen()
If InStr(1, Selection.Text, Chr(30)) > 0 Then
   MsgBox "Yes, it does."
Else
   MsgBox "No, it does not."
End If
End Sub

Checks to see if there is a Chr(30) hypen anywhere in the selected text. It could just as easily be a given string:

Sub HyphenOrNotHypen()
Dim myString As String
myString = "Yad" & Chr(30) & "dayadda"
If InStr(1, myString, Chr(30)) > 0 Then
   [highlight]MsgBox "Yes, it does."[/highlight]
Else
   MsgBox "No, it does not."
End If
End Sub

Or possibly a Function.

Function IsHypenOrNot(strIn As String) As Boolean
If InStr(1, strIn, Chr(30)) > 0 Then
   IsHypenOrNot = True
End If
End Function

Sub Yadda()
If IsHypenOrNot(ActiveDocument.Paragraphs(1).Range.Text) Then
   MsgBox "The first paragraph has a non-breaking hypen."
End If
End Sub

Gerry