Garry,

The new code works great and I am working on the formatting issue. The only thing I would ask for help with now... is that when I ran the GARRY code with 150 cell sheet and it found an error (broken link), there is no way to know which file it is referring to for the error. I think that if it highlighted the field and the message box came up then it would be a much easier to fix. Or any other thoughts would be great. I am trying to insert: Interior.Color = 65535 to highlight the color but I keep getting an object error. Any thoughts? Guru Garry. You have been a huge help in this project as well as in my learning. Thanks man.

Marty

Garry,

The new code works great and I am working on the formatting issue.
The only thing I would ask for help with now... is that when I ran
the GARRY code with 150 cell sheet and it found an error (broken
link), there is no way to know which file it is referring to for the
error. I think that if it highlighted the field and the message box
came up then it would be a much easier to fix. Or any other thoughts
would be great. I am trying to insert: Interior.Color = 65535 to
highlight the color but I keep getting an object error. Any
thoughts? Guru Garry. You have been a huge help in this project as
well as in my learning. Thanks man.

Marty

The filename should be displayed as the 'InitialFilename' in the browse
dialog when the listed file does not exist! What else do you need to
know?

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

That is what I thought it would do as well. But it does not. When I test 45 links and two of them are broken, on purpose to test. The directory shows up to replace the file but does not give the initial file name. So you dont know which one is broken and from there you cannot replace it.

Marty

That is what I thought it would do as well. But it does not. When I
test 45 links and two of them are broken, on purpose to test. The
directory shows up to replace the file but does not give the initial
file name. So you dont know which one is broken and from there you
cannot replace it.

Marty

Ah.., I forgot to include the FileFilter arg. Sorry about that!

Add this with the other declares at the top of the routine...

Const sFileTypes$ = "(*.ppt; *.pptx), *.ppt; *.pptx"

...and revise the GetSaveAsFilename args as follows...

GetSaveAsFilename(vList(n, 1), sFileTypes, , sTitle)

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

No worries. I am in the office today and I will play with it again here in a bit. Thanks Garry.

I was doing some research on some example code that deals with PowerPoint and copying the source formatting. This is some code I snagged that I am playing with.


sourceSlide.Copy()
def destinationPresentation = objPpt.Presentations.Open(destinationFilename)
destinationPresentation.Application.CommandBars.Ex ecuteMso("PasteSourceFormatting")

The check hyperlink and replace function works great now. Ill keep researching the formatting copy issue.