WORD 2007 macro error

I have several WORD 2003 macros.

Now I'm trying out WORD 2007, I find that some of these no longer work - the
macro statements return ' error 5111 - this command is not available '.

example statement is: With Application.FileSearch

FileSearch is still listed as a valid Application property on the help
pages. Have some of these been removed or disabled ?

zkid
Thu Oct 05 15:10:02 CDT 2006

Would you please provide the full chunk of code?

We need to see what it is that you're attempting to accomplish,

In the meantime, I seem to recall that I had trouble with
Application.FileSearch in VBA 2003 but not in XP, so I substituted the
following code in its place. I'm REALLY shortcutting it here with a message
box so you can see how it works. Of course, you would need to substitute
your code to either fill an array or list box, depending on what you're
attempting to do with it:

Dim myFile, strFolder As String, iCount As Integer

'Due to the way 2007 names files, you need to keep the asterisk after the
extension. This will also work in all other versions of Word (after 95, that
is).

strFolder = "c:\TheFolderToSearch\*.doc*" 'For all files, use *.*.

iCount = 0

myFile = Dir$(strFolder)
Do While myFile <> ""
iCount = iCount + 1
MsgBox myFile
myFile = Dir$
Loop

If iCount = 0 Then MsgBox "No Word files were found in the following
location: " & strFolder


"Chris Letts" wrote:

> I have several WORD 2003 macros.
>
> Now I'm trying out WORD 2007, I find that some of these no longer work - the
> macro statements return ' error 5111 - this command is not available '.
>
> example statement is: With Application.FileSearch
>
> FileSearch is still listed as a valid Application property on the help
> pages. Have some of these been removed or disabled ?
>

ChrisLetts
Mon Oct 09 03:59:01 CDT 2006

yes I can easily substitue new code - that's not the point though - it means
I have to re-write many existing macros. The help pages say that these SHOULD
work, but they don't.

here is some code (which works fine in WORD 2003):


Sub insert_pic()
'
' insert_pic Macro
' Macro recorded 27/09/2006 by Administrator
'
Dim student As String

With Application.FileSearch
.NewSearch
.LookIn = "E:\speech"
.SearchSubFolders = False
.FileName = "*.jpg"


If .Execute() > 0 Then

For i = 1 To .FoundFiles.Count

Selection.InlineShapes.AddPicture FileName:=.FoundFiles(i),
LinkToFile:=False, SaveWithDocument:=True

student = .FoundFiles(i)
howlong1 = Len(.LookIn)
howlong2 = Len(student)


student = Right$(student, howlong2 - howlong1 - 1)
howlong2 = Len(student)
student = Left$(student, howlong2 - 4)


Selection.TypeText Text:=student

Selection.MoveRight Unit:=wdCell

Next i
Else
MsgBox "There were no files found."
End If
End With



End Sub


"zkid" wrote:

> Would you please provide the full chunk of code?
>
> We need to see what it is that you're attempting to accomplish,
>
> In the meantime, I seem to recall that I had trouble with
> Application.FileSearch in VBA 2003 but not in XP, so I substituted the
> following code in its place. I'm REALLY shortcutting it here with a message
> box so you can see how it works. Of course, you would need to substitute
> your code to either fill an array or list box, depending on what you're
> attempting to do with it:
>
> Dim myFile, strFolder As String, iCount As Integer
>
> 'Due to the way 2007 names files, you need to keep the asterisk after the
> extension. This will also work in all other versions of Word (after 95, that
> is).
>
> strFolder = "c:\TheFolderToSearch\*.doc*" 'For all files, use *.*.
>
> iCount = 0
>
> myFile = Dir$(strFolder)
> Do While myFile <> ""
> iCount = iCount + 1
> MsgBox myFile
> myFile = Dir$
> Loop
>
> If iCount = 0 Then MsgBox "No Word files were found in the following
> location: " & strFolder
>
>
> "Chris Letts" wrote:
>
> > I have several WORD 2003 macros.
> >
> > Now I'm trying out WORD 2007, I find that some of these no longer work - the
> > macro statements return ' error 5111 - this command is not available '.
> >
> > example statement is: With Application.FileSearch
> >
> > FileSearch is still listed as a valid Application property on the help
> > pages. Have some of these been removed or disabled ?
> >

Cindy
Mon Oct 09 04:11:29 CDT 2006

Hi =?Utf-8?B?Q2hyaXMgTGV0dHM=?=,

FileSearch is definitely being removed from Office 2007. The reasoning is that
file searching is part of the Operating System (Vista) and doesn't belong in
individual applications. The old "Dir" command should still work.

> I have several WORD 2003 macros.
>
> Now I'm trying out WORD 2007, I find that some of these no longer work - the
> macro statements return ' error 5111 - this command is not available '.
>
> example statement is: With Application.FileSearch
>
> FileSearch is still listed as a valid Application property on the help
> pages. Have some of these been removed or disabled ?
>

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)

ChrisLetts
Mon Oct 09 04:53:02 CDT 2006

I guessed as much, however the help pages need updating - they still list
that as a valid function.......

"Cindy M." wrote:

> Hi =?Utf-8?B?Q2hyaXMgTGV0dHM=?=,
>
> FileSearch is definitely being removed from Office 2007. The reasoning is that
> file searching is part of the Operating System (Vista) and doesn't belong in
> individual applications. The old "Dir" command should still work.
>
> > I have several WORD 2003 macros.
> >
> > Now I'm trying out WORD 2007, I find that some of these no longer work - the
> > macro statements return ' error 5111 - this command is not available '.
> >
> > example statement is: With Application.FileSearch
> >
> > FileSearch is still listed as a valid Application property on the help
> > pages. Have some of these been removed or disabled ?
> >
>
> Cindy Meister
> INTER-Solutions, Switzerland
> http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
> http://www.word.mvps.org
>
> This reply is posted in the Newsgroup; please post any follow question or reply
> in the newsgroup and not by e-mail :-)
>
>

Cindy
Thu Nov 30 10:54:04 CST 2006

Hi =?Utf-8?B?Q2hyaXMgTGV0dHM=?=,

> I guessed as much, however the help pages need updating - they still list
> that as a valid function.......
>
Not anymore (after the release of RTM)

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)