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.
Word Fields
Keywords: Word Word.Application Field Fields Date List Enumerate wdFieldCreateDate wdFieldDate
Question:
When an MSWord document has date fields and you print the document, it updates the field data to the current date. I need to be able to determine if a document contains these date fields. I have done a bit of research online and can't find anything about detecting these fields.Answer:
See Fields collection and Fields Object ...http://msdn.microsoft.com/en-us/library/bb211922(v=office.12).aspx
; wdFieldCreateDate = 21 ; CreateDate.
; wdFieldDate = 31 ; Date.
strFilename = FileLocate ("Word.Example.docx")
objWord = ObjectCreate ("Word.Application")
objWord.Visible = @TRUE
objDoc = objWord.Documents.Open(:: Filename = strFilename, ReadOnly = @TRUE, Visible = @TRUE)
strMsgTitle = "Fields count = " : objDoc.Fields.Count
ForEach objField In objDoc.Fields
strMsgText = "Field Index = " : objField.Index
strMsgText = strMsgText : @LF : "Field Type = " : objField.Type
strMsgText = strMsgText : @LF : "Field Code = " : objField.Code.Text
strMsgText = strMsgText : @LF : "Field Text = " : objField.Result.Text
Pause (strMsgTitle, strMsgText)
Next
:CANCEL
objDoc.Close
objWord.Quit
DropWild ("obj*")
Exit
Article ID: W18153
Filename: Word Fields.txt
File Created: 2012:06:27:07:38:48
Last Updated: 2012:06:27:07:38:48