Call Macro from Input Box String

Paulsh · #1 10-31-2011, 05:40 PM

I am trying to write a macro for Word 2010 to type the name and typist at the end of a letter. I want the typist to the sender's initials such as "jas" in an InputBox and then call the macro "jas" which will then type "John A. Smith." There are multiple initials-name macros that could be called to type the name of a particular sender.

I've been pulling my hair our reading up on and experimenting with "PassByRef" and "Call," etc. and have found 300+ different way not to write the code.

The code would (simply) look like this:

Dim strSender As String
Dim strTypist As String

' selection and cursor movement omitted here for brevity

strSender = InputBox("Enter Sender's Initials:", "SENDER")

Call (strSender)
' it's at this point the "jas" macro would type "John A. Smith"

Selection.TypeParagraph
Selection.TypeParagraph

Selection.TypeText Text:=strSender
Selection.TypeText Text:="/"
strTypist = InputBox("Enter Typist's Initials:", "TYPIST")
Selection.TypeText Text:=strTypist

I did this in WordPerfect years ago by using "nest" and "get." We're converts to all Word now and VBA has me stumped on this one.

Any assistance in solving this dilemma would be greatly appreciated.

Thank you.

Paulsh

macropod · #2 11-01-2011, 03:15 AM

Hi Paulsh,

Have you considered using autotext function? Alternatively, you could store both the initials and names in a single macro:

Code:

Sub AddSender()
Dim StrNames As Variant, StrInits As Variant, StrSender As String, i As Long
StrSender = InputBox("Enter Sender's Initials:", "SENDER")
If StrSender = "" Then Exit Sub
StrInits = Array("mc", "yz", "ar")
StrNames = Array("Michael Carlton", "Yasmin Zanders", "Andy Ryan")
For i = 0 To UBound(StrInits)
  If StrInits(i) = StrSender Then
    Selection.InsertAfter StrNames(i)
    Exit For
  End If
Next
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro VBA "Save as" with bookmarks in file name string	Dom37	Word VBA	2	10-31-2011 03:28 AM
Call Excel from Word	donlincolnmsof	Word	0	10-14-2011 05:02 PM
Help with VBA macro - Variable input	sc30317	Excel Programming	0	08-31-2011 01:00 PM
Macro or Function to know wether a string is included in a text	Eduardo	Word VBA	5	06-15-2009 01:55 AM
How do I call/execute an Excel macro from Access 2003	KramerJ	Excel	2	05-11-2009 11:33 AM