Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can Excel work like Word? | Excel Discussion (Misc queries) | |||
Getting Word to work with Excel | Excel Programming | |||
Getting Word to work with Excel | Excel Programming | |||
Which Excel and Word will work with Windows x64? | Excel Discussion (Misc queries) | |||
Is there a 'WORK' menu in Excel ? (same as WORD) | Excel Programming |