TheResult = theResult & 'ERROR!: ' & thisHyperlink.Address & ' ' & thisHyperlink. TheResult = theResult & 'Testing: ' & thisHyperlink.Address & ' ' & thisHyperlink.TextToDisplay & vbCrLfĪctiveDocument.FollowHyperlink thisHyperlink.AddressĪ theResult Now go to the Word document, place your cursor where you want the copied cells to go and click on Edit, Paste Special. Begin by highlighting the range of cells (A1 to D4) you want displayed in the document and copy it (Ctrl+C). TheResult = vbCrLf & '-8 '' And Left(thisHyperlink.Address, 6) 'mailto' Then Caveat: Both the spreadsheet and the document must be in the same folder (subdivision). Ideally I would like the VBA code to return the HTTP status of the document and perhaps the Title of the web page that is returned and not actually open the document in my browser.Ĭan anyone give me some pointers towards approaches or code. I am sure it will break if there are many links in the Word document.

It only picks up if a 404 error is returned and it results in heaps of windows being opened on my computer. Can anyone give me some pointers towards approaches or code. Ideally I would like the VBA code to return the HTTP status of the document and perhaps the Title of the web page that is returned and not actually open the document in my browser.

Sections in Word can be fickle (see InfoBit Blog Section Breaks). I created a massive (300 page) Word document by copy-pasting text, tables and images from various external (Word and Excel) documents. I am currently using the following code which goes through the document and inserts a list of links, link text and if there is an error opening the page at the end of the document. I am sure it will break if there are many links in the Word document. T he purpose of this Microsoft Word Tips & Microsoft Word Help page is provide a VBA solution to automatic linked headers and footers.

Break link in word document