using VBscript to format Word Document

[John T.]

I'm now experimenting to format WORD documents to the way I want them to look.

Here's what I want:

A single line of text centered at the top, that simply says "Program info" (a different color would be nice too). What is the object command to center text in word? I couldn't find anything specific in the microsoft site.

 

Then I want it to be followed by 2 short columns, which contains essential information, such as customer name, description, program name, item number, etc. Then a seperate two columns that shows the tool list, 10 tools per column. I have the printout of the TextColumn Object here, but I think VBScript wants me to declare InchesToPoints, but I get a error message if I try to declare it as a constant or array.

 

Then, under the tool list columns, a single line that tells the TL0 location. (or one very short pagewide column)

 

Lastly, the rest of the page blank for a graphic of the part. Or a single column, whichever works.

 

I think this list hinges on the TextColumn Object.

 

John

[Mick from CNC Software Inc.]

John,

 

One of the quickest ways to learn office vba is to record a new macro doing the things you mentioned, then open the VBA editor (right click toolbar check Visual Basic) and look in the Normal.dot bas module. Press F2 to view the object browser, select Word to only see word objects, you can also copy and paste any const and enum declares you may need for the script.

[John T.]

Neat trick, macro recording!

 

I still get the InchesToPoints error. What is it supposed to be, a constant, a integer, or a variable? with different declarations, I get things like "type mismatch","subscript out of range", "(value as integer)"?

 

John

[Mick from CNC Software Inc.]

John,

 

Can you post or send me the script that you have and I'll take a look at it.

[Bullines]

quote:

---

A single line of text centered at the top, that simply says "Program info" (a different color would be nice too). What is the object command to center text in word?

---

Here's a small snippet to get you started.

 

code:

---

' vars

Dim objWord As Word.Application ' Word app object

Dim objDOC As Word.Document ' Word document object

 

' create an instance of Word

Set objWord = CreateObject("Word.Application")

appWord.Visible = True

Set objDOC = objWord.Documents.Add

 

' make John T's title

objWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

objWord.Selection.Font.Size = 14

objWord.Selection.Font.Bold = True

objWord.Selection.Font.Name = "Arial"

objWord.Selection.Font.Color = wdColorRed

objWord.Selection.TypeText Text:="Program info"

objWord.Selection.TypeText Text:=Chr(11) ' <-- this is a new line

 

' more wicked awesome code to create the rest of the DOC

 

' clean up

Set objWord = Nothing

Set objDOC = Nothing

---

You may need to enumerate some of those values for VBS. The Office Developer Section on MSDN comes in handy.

 

Hope this gets you started.

[John T.]

Thanks for that snippet bulllines.

 

I think I'm confused about enumerate. Doesn't that mean to make a code "shortcut", such as:

 

Set wordDoc=CreateObject("word.Application")

 

So instead of typing the whole thing out, I can just type:

 

With wordDoc

.Visible=True

 

etc, etc.

 

Is that correct?

 

I've been reading up at the MSDN library a good bit now.

 

Mick, I'll send some code shortly.

 

John

[John T.]

Mick,

Heres the code in question. I've noted the 2 macros I've been trying, and are causing problems. The first one is supposed to set margins, the second one a vertical, rotated text box on the upper right. The margin code seems to be asking to have the InchesToPoints defined first, and the text box code keeps insisting there needs to be a right parentheses ")"

 

John

 

code:

---

Dim wordDoc

 

'///////////////// My Constants /////////////////

Dim companyname

Dim Program

Dim Description

Dim Post

Dim programmer

 

Const wdAlertsNone=0

Const wdWindowStateMaximize=1

Const wdLine=5

 

 

 

'///////////////// My Global Variables //////////

 

 

 

' -- Start Script

Call Main()

 

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

 

 

 

WriteString("Company Name?")

companyname=AskString("company Name?")

Program=AskString("program number?")

Description=AskString("description")

Post=AskString("fadal")

programmer=AskString("programmer?")

 

Set wordDoc=CreateObject("Word.Application")

 

wordDoc.Documents.Add

With wordDoc

.Visible=True

.WindowState=wdWindowStateMaximize

.DisplayAlerts=wdAlertsNone

 

.Selection.PageSetup.LeftMargin = InchesToPoints(0.5) 'start of margin setting macro

.Selection.PageSetup.RightMargin = InchesToPoints(0.5)

.Selection.PageSetup.TopMargin = InchesToPoints(0.5)

.ActiveWindow.ActivePane.VerticalPercentScrolled = 20

.Selection.PageSetup.BottomMargin = InchesToPoints(0.5) 'end of margin setting macro

 

