Automating WinWord

[GerryIT]

this code taken from MSDN doesn't seem to work.

any help apprciated...

$appWord = objget("", "Word.Application")

$activeDocument = $appWord.Documents

MsgBox(0, "Select a paragraph in a WinWord apllication", "Select a paragraph to apply the formatting of the first paragraph...")

$oSelection = $appWord.Selection

$oSelection.InsertAfter ("This is a new paragraph.")

$oActive = $appWord.ActiveDocument

; copy the first paragraph formatting

$paraFormat = $oActive.Paragraphs(1).Format.Duplicate

; try to set the copied formatting to the selected paragraph

; the next line does not work, maybe the $paraFormat value is not set properly?

$oSelection.Paragraphs.Format = $paraFormat

[Thatsgreat2345]

$appWord = objget("", "Word.Application")
$activeDocument = $appWord.Documents
MsgBox(0, "Select a paragraph in a WinWord apllication", "Select a paragraph to apply the formatting of the first paragraph...")
$oSelection = $appWord.Selection
$oSelection.InsertAfter ("This is a new paragraph.")
$oActive = $appWord.ActiveDocument
; copy the first paragraph formatting
$paraFormat = $oActive.Paragraphs(1).Format.Duplicate
; try to set the copied formatting to the selected paragraph
; the next line does not work, maybe the $paraFormat value is not set properly?
$oSelection.Paragraphs.Format = $paraFormat

makes it nicer to look at

[Valuater]

did you use object create ... or have an open word program

???

to be able to use objget... you need one or the other

not my area of expertise

8)

[DaleHohm]

this code taken from MSDN doesn't seem to work.

any help apprciated...

$appWord = objget("", "Word.Application")

$activeDocument = $appWord.Documents

MsgBox(0, "Select a paragraph in a WinWord apllication", "Select a paragraph to apply the formatting of the first paragraph...")

$oSelection = $appWord.Selection

$oSelection.InsertAfter ("This is a new paragraph.")

$oActive = $appWord.ActiveDocument

; copy the first paragraph formatting

$paraFormat = $oActive.Paragraphs(1).Format.Duplicate

; try to set the copied formatting to the selected paragraph

; the next line does not work, maybe the $paraFormat value is not set properly?

$oSelection.Paragraphs.Format = $paraFormat

There are several things there that seem odd... are you certain it was a working VBS example? Can you post that source? What errors do you getting?

Dale

[GerryIT]

the link to msdn is:

http://msdn.microsoft.com/library/default...._HV05210612.asp

with this code:

This example duplicates the paragraph formatting of the first paragraph in the active document and stores the formatting in the variable myDup, and then it changes the left indent for myDup to 1 inch. The example also creates a new document, inserts text into it, and then applies the paragraph formatting stored in myDup to the text.

Activedocument.Range(Start:=0, End:=0).InsertAfter _

"Paragraph Number 1"

Set myDup = Activedocument.Paragraphs(1).Format.Duplicate

myDup.LeftIndent = InchesToPoints(1)

Documents.Add

Selection.InsertAfter "This is a new paragraph."

Selection.Paragraphs.Format = myDup

I tried to modify it to copy the formatting in the same document but without succes.

[GerryIT]

From the MS Office Word 2003 Visual basic reference:

Objects section: ParagraphFormat Object

You can also make a standalone copy of an existing ParagraphFormat object by using the Duplicate property. The following example duplicates the paragraph formatting of the first paragraph in the active document and stores the formatting in myDup. The example changes the left indent of myDup to 1 inch, creates a new document, inserts text into the document, and applies the paragraph formatting of myDup to the text.

Set myDup = Activedocument.Paragraphs(1).Format.Duplicate

myDup.LeftIndent = InchesToPoints(1)

Documents.Add

Selection.InsertAfter "This is a new paragraph."

Selection.Paragraphs.Format = myDup

---

Can this be replicated in AutoIt?

Gerry