Center text in Word document

Question

I am working on a script that creates a Word document, but I cannot get the text to be center aligned. Here is an example of the code I'm using. (VBScript)

set objword = createobject("word.application")
set doc = objword.documents.add
set selection = objword.selection
selection.Font.name = "arial" 
selection.Font.size = "20"
selection.Font.Bold = true
selection.Paragraphs.Alignment = wdAlignParagraphCenter
selection.typetext "This is the title that should be centered"
selection.typeparagraph
doc.saveas("testdoc.doc")
objword.Quit
set objword = nothing

I have tried a few different things that I found through Google, but I have not found anything that works.

Answer 1

UPDATE: turns out that constants like wdAlignParagraphCenter may not actually be defined, so check that in your code.

The easiest way to get an example of how to do formatting in Word (or Excel) is to actually start recording a macro, do what you want, then stop recording and take a look at the macro content.

In your example code, I don't see any sign of you attempting to center the text. Try something like selection.ParagraphFormat.Alignment = wdAlignParagraphCenter, though that's pulled from the documentation not actually from trying it.

After a bit more experimentation, the value of wdAlignParagraphCenter should be 1 but from the vbs it isn't. Digging into the VBScript documentation to figure out exactly where this is defined, etc. is left as an exercise for the reader.

Also, be willing to read through the documentation - the Visual Basic Reference reachable from Word's code editor has information that will probably be of use to you.

Be aware that (at least in my years-old experience) there may be things you can do in Word that don't have a correctly-functioning code equivalent, though perhaps they've improved things since the days of WordBasic.

Answer 2

Set objWord = CreateObject("word.application")
Set objDoc = objWord.Documents.Add
Set objSelection = objWord.Selection
objSelection.Font.Name = "arial"
objSelection.Font.Size = "20"
objSelection.Font.Bold = True
objSelection.Paragraphs.Alignment = wdAlignParagraphCenter
objSelection.typetext "This is the title that should be centered"
objSelection.typeparagraph
objDoc.saveas ("testdoc.doc")
objWord.Quit
Set objWord = Nothing

Answer 3

%% Start by creating a Word Document
    Word_COM = actxserver('Word.Application');
    set(Word_COM,'visible',1);
    RAM_Report = invoke(Word_COM.documents,'add');
    invoke(RAM_Report.paragraphs,'add');
    ReportDoc = Word_COM.Selection;

%% ReprtDoc Created   
    ReportDoc.Paragraphs.Alignment = 1;
    MyTextWithLineFeed = sprintf('%s\n','Hello World');
    ReportDoc.TypeText( MyTextWithLineFeed );