Multiple Apps

Show Windows Character Map

Ease of Use

Easy

Version tested with

2003 

Submitted by:

Zack Barresse

Description:

Code to run Windows CharMap for inserting characters. In Excel, especially, there is no easy way to insert symbols and special characters. 

Discussion:

In some applications, it is tough to insert special characters and symbols. It's probably easiest in Word. This code is a quick snippet which can be used to show the Windows CharMap. Sample files have been attached, as this can be used in any Office application. Sample files include: 1 Excel Workbook, 1 Word Document, 1 PowerPoint Presentation & 1 Publisher Document. 

Code:

instructions for use

			

Option Explicit Sub ShowCharMap() 'Define the variable Dim WsShell As Object 'Set the varible Set WsShell = CreateObject("WScript.Shell") 'Run the variable WsShell.Run ("charmap") 'Clean up objects Set WsShell = Nothing End Sub

How to use:

  1. Copy above code.
  2. Press Alt + F11 to enter the VBE.
  3. Press Ctrl + R to show the Project Explorer.
  4. Select desired file on left (in bold).
  5. Choose Insert | Module.
  6. Paste code into the right pane.
  7. Press Alt + Q to close the VBE.
  8. Save before any other changes.
 

Test the code:

  1. Press Alt + F8 to open the macro dialog box
  2. Choose 'ShowCharMap'
  3. Click Run
 

Sample File:

CharMapEx.zip 34.22KB 

Approved by mdmackillop


This entry has been viewed 107 times.

Please read our Legal Information and Privacy Policy
Copyright @2004 - 2020 VBA Express