[RESOLVED] Checking hyperlinks

Hi,

I am novice using vbscript and I m blocked to write a script for checking hyperlinks in doc file (word)
Maybe someone can help me
I have written a piece of code but I want to automize it.
What I do is checking hyperlinks in a doc file and write the result in a htm file.
For this it's ok
But what I want to do is checking all hyperlinks of all doc files (word) for a whole directory (ex : all word files present in C:\Temp)
I don't know if it's possible (I have more than 100 doc files to check and I don't want to specify manually all fiels to be checked)
This is what I have written :
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set objWord = CreateObject("Word.Application")
objWord.Visible = FALSE

Set objDoc = objWord.Documents.Open("C:\Temp\auto.doc")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\temp\chklinks.htm", ForWriting, True)

Set colHyperlinks = objDoc.Hyperlinks
For Each objHyperlink in colHyperlinks
objFile.WriteLine "<a href=" & chr(34) & objHyperlink.Address & Chr(34) & ">" & _
objHyperlink.TextToDisplay & "</a href><br>"
Next

objFile.Close

Set objDoc = objWord.Documents.Open("C:\Temp\maison.doc")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\temp\chklinks.htm", ForAppending, True)

Set colHyperlinks = objDoc.Hyperlinks
For Each objHyperlink in colHyperlinks
objFile.WriteLine "<a href=" & chr(34) & objHyperlink.Address & Chr(34) & ">" & _
objHyperlink.TextToDisplay & "</a href><br>"
Next


objFile.Close

Thanks a lot
Sergio

Moved to office development.

how do you want it automated?
as such, for instance when you open and excel file?
to just run from one location? i.e. and exe file?

Hi,

I want to execute this when opening an excel file.
The directory wich contains doc files to be checked will be always the same (ex : C:\Temp) but doc files may change.
So I want first to list all *doc for this directory and check hyperlinks of those doc files only.
I don't know if it's clear but my english is not so good :-) sorry for this

If you need more info let me know I will try to explainbetter or give some example

Thanks for your help

vb Code:

mypath = "C:\temp\"
mydoc = dir(mypath & "*.doc")  ' get first doc file
do while len(mydoc) > 0
  Set objDoc = objWord.Documents.Open(mypath & mydoc)
  ' your code here
  objdoc.close
  mydoc = dir  ' get next file
loop

Hi,

Thanks for your support. The 'Dir' comands was not supported by vbscript but I found a workaround.
I will close the topic, thanks one more time

Regards