Word Automation - paragraphs and bullets
Posted on 2001-08-07
I'm using Excel '97 to produce a report in Word '97. I'm exporting data from the Excel file to the report. The main difficulty I'm having understanding the InsertAfter statements and exactly how to just put some text at the end of the current document or format the text which I've just inserted. For example, I want to loop through a cloumn of cells until they are blank, putting the contents of each cell as a new paragraph, sequencially and each one of them with a Bulletpoint:
dim wordapp as word.application
dim worddoc as word.document
Set wordapp = CreateObject("Word.Application")
Set WordDoc = wordapp.ActiveDocument
do while Trim(Range(Chr(intRow +65) & 1)).Value <> ""
WordDoc.Content.InsertAfter Worksheets("Sheet1").Range(Chr(intRow+65 &65).value
'some code which will put a formatted bulletinfront of the above?
Please state if clarifcation is required....
Any comments greatly appreciated.