creating tables in Word from Excel (W2K, O2K)

Topic

New Reply

I am trying to create 3 tables in Word from data taken from Excel. I have managed to create the first table OK and added a couple of paragraphs after it to make a gap. What I cannot see how to do is set the range for the next Tables.Add() command. In effect all I want to do is tell it to go to the end of the document and add the next table.

Many thanks for any pointers

Peter

Reply | Quote

Replies

If you record a macro to do that, you get:

    Selection.EndKey Unit:=wdStory
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _
        NumColumns:=3

Is that what you need? –Sam

Reply | Quote

I was not using a selection which was why I was having the problem, I think, but your code got me looking in help at story . I ended up using:-

rngStartRange.Expand Unit:=wdStory
rngStartRange.SetRange Start:=rngStartRange.End, End:=rngStartRange.End

Not sure this is the right way to do it or not but it works

Many Thanks, hopefully I can put this to bed now and go back to playing with Access which is much more fun!

Peter

Reply | Quote

A slightly more readable version of your second line would be

rngStartRange.Collapse Direction:=wdCollapseEnd

StuartR

Reply | Quote

Many thanks, much neater

That is the trouble trying to code by fumbling through and trying to modify recoded code. Word seems to be much less friendly than Excel when it comes to recording code! The way it disables the mouse as soon as you start recording makes it awkward to do things.

Does anyone know of a good site for Word VBA? particularly for navigating around documents?

Peter

Reply | Quote

I don’t know any good books, I learnt Word VBA from the help files and forums like this one.

I can point you at another useful Range to use in this sort of scenario. ActiveDocument.Content is a predefined range which includes all of the main story, so you could replace your two lines of code with

rngStartRange.SetRange Start:=ActiveDocument.Content.End, End:=ActiveDocument.Content.End

or with

set rngStartRange = ActiveDocument.Content.Duplicate
rngStartRange.Collapse Direction:=wdCollapseEnd

StuartR

Reply | Quote

Thanks, I will have a read up on contents in help. Help in 2000 is not the easist of places to find what you want if you dont know what it is in the first place Like trying to find a word you can’t spell in the dictionary

peter

Reply | Quote