Help with a macro

[Carlos Chalhoub]

Sorry for posting this again, but I'm at my wits end, and nobody has given
me a hand yet. Thanks again for any tips, pointers or help.

Carlos

**********************************
Hi again,

I have recycled some code I found on the newsgroup, but can't get it to
work. The code breaks at the midpath line. What I'm trying to do is create a
folder according to the last folder string in the hyperlink's path. Example:
if the hyperlink path is Release\Technnical\srce\CSDC5670.doc, I want to
create a "srce" folder and copy the linked file to it.

Can somebody help please?

For Each aHyperlink In ActiveDocument.Hyperlinks
If Len(aHyperlink.Address) > 0 Then 'hyplink to file
docname = Mid(aHyperlink.Address, InStrRev(aHyperlink.Address, "\") +
1)
midpath = aHyperlink.Address - docname - "\"
docpath = sPath & "\" & Mid(midpath, InStrRev(midpath, "\") + 1)
If docname = docpath Then 'same folder as curr doc
docpath = ActiveDocument.Path & Application.PathSeparator &
docname
Else: MkDir docpath
FileSystemObject.CopyFile docname, docpath & "\"
End If
End If
Next aHyperlink


Hi listmates,

I have been able to fix steps 1 and 2 (see code below). However, I need some
help with saving the hyperlinks. Please be aware, that the hyperlinks do not
necessarily point to Word files. These could be Excel, PDF, MS Project, etc.
files. I guess there should not be a .Follow in my code, because that would
open the link and mess up the macro. Thanks for any help.

Carlos

On Error GoTo CheckErr
'Error Handler

strFileA = ActiveDocument.Name
pos = InStr(strFileA, ".")
If pos > 0 Then
strFileA = Left(strFileA, pos - 1)
End If
sPath = "C:\" & strFileA
MkDir sPath
' Define backup target file path.
ActiveDocument.SaveAs fileName:=sPath & "\" & ActiveDocument.Name

CheckErr:
If err = 75 Then 'Directory Exists
MsgBox "The Folder you are trying to create already exists. The
procedure has been stopped."
Exit Sub
End If


Hi listmates,

I want to open a document from the LAN loaded with hyperlinks to other
documents nested in subfolders below. I need to create a macro that does the
following:

1. Create a folder on my C drive which name mimics that of the active
document (without the extension).
2. Save the active document to the the just created folder.
(I came up with this code, but it does not work)

strFileA = ActiveDocument.Name
pos = InStr(strFileA, ".")
If pos > 0 Then
strFileA = Left(myDocname, pos - 1)
End If
MkDir "C:\" & strFileA
strFileB = "C:\" & strFileA
' Define backup target file path.
ActiveDocument.SaveAs FileName:=strFileB

3. Grab all the hyperlinks in the active document and save the linked files
to subfolders created according the path in the hyperlink, i.e. if the
hyperlink address is
{ HYPERLINK "Process Flow\\BF2273Delete.f" }
then create a sub-folder (under the folder created at step 1) named "Process
folder" and save the file "BF2273Delete.f" to it.

4. After closing the master document, would it be possible to go to the main
folder (created at step 2) and zip it (using WinZip) with all the subfolders
and files included?

Thanks for any pointers or help.
Carlos

 

[Word Heretic]

G'day "Carlos Chalhoub" <[email protected]>,

The InStrRev can return 0 meaning it hasn't found the / which will be
invalid for your calculations. For example, if the hyperlink is
relative to the document path.

So if your first InStrRev is 0, everything is the filename and the
path is the same as the ActiveDocument.Path

If your second one is 0, your path is everything that's left.

Common trap when using InStr and string offsets.

Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


Carlos Chalhoub reckoned: