[RESOLVED] Checking hyperlinks

[test_2be]

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

[mendhak]

Moved to office development.

[hensucker]

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?

[test_2be]

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

[westconn1]

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

[test_2be]

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