Re: Including Subfolders for use within Word 2003 Macro

From: helpserv (helpsucceed-hints_at_yahoo.com)
Date: 10/05/04 

Date: 4 Oct 2004 17:33:27 -0700

In response to your query regarding the exact nature and error:

The following was done already- selected the reference as requested,
and then copied directly from here the suggested code, pasted it into
notepad, pasted it into Microsoft Visual Basic Editor with NO
MODIFICATIONS TO THE CODE.

Then selected from the Tools bar, Macro, in WORD 2003 and OFFICE 2003
using XP professional as the operating system. Then selected MACRO it
opened a window where I then selected the name of the macro and then
RUN. The Macro then opened a window entitled COPY, inside it were
folders to look in and then I selected a folder with documents I
wanted to use the macro with. I then left clicked ONE TIME thereby
highlighting the folder and then left clicked OPEN on the bottom
right.

The macro then returns an error code Run-time error '76':
                                     Path not found

Selecting debug brings up Microsoft Visual Basic Editor and in YELLOW
highlight is the line as follows:

Set oFolder = fs.GetFolder(PathToUse)
 
The above line of code appears within the Public Sub section and is
the 15th actual line of code, including the 2 empty blank lines where
no code appears,

In the VBA editor, there are NO lines in RED. Only green lines which
are preceded by a ' and black lines of code. I note there are a few
empty lines where no code appears.

In an effort to eliminate a potential issue in advance, I have
carefully deleted the few empty lines and that resulted in no
difference, the same error appears.

In addition, I note there is a solid line which crosses the entire
Microsoft Visual Basic Editor editing portion of the screen and is
immediately after the line of code End Sub which appears within the
Public Sub Section, if that means anything.

Any help or suggestions will be appreciated, this project is important
and time sensitive and when done must be accurate. The original
difficulty was the inability of the macro to also do the sub folders.
Consequently, relying on long, hand written lists of folders and then
volunteers making sure they wrote the folder list properly and then
that someone ran the original macro on each and every folder. It's
like inventory checking in a huge warehouse but worse. We noted
entire folders were not included, and what's worse is when we needed
to run the same thing several times since we are in editing mode of
all these documents, its been contributing to a poor use of limited
resources and volunteers.

Thank you one and all for your help, and for your being thoughtful to
others.

 

Jay Freedman <jay.freedman@verizon.net> wrote in message news:<2td1m09lr8r3u9crn44dq6buhi9gatj4ka@4ax.com>...
> Answers, in order of your questions, with more questions:
>
> - When you say the code doesn't appear to work, exactly what are the
> symptoms? Do you get an error message, or do you get wrong footers or
> no footers in the documents, or does it seem that the macro doesn't
> run at all? Exactly how are you trying to run the macro?
>
> - Yes, the three references you list should be sufficient. The macro
> runs on my system -- which is also Word 2003 on Windows XP Pro -- with
> only those references selected.
>
> - When the macro runs, it should open the Copy dialog; you should be
> able to navigate to the topmost folder of the group you want to work
> on and click OK, and that path is returned to the macro. This part of
> the macro is exactly the same as the one you posted, which you said
> was working except for not doing subfolders.
>
> - If you get an error message about a syntax error, I suspect you
> might be having trouble with extra line breaks introduced into the
> code by the newsgroup posting mechanism. In the VBA editor, are there
> any lines in red? If so, which ones?
>
> - Yes, the o in oFolder is deliberate. It's a bad idea to name
> variables the same as data types or other keywords of the VBA
> language, which can lead to confusion. The o (which stands for object)
> distinguishes the variable oFolder from the data type Folder. This is
> based on a system called "Hungarian notation" (invented by Charles
> Simonyi), which you can read about at
> http://msdn.microsoft.com/library/techart/hunganotat.htm.
>
> --
> Regards,
> Jay Freedman http://aspnet2.com/mvp.ashx?JayFreedman
> Microsoft Word MVP FAQ: http://word.mvps.org
>
> helpsucceed-hints@yahoo.com (helpserv) wrote:
>
> >Hi Jay, and all the others out there willing to help others:
> >
> >Installed the code as provided, after making the required selection of
> >the Microsoft Scripting Runtime-- however the code does not appear to
> >work (most likely something we are unaware of how to do).
> >
> >We note the following References are selected: Visual Basic for
> >Applications, Microsoft Word 11.0 Object Library and Microsoft
> >Scripting Runtime are the only 3 References selected. Are they the
> >only ones necessary for this code to work properly? Are they the
> >correct references?
> >
> >We are using Word 2003, as part of Office 2003 on a Windows XP
> >Professional operating system.
> >
> >There is an issue with the process of the path and how the file
> >folders are selected. Are we supposed to enter manually into the
> >code, the path? Or are we supposed to be seeing a window of some kind
> >where we make the actual selection.
> >
> >We pasted the code as offered into notepad and then copied it into the
> >Macro editor. Are there any modifications of any kind supposed to be
> >entered into the code by us? Or are we supposed to be able to use the
> >code as written exactly?
> >
> >By the way, there appears in the code suggested, places where there
> >are o's in what otherwise wouldn't spell a word. For example see the
> >second line to follow where the word folder is preceded by the o:
> > Public Sub OnlyPrint()
> > Dim fs As FileSystemObject, oFolder As Folder
> > Dim PathToUse As String
> >
> >Is the o that appears periodically throughout the code supposed to be
> >there?
> >
> >
> >Thank you for your consideration. Please be aware this macro is for
> >use by a non profit youth program that does not discriminate in its
> >membership and no one is turned away if they can not afford
> >membership. Your assistance is appreciated and profoundly makes a
> >difference.

Relevant Pages

  • Re: Including Subfolders for use within Word 2003 Macro
    ... Exactly how are you trying to run the macro? ... the three references you list should be sufficient. ... distinguishes the variable oFolder from the data type Folder. ... >where we make the actual selection. ...
    (microsoft.public.word.docmanagement)
  • VB Macro to delete text at the end of each of the files in a folde
    ... with have corrupt text at the end. ... May I please ask you to help me by writing a macro that will do the following: ... Open the first file in that folder. ... 11.5444689897386>0.0000>100670.4175, selection = ...
    (microsoft.public.word.vba.general)
  • need assist with save as csv code
    ... for it to add the next blank row to the selection. ... Sub SaveAsCSV() ... 'This macro will SAVE AS to C:\Trees folder, ...
    (microsoft.public.excel.programming)
  • Re: How To Convert Thousands of Works 7.0 Files to Word 2007 Simultaneously
    ... from a given folder. ... Here's the entirety of my first macro, ... I was able to install your macro. ... browse capability to navigate to a folder in which I wish to convert Works ...
    (microsoft.public.word.docmanagement)
  • Re: How To Convert Thousands of Works 7.0 Files to Word 2007 Simultaneously
    ... individual folder level, using built-in dialogs to enable the user to select ... It opens each file in the folder that matches the search string ... error trapping in the macro, it is not a good idea to include code to delete ... the dialog's browse capability to navigate to a folder in which I ...
    (microsoft.public.word.docmanagement)