Getting a Macro from Word to Work in Excel
 

I would like to get this macro from MSword to work in excel. I am trying to
get excel to insert a special character while typing in a cell and keep the
curser active for the next letter. For example if I typed the word "WORD" and
I want excel to automatically insert an O, I would type W(shortcutkey for
macro function) RD
Any ideas?

I have this one for Word
Sub Epsilon()
'
' Epsilon Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=949, _
Unicode:=True
End Sub
Sub ReversedC()
'
' ReversedC Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=-343, _
Unicode:=True
End Sub
Sub TheLthing()
'
' TheLthing Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=1512, _
Unicode:=True
End Sub

Getting a Macro from Word to Work in Excel
 

Functions/Macros cannot be executed while a cell is being edited.

The following discussion covered a similar request, you should be able
to modify the solutions to suit.

http://groups.google.com/group/micro...9b304970308a82


On Oct 1, 1:04*pm, EmmieLou
wrote:
I would like to get this macro from MSword to work in excel. *I am trying to
get excel to insert a special character while typing in a cell and keep the
curser active for the next letter. For example if I typed the word "WORD" and
I want excel to automatically insert an O, I would type W(shortcutkey for
macro function) RD
Any ideas?

I have this one for Word
Sub Epsilon()
'
' Epsilon Macro
' Macro recorded 10/1/2008 by
'
* * Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=949, _
* * * * Unicode:=True
End Sub
Sub ReversedC()
'
' ReversedC Macro
' Macro recorded 10/1/2008 by
'
* * Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=-343, _
* * * * Unicode:=True
End Sub
Sub TheLthing()
'
' TheLthing Macro
' Macro recorded 10/1/2008 by
'
* * Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=1512, _
* * * * Unicode:=True
End Sub

Getting a Macro from Word to Work in Excel
 

Thanks!!!

" wrote:

Functions/Macros cannot be executed while a cell is being edited.

The following discussion covered a similar request, you should be able
to modify the solutions to suit.

http://groups.google.com/group/micro...9b304970308a82


On Oct 1, 1:04 pm, EmmieLou
wrote:
I would like to get this macro from MSword to work in excel. I am trying to
get excel to insert a special character while typing in a cell and keep the
curser active for the next letter. For example if I typed the word "WORD" and
I want excel to automatically insert an O, I would type W(shortcutkey for
macro function) RD
Any ideas?

I have this one for Word
Sub Epsilon()
'
' Epsilon Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=949, _
Unicode:=True
End Sub
Sub ReversedC()
'
' ReversedC Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=-343, _
Unicode:=True
End Sub
Sub TheLthing()
'
' TheLthing Macro
' Macro recorded 10/1/2008 by
'
Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=1512, _
Unicode:=True
End Sub