title: VBA Word Selection.TypeText changing font?
body: <p>I have a font which has lots of special unicode characters in, I would like to type them into a word document using a macro. </p>
  
  <p>A very simplified version looks like this:</p>
  
  <pre><code>Sub Macro2()
      Selection.TypeText (ChrW(58081))
  End Sub
  </code></pre>
  
  <p>I can see using BabelMap (a font viewer), that the character at decimal 58081 is the one I want to enter.</p>
  
  <p><strong>The Issue</strong></p>
  
  <p>When I run this macro, the font changes from the font with the special characters to "Calibri" which is the default. This causes the character to show up as a square box similar to </p>
  
  <p>If I then manually highlight the square box and change it to my desired font, it corrects itself and shows up.</p>
  
  <p><strong>What I have tried</strong></p>
  
  <p>I have tried setting the font again before typing the text, it doesn't make a difference:</p>
  
  <pre><code>With Selection
          .font.Name = "MyFont"
  End With
  Selection.TypeText (ChrW(58081))
  </code></pre>
  
  <p>I have also tried adding to the macro to go back and change the font after inserting it. This doesn't make a difference either, the code I use is this:</p>
  
  <pre><code>With Selection
          .font.Name = "MyFont"
  End With
  
  Selection.TypeText (ChrW(58081))
  
  Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.font.Name = "MyFont"
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  </code></pre>
  
  <p><strong>A useful observation</strong></p>
  
  <p>When I enter a character within a normal set, e.g:</p>
  
  <pre><code>Selection.TypeText (ChrW(97))
  </code></pre>
  
  <p>This works without changing the font as I expect - why does the font change when I enter 58081?</p>