Formatting Word Document

[VishVin]

Hello,

I am looking for a way to create a Word document which is formatted from the data I have in a spread sheet. For example, data which is in column 1 should be of the style _Heading 1 with Bold , Column 2 data from the spread sheet should show up as Heading 2 but in italics. I am able to extract data from spreadsheet  and write to a word document however I am unable to manage different styles for each paragraph.

Any kind of help /advice is appreciated.
 

-VishVin

[water]

Create a template document with all the formatting and then call _Word_DocAdd to create a new document from this template.

[VishVin]

Hello Water,

Thanks for the quick response. However I am trying to create a template through a script. To illustrate better, I have attached the spreadsheet, which basically in my input and covert it to a doc format. The attached word document is a what I want my script to create. I have close to 1000 rows in spreadsheet.

Thanks,

VV

 

Example.xlsx

Example.docx

[water]

The Word UDF only provides basic stuff. So there is no formatting function available.
You could activate the macro recorder in Word and format the 3 levels of entries.
Grab the macro and translate it to AutoIt. Unfortunately the recorded macro works with Selections and not with Ranges. But this should be easy too.

[water]

You could end with something like this:

#include <Word.au3>

Global Const $wdStyleHeading1 = -2
Global Const $wdStyleHeading2 = -3
Global Const $wdStyleHeading3 = -4

$oWord = _Word_Create()
$oDoc = _Word_DocAdd($oWord)
$oRange = _Word_DocRangeSet($oDoc, -1) ; Set the Range start/end to the start of the document
; Heading 1
$oRange.InsertBefore("Department 1")
$oRange.Style = $wdStyleHeading1
$oRange.InsertParagraphAfter()
$oRange = _Word_DocRangeSet($oDoc, -2) ; Set the Range to the end of the document
; Heading 2
$oRange.InsertAfter("Sub-Department 1.1")
$oRange.Style = $wdStyleHeading2
$oRange.InsertParagraphAfter()
$oRange = _Word_DocRangeSet($oDoc, -2)
; Heading 3 - Line 1
$oRange.InsertAfter("Boss")
$oRange.Style = $wdStyleHeading3
$oRange.InsertParagraphAfter()
$oRange = _Word_DocRangeSet($oDoc, -2)
; Heading 3 - Line 2
$oRange.InsertAfter("POC")
$oRange.Style = $wdStyleHeading3
$oRange.InsertParagraphAfter()
$oRange = _Word_DocRangeSet($oDoc, -2)

 

[VishVin]

Water,

Appreciate your help on this. I was able to get all the formatting necessary.

Thanks,

Vinyas