Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE with Word
- Append Multiple Word Documents Together
- Change font in Word Document
- Change Font of Entire Doc File
- Change Margin and Fonts in Word DOC
- Changing Word Page Header
- Convert an RTF File to Plain Text file using Word
- Count bookmarks in Word
- Create a Word-document with table
- Create Hyperlinks in Word
- Extract Data from a Table in Word
- Extract Image from Word document
- Find and Replace Text in Word Document
- Find the Links in a Word Doc
- Get File Path to Word
- Get total number of pages
- Insert Text and CRLFs into a Word Doc
- Insert Wave File into a Word Document
- Inserting Pictures Into Table Cells in Word
- Mail Merge Warning in Word
- OLE and Word Basic Macro Language
- OLE and Word Example
- OLE Word File Append
- Print a MS Word document to to a PostScript printer
- Print an Envelope from Word
- Read Word Doc Line by Line
- Recordset to MS Word Table
- Run a Word Macro
- Setting Password in Word
- Spell Checker
- Template Info in Word
- Wait for Document to Load Completely
- Word - Constants
- Word Fields
- Word File Append
- WORD Find and Replace
- Word Mail Merge
- Word SaveAs HTML
- Word SaveAs
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Create Hyperlinks in Word
Question:
I am trying to write a number of hyperlinks into the same document. I have a script that runs on my file server and flags any files that meet certian criteria and then I write the paths to those files into a logfile - I would like all the paths in the logfile to be hyperlinked.Answer:
docfile = "c:\temp\temp.doc"
objWord = objectopen("Word.Application")
objWord.visible = @true
objDocs = objWord.Documents
objDocs.Open(docfile)
objActDoc = objWord.ActiveDocument
objSelection = objWord.Selection
objHyperlinks = objActDoc.Hyperlinks
objRange = objSelection.Range
objHyperlinks.Add(:: Anchor=objRange, Address="C:\Temp\text1.txt", SubAddress="", ScreenTip="", TextToDisplay="Link 1")
objSelection.TypeParagraph
objRange = objSelection.Range
objHyperlinks.Add(:: Anchor=objRange, Address="C:\Temp\text2.txt", SubAddress="", ScreenTip="", TextToDisplay="Link 2")
objSelection.TypeParagraph
objRange = objSelection.Range
objHyperlinks.Add(:: Anchor=objRange, Address="C:\Temp\text3.txt", SubAddress="", ScreenTip="", TextToDisplay="Link 3")
objSelection.TypeParagraph
Pause("","Look at hyperlink the doc file")
ObjectClose(objHyperlinks)
ObjectClose(objRange)
ObjectClose(objSelection)
ObjectClose(objActDoc)
ObjectClose(objDocs)
ObjectClose(objWord)
Article ID: W16143
File Created: 2004:03:30:15:42:58
Last Updated: 2004:03:30:15:42:58