Database Search

TechHome

• 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.

Template Info in Word

 Keywords:  Template Directories Info Associated Word

Example 1:

; Gets template directories from Word
; Same values as found under the menu Tools|Options|FileLocations

wdWorkgroupTemplatesPath = 3
wdUserTemplatesPath = 2
appWord = ObjectOpen("Word.Application")
oOptions = appWord.Options
PathUserTemplates=oOptions.DefaultFilePath(wdUserTemplatesPath)
PathWorkgroupTemplates=oOptions.DefaultFilePath(wdWorkgroupTemplatesPath)
appWord.Quit
ObjectClose(oOptions)
ObjectClose(appWord)

Message("Template paths",StrCat("User Templates: ",PathUserTemplates,@Crlf,@Crlf,"Workgroup Templates: ",PathWorkgroupTemplates))
exit

Example 2:

;Gets the Currently loaded documents Associated template

appWord = ObjectOpen("Word.Application")
appWord.visible = @false
docname = "C:\temp\sysparam.doc"
docs = appWord.documents
docs.open(docname)
activedoc = appWord.activedocument
bidp = activedoc.builtindocumentproperties(6); Template
template = bidp.value
message("Pages in %docname%", template)
docs.close
appWord.quit
objectclose(activedoc)
objectclose(appWord)
exit

Article ID:   W15268

File Created: 2002:09:20:07:30:48

Last Updated: 2002:09:20:07:30:48