.ActiveDocument.Words(1).Text="Company "&companyname&vbTab&"Program "&Program&vbTab&"Dir "&GetCurrentFileName()&vbNewLine & _

"Description "&Description&"Post "&post&" Stock Size "&GetJobSetupStockSizeX&" X "&GetJobSetupStockSizeY&" X "&GetJobSetupStockSizeZ

 

.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 513#, _

108#, 45#, 117#).Select 'start of macro code

.Selection.ShapeRange.TextFrame.TextRange.Select ' should put the "Program" string in a vertical box

.Selection.Collapse

.Selection.ShapeRange.Select

.Selection.ShapeRange.IncrementLeft 36#

.Selection.ShapeRange.IncrementTop -18#

.Selection.Orientation = wdTextOrientationDownward

.Selection.Font.Size = 24

.Selection.TypeText Text:=Program 'end macro code

End With

 

End Sub

 

---

 

[ 03-11-2004, 11:58 PM: Message edited by: John T. ]

[Bullines]

John T.

 

Is this more what you're after?

 

code:

---

Dim wordDoc

 

'///////////////// My Constants /////////////////

Dim companyname

Dim Program

Dim Description

Dim Post

Dim programmer

 

Const wdAlertsNone=0

Const wdWindowStateMaximize=1

Const wdLine=5

 

' add these

Const msoTextOrientationHorizontal = 1

Const wdTextOrientationDownward = 3

 

 

 

'///////////////// My Global Variables //////////

 

 

 

' -- Start Script

Call Main()

 

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

 

 

 

WriteString("Company Name?")

companyname=AskString("company Name?")

Program=AskString("program number?")

Description=AskString("description")

Post=AskString("fadal")

programmer=AskString("programmer?")

 

Set wordDoc=CreateObject("Word.Application")

 

wordDoc.Documents.Add

With wordDoc

.Visible=True

.WindowState=wdWindowStateMaximize

.DisplayAlerts=wdAlertsNone

 

'start of margin setting macro

.Selection.PageSetup.LeftMargin = .InchesToPoints(0.5) ' resolve back to Word object

.Selection.PageSetup.RightMargin = .InchesToPoints(0.5) ' resolve back to Word object

.Selection.PageSetup.TopMargin = .InchesToPoints(0.5) ' resolve back to Word object

.ActiveWindow.ActivePane.VerticalPercentScrolled = 20 ' resolve back to Word object

.Selection.PageSetup.BottomMargin = .InchesToPoints(0.5) ' resolve back to Word object

'end of margin setting macro

 

.ActiveDocument.Words(1).Text="Company "&companyname&vbTab&"Program "&Program&vbTab&"Dir "&GetCurrentFileName()&vbNewLine & _

"Description "&Description&"Post "&post&" Stock Size "&GetJobSetupStockSizeX&" X "&GetJobSetupStockSizeY&" X "&GetJobSetupStockSizeZ

 

.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 513, 108, 45, 117).Select 'start of macro code

.Selection.ShapeRange.TextFrame.TextRange.Select ' should put the "Program" string in a vertical box

.Selection.Collapse

.Selection.ShapeRange.Select

.Selection.ShapeRange.IncrementLeft 36

.Selection.ShapeRange.IncrementTop -18

.Selection.Orientation = wdTextOrientationDownward

.Selection.Font.Size = 24

.Selection.TypeText Program 'end macro code

End With

 

End Sub

---

[Mick from CNC Software Inc.]

John,

 

I have put a comment (mag) where I made changes to get your script to run.

 

code:

---

Dim wordDoc

 

'///////////////// My Constants /////////////////

Dim companyname

Dim Program

Dim Description

Dim Post

Dim programmer

 

Const wdAlertsNone=0

Const wdWindowStateMaximize=1

Const wdLine=5

 

 

' -- Were missing mag

Const msoTextOrientationHorizontal = 1

Const wdTextOrientationDownward = 3

'///////////////// My Global Variables //////////

 

 

 

' -- Start Script

Call Main()

 

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

 

'WriteString("Company Name?")

companyname=AskString("company Name?")

Program=AskString("program number?")

Description=AskString("description")

Post=AskString("fadal") ' -- You can call GetPostName() mag

programmer=AskString("programmer?")

 

 

Set wordDoc=CreateObject("Word.Application")

 

wordDoc.Documents.Add

 

With wordDoc

 

.Visible=True

.WindowState=wdWindowStateMaximize

.DisplayAlerts=wdAlertsNone

 

' -- InchesToPoints is an App method mag

.Selection.PageSetup.LeftMargin = .InchesToPoints(0.5) 'start of margin setting macro

