WD97: Control Code for Finding/Replacing with Unicode Value

• Microsoft Word 97 for Windows

SUMMARY

In Microsoft Word 97, you can use a search control code to search for a character by its Unicode value. The syntax of the control code is as follows

   ^uNNNNN

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 engineers 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

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.

REFERENCES

For more information about Unicode in Microsoft Word 97, please see the following articles in the Microsoft Knowledge Base:

   ARTICLE ID: Q160070
   TITLE: WD97: Symbol Dialog Different from Previous Versions

   ARTICLE ID: Q159950
   TITLE: WD97: General Information About International Functionality

   ARTICLE ID: Q157478
   TITLE: WD97: What's New in Word 97