• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 651
  • Last Modified:

Word Automation - paragraphs and bullets

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")
Wordapp.Documents.Add
Set WordDoc = wordapp.ActiveDocument
do while Trim(Range(Chr(intRow +65) & 1)).Value <> ""
WordDoc.Content.MoveEnd

WordDoc.Content.InsertAfter Worksheets("Sheet1").Range(Chr(intRow+65 &65).value

'some code which will put a formatted bulletinfront of the above?

loop

Please state if clarifcation is required....
Any comments greatly appreciated.
0
robertsmith28
Asked:
robertsmith28
  • 7
  • 4
  • 3
1 Solution
 
robertsmith28Author Commented:
oops, forgot to add some bits into the loop

introw = 1
do while...
..
..
..
..
intRow = intRow + 1
Loop
0
 
NosterdamusCommented:
Hi robert,

I posted a question in the MS Office topic area for you, pointing to this one.

Nosterdamus
0
 
robertsmith28Author Commented:
Nosterdamus,
Thanks - so have I - did n't realise which area I was in - oops!
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
NosterdamusCommented:
Should I delete my link question?
0
 
robertsmith28Author Commented:
Actually it was my other misplaced question! Thanks - just leave I reckon.
0
 
calacucciaCommented:
Hi Robert (thanks Noster for leading me here)

The easiest way to work around in Word documents is to use the Selection object, which is a objet from the Word.APplication object. First apply the formatting to the selection, then type some text, then put a paragraph mark, and so on...

example (I found some minor syntax problems in your code)

Dim wordapp As Word.Application
Dim worddoc As Word.document
Set wordapp = CreateObject("Word.Application")
wordapp.Documents.Add
wordapp.Visible = True
Set worddoc = wordapp.ActiveDocument
intRow = 1
Do While Trim(Range(Chr(intRow + 65) & 3).Value) <> ""
wordapp.Selection.EndKey wdStory 'This will make the selection (or the cursor) go
                                  'to the end of the document
wordapp.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList
wordapp.Selection.TypeText Worksheets("Sheet1").Range(Chr(intRow + 65) & 4).Value 'Type text from Excel in selection (cursor)
wordapp.Selection.TypeParagraph 'Enter a paragraphs mark, cursor or selection will go to next paragraph
'some code which will put a formatted bulletinfront of the above?
intRow = intRow + 1

Loop


Hope this helps
calacuccia
0
 
calacucciaCommented:
P.S. I changed the Chr(IntRow + 65) & 3 a little to match my sample sheet I was working on.
0
 
NosterdamusCommented:
Hi cal,

Nice to see you again... ;-)

Nosterdamus
0
 
robertsmith28Author Commented:
calacuccia,
That looks great - I'll just try to implement it - back in an hour or two...
Rob.
0
 
robertsmith28Author Commented:
calacuccia,
That looks great - I'll just try to implement it - back in an hour or two...
Rob.
0
 
NosterdamusCommented:
Hi Rob,

Just a hint. to avoid multiple postings, use the Reload Question link at the top of the page, instead of hitting the Browser's reload button.

Nosterdamus
0
 
robertsmith28Author Commented:
Thanks calacuccia, as always, was exactly what I was looking for - excellent!
0
 
calacucciaCommented:
ThAnks, robert.

Regards
calacuccia
0
 
robertsmith28Author Commented:
calacuccia,
this one's also in the wrong area for 70 - FYI.

http://www.experts-exchange.com/jsp/qManageQuestion.jsp?ta=msaccess&qid=20164520
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

  • 7
  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now