Replies

Thank you once again.

The breadth of knowledge in this forum is amazing (and a great resource for people like me who think that Excel should be able to do something, but can’t figure it out).

YES!

Thank you.

of course, why be a piker?

instead of conc use c

fortunately, that is one that I use rarely

try the autocorrect trick; e.g., conc will give you =concatenate when you enter the (

understood, but my question was more to why maximum and minimum were abbreviated for the function name and average was not. Did Lotus copyright the @avg?

I finally set up autocorrect to have avg give me =average( as I continually transpose letters when I type….

it works! it works!

Thanks!

I got the error message to go away, but now it keeps looping back and opening the dialog box after I open a file. Two escapes gets me back to the edit screen. Thanks for your time….

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
‘if a choice is clicked
Dim strFirstLetter As String
strFirstLetter = Left(Me.ListBox1.Value, 1)
ShowOpenDialog strFirstLetter
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
‘if a key is pressed
ShowOpenDialog Chr(KeyAscii)
End Sub

Sub ShowOpenDialog(strLetter As String)
‘whether clicked or key-pressed, this sub shows the file open dialog
strNewPath = “”
Select Case strLetter
Case “A”, “a”: strNewPath = “C:WP”
Case “B”, “b”: strNewPath = “C:WPADMINISTRATION”
Case “C”, “c”: strNewPath = “C:WPADDRESS”
Case “D”, “d”: strNewPath = “C:WPMARKET”
Case “E”, “e”: strNewPath = “C:WPMGP”
Case “F”, “f”: strNewPath = “C:WPPROPOSAL”
Case “G”, “g”: strNewPath = “C:WPCES”
Case “H”, “h”: strNewPath = “C:!projects”
Case “I”, “i”: strNewPath = “DjcDJShare”
Case “J”, “j”: strNewPath = “c:!ona hearing data”
Case “K”, “k”: strNewPath = “c:WPONA MINE”
Case “L”, “l”: strNewPath = “c:!projects”
Case “M”, “m”: strNewPath = “A:”
Case “N”, “n”: strNewPath = “D:”
End Select

If Not Right(strNewPath, 1) = “” Then
strNewPath = strNewPath & “”
End If

With Dialogs(wdDialogFileOpen)
.Name = strNewPath
.Show
End With

End Sub
Private Sub UserForm_Initialize()
Me.CommandButton1.Cancel = True
Me.CommandButton1.Caption = “Cancel”
With Me.ListBox1
.AddItem “A C:WP”
.AddItem “B C:WPADMINISTRATION”
.AddItem “C C:WPADDRESS”
.AddItem “D C:WPMARKET”
.AddItem “E C:WPMGP”
.AddItem “F C:WPPROPOSAL”
.AddItem “G C:WPCES”
.AddItem “H C:projects”
.AddItem “I Dj(2) c:DJShare”
.AddItem “J c:!ona hearing data”
.AddItem “K c:wpona mine”
.AddItem “L c:!projects”
.AddItem “M A:”
.AddItem “N D:”
.SetFocus
End With
End Sub

it opens the correct dialog box, but when I select a file, it loads and I get a runtime error “5479”

“you cannot close Microsoft Office Word because a dialog box is open. Click OK, switch to Word, and then close dialog box”

thanks
And yes I was aware of the buttons, but as someone who learned to type in the 60’s (decade, not speed ), I’m much faster with the keyboard than with the mouse and prefer not to take my hands off the keyboard. My typing has gotten much more accurate with the advent of AutoCorrect…..

That’s what I thought, but I wanted to check with people who know a lot more about Excel than I.Thanks.

thanks, I’ll give it a try

Thanks. I’ll try out the macro.

I agree the document is strange, but that’s partially because it is a translated scanned pdf file. I just discovered ABBYY PDF Transformer, which converts non-searchable pdfs into editable Word or Excel. It does an excellent job if the pages have been scanned straight. If they’re crooked, the page is converted to an image. I assume the program is your basic OCR without having to physically scan the page first. Worth the $49.99 to be able to word-seach the documents.

Again, thanks for your help.

John

Thanks for the post. Helped me work through and fix problem with word 2003.

wonderful article. stepped my way through and found the error in the startup folder. Thanks to you and Phil.

thanks. I’ll step my way through it over the next several days.