|
|
|
|
|
|
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()
Dim WsShell As Object
Set WsShell = CreateObject("WScript.Shell")
WsShell.Run ("charmap")
Set WsShell = Nothing
End Sub
|
How to use:
|
- Copy above code.
- Press Alt + F11 to enter the VBE.
- Press Ctrl + R to show the Project Explorer.
- Select desired file on left (in bold).
- Choose Insert | Module.
- Paste code into the right pane.
- Press Alt + Q to close the VBE.
- Save before any other changes.
|
Test the code:
|
- Press Alt + F8 to open the macro dialog box
- Choose 'ShowCharMap'
- Click Run
|
Sample File:
|
CharMapEx.zip 34.22KB
|
Approved by mdmackillop
|
This entry has been viewed 107 times.
|
|