WD97: Control Code for Finding/Replacing with Unicode Value

MORE INFORMATION

Microsoft provides examples of Visual Basic for Applications procedures for illustration only, without warranty either expressed or implied, including, but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. The Visual Basic procedures in this article are provided 'as is' and Microsoft does not guarantee that they can be used in all situations. While Microsoft support professionals can help explain the functionality of a particular macro, they will not modify these examples to provide added functionality, nor will they help you construct macros to meet your specific needs. If you have limited programming experience, you may want to consult one of the Microsoft Solution Providers. Solution Providers offer a wide range of fee-based services, including creating custom macros. For more information about Microsoft Solution Providers, call Microsoft Customer Information Service at (800) 426-9400.

The following Visual Basic for Applications macro will generate a list of the decimal equivalents for the unicode character values. You can use these Unicode decimal values with the ^uNNNNN switch.

   Sub UnicodeGenerator()
      Dim I as Integer
      Documents.Add
      ' Set tab stops for clarity.
      Selection.ParagraphFormat.TabStops.ClearAll
      ActiveDocument.DefaultTabStop = InchesToPoints(0.5)
      Selection.ParagraphFormat.TabStops.Add Position:= _
      InchesToPoints(1.5), Alignment:=wdAlignTabCenter, _
      Leader:=wdTabLeaderDots
      ' Insert column headings.
      Selection.InsertAfter "Characters" & Chr(9) & "UniCode Values"
      Selection.InsertParagraphAfter
      ' Character values below 30 generate undesirable results
      ' when inserted into a document. For example, page breaks
      ' and column breaks.
      For i = 30 To 255
         ' Insert the character, a tab and the Unicode equivalent.
         Selection.InsertAfter Chr(i) & Chr(9) & AscW(Chr(i))
         Selection.InsertParagraphAfter
      Next
   End Sub
				

NOTE: To find a character using the Unicode value, click to select the Match Case check box. Word will search for either uppercase or lowercase characters depending on the value used in the search. If you clear the Match Case check box, Word will search all instances of uppercase and lowercase characters specified by the value.

For example, if the Match Case check box is cleared, ^u65 will find all uppercase "A" (Unicode value 65) and lowercase "a" (Unicode value 97) characters in a document.