Word Library reference

S

Shawn G.

Any idea what I have to change to make this work without have the MS Word
Object reference checked? OR is there a way to automatically select the word
object library if the user does not have it checked?


Set WordApp = CreateObject("word.application") 'open Word session
WordApp.Visible = True 'Word visible during operation
WordApp.Activate
Set WordDoc = WordApp.Documents.Open(file_path) 'open Word doc

On Error Resume Next
With WordDoc.Content.Find
With .Replacement
End With
.Execute findtext:="<release plan status>", ReplaceWith:="Initial", _
Replace:=wdReplaceAll
.Execute findtext:="<project/RIA >", ReplaceWith:="Project", _
Replace:=wdReplaceAll
.Execute findtext:="<project#>", ReplaceWith:=strProjNum & " ", _
Replace:=wdReplaceAll
.Execute findtext:="<project name> - or - <RIA name>", _
ReplaceWith:=" " & strProjName, Replace:=wdReplaceAll
.Execute findtext:="<mm/dd/yyyy hh:mm A >", ReplaceWith:=strRlsDate, _
Replace:=wdReplaceAll
End With
WordDoc.Tables(1).Rows(2).Range.Font.Color = wdColorBlue
WordDoc.Tables(1).Rows(2).Range.ParagraphFormat.Alignment =
wdAlignParagraphCenter
WordDoc.Tables(1).cell(2, 1).Range.text = "P & C Property Systems"

WordDoc.Tables(2).Rows(2).Range.Font.Color = wdColorBlue
WordDoc.Tables(2).cell(2, 1).Range.text = "1.0"
WordDoc.Tables(2).cell(2, 2).Range.text = Date
WordDoc.Tables(2).cell(2, 3).Range.text = "Created Document"
WordDoc.Tables(2).cell(2, 4).Range.Font.Color = wdColorAutomatic

On Error GoTo Err_WordDocs
 
R

Ron de Bruin

You can use Late binding

Example to print a word doc

Sub test()
Dim WD As Object
Set WD = CreateObject("Word.Application")
WD.Documents.Open ("C:\ron.doc")
WD.ActiveDocument.PrintOut Background:=False
WD.ActiveDocument.Close
WD.Quit
Set WD = Nothing
End Sub
 
T

Tom Ogilvy

for constants defined in the MS Word Object reference such as

wdReplaceAll


you would have to use the actual value they represent.

In this case, 2

? wdReplaceAll
2

? wdColorBlue
16711680

? wdColorAutomatic
-16777216

Those are the ones I saw skimming through the code.
 
T

Tom Ogilvy

hmmmm,
he is using late binding. His problem is with the constants not being
defined because he is using late binding - at least in my opinion.
 
S

Shawn G.

Where can I find this list of codes????

Tom Ogilvy said:
for constants defined in the MS Word Object reference such as

wdReplaceAll


you would have to use the actual value they represent.

In this case, 2

? wdReplaceAll
2

? wdColorBlue
16711680

? wdColorAutomatic
-16777216

Those are the ones I saw skimming through the code.
 
R

Ron de Bruin

Tom use the Immediate window in the VBA editor (View menu or Ctrl-g)
But if you use the Object browser you can see them also
 
T

Tom Ogilvy

but either method requires you create the reference to the Work object
library for determining their values. If you test you code with the
reference in place, it will hide any that you miss because then the
constants are defined.

Just some thoughts.
 
S

Shawn G.

You guys are GREAT!!!!
ThankYou, Don't know how to use the immediate window but object browser did
the trick!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top