.Selection.PageSetup.RightMargin = .InchesToPoints(0.5)

.Selection.PageSetup.TopMargin = .InchesToPoints(0.5)

.ActiveWindow.ActivePane.VerticalPercentScrolled = 20

.Selection.PageSetup.BottomMargin = .InchesToPoints(0.5) 'end of margin setting macro

 

.ActiveDocument.Words(1).Text= "Company "& companyname & vbTab & "Program " & Program & vbTab & "Dir " & GetCurrentFileName() & vbNewLine & _

"Description " & Description & " Post " & post & " Stock Size " & GetJobSetupStockSizeX & " X " & GetJobSetupStockSizeY & " X " & GetJobSetupStockSizeZ

 

.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 513, 108, 45, 117).Select 'start of macro code

.Selection.ShapeRange.TextFrame.TextRange.Select ' should put the "Program" string in a vertical box

.Selection.Collapse

.Selection.ShapeRange.Select

.Selection.ShapeRange.IncrementLeft 36 ' -- Removed # not valid in VBS mag

.Selection.ShapeRange.IncrementTop -18

.Selection.Orientation = wdTextOrientationDownward

.Selection.Font.Size = 24

 

' -- Removed Text:= can't use this type of assignment in VBS

.Selection.TypeText Program 'end macro code

 

End With

 

 

If Not wordDoc Is Nothing Then Set wordDoc = Nothing

 

ShowString "Script has ended"

 

 

 

 

End Sub

---

[Bullines]

Mick, our code looks eerily similar to each other's

 

/The Twilight Zone's theme song plays in the background

[Mick from CNC Software Inc.]

Bullines

 

LOL, I did not even realize you replied before I did I need more tea

[Guest CNC Apps Guy 1]

I'm having tea as we speak. Bigelow Green Tea....

[Bullines]

quote:

---

I need more tea

---

quote:

---

I'm having tea as we speak. Bigelow Green Tea....

---

I start the day off with Celestial Seasoning's Green Tea with Chamomille

 

to tea drinkers

[Mick from CNC Software Inc.]

PG Tips is the only way to go

[Guest CNC Apps Guy 1]

What's that if I may ask?

[Mick from CNC Software Inc.]

Tea by which all other teas are judged

 

http://www.pgmoment.com

[Guest CNC Apps Guy 1]

I'll have to take a look for it.

 

Thanks.

[John T.]

Mick, How can I find information as to what those Const wdXxxxxx = X values should be? That seems to be a stumbling block for me.

I'm at home now (4 day workweek!), so will give your code a try Monday.

 

A bit eerie how Bullines and Mick came up with the same program

 

It really seems to be the little things like the # sign and text:= that aren't allowed in VBS that are tripping me up because I don't know that.

 

You guys have been a lot of help!

[Mick from CNC Software Inc.]

John,

 

Open the VBS editor in Word then press F2 to open the object browser, select Word from the top left dropdown, you should see the word object model including all those consts.

[crazy^millman]

YES I AM YELLING HOW MANY OF YOU COPIED THIS TO YOUR NOTEBOOK?

I did and about 20 other topics covered this week.

If the knowledge is there folks please take advantage of it.

[Guest CNC Apps Guy 1]

Hey Mick,

 

So where do it find the

quote:

---

...Tea by which all other teas are judged ...

---

here in the States? I watched all the commercials. I'd try it just on those alone! Kewl!

[Mick from CNC Software Inc.]

James,

 

I find mine at Christmas Tree Shops or Stop and Shop here in CT, try looking at the international isles in your local supermarket they may carry them.

[John T.]

Mick, Browsing through Word's object browser screen, with the "Word" selected in the upper left dropdown. Using the example you wrote, I looked up "selection (classes column on left)-oriention (members of "selection" on right), and on the bottom, it tells me "Property Oriention as WdTextOriention".

 

Now, I can get the "wdTextOrientionDownward" from the recorded macro, but how do you know to define the constant wdTextOriention as 3 in the constant definitions?

This is what puzzles me in this code. how do I find out what these number mean, or which numbers are required in defining these constants?

 

In playing around with centering a pargraph, I discovered that the constant for orienting a paragraph (forgot what it was right now, have it noted) to =1 seems to "turn it on". Obviously, not all definitions are 0/1 or on/off.

 

John

[John T.]

well smack me upside the head. I didn't realize tht the clickable "WdTextOriention" at the bottom of the object browser was clickable until after I left the last message. NOW I see! That should be a giant leap forward now!

 

John

[Bullines]

 

/Edit: Nevermind. You found it