Multiple Tables and Ranges

hi I would like to see vba code code tutorial online to have 3 tables with 3
different ranges so I can address teh cell of each table in each range. I
run the macros of course but they do not seem to use this method.

Thank you for your help.

Dave
Fri Aug 06 07:26:02 CDT 2004

Hi scorpion53061,

It sounds like you might be having a problem getting the text from a cell
without the end of cell character. Maybe the following code helps with your
task:

Dim oTbl As Table
Dim oCl As Cell
Dim oRngCl As Range
For Each oTbl In ActiveDocument.Tables
For Each oCl In oTbl.Range.Cells
Set oRngCl = oCl.Range
oRngCl.MoveEnd Unit:=wdCharacter, Count:=-1
MsgBox oRngCl.Text
Next oCl
Next oTbl

HTH,
Dave

"scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote in message
news:O691qq6eEHA.2560@TK2MSFTNGP09.phx.gbl...
> hi I would like to see vba code code tutorial online to have 3 tables with
3
> different ranges so I can address teh cell of each table in each range. I
> run the macros of course but they do not seem to use this method.
>
> Thank you for your help.
>
>

scorpion53061
Fri Aug 06 08:46:56 CDT 2004

Hi Dave,

Thanks for responding.

My problem is that in my header I have three tables in which I am trying to
address specific cells with specific text.

I tried the methods used in teh macros... such as move down here, move up
there and it works if you step through it but if you run it on its own for
whatever reason it does not. This is an example of what I had :

oDoc.Content.Application.Selection.TypeText(Text:="Order Report")
oDoc.Content.Application.Selection.MoveDown(Unit:=wdLine,
Count:=1)
oDoc.Content.Application.Selection.MoveLeft(Unit:=wdCharacter,
Count:=1)

Often it did not do what was expected.
Someone suggested using a "range" method to get text into cells in a post I
saw yesterday. I am okay with one table. But how do I am having problem with
additional tables.

Again thank you....

I am kjmnospam@charter.net (remove "nospam") on MSN Messenger if you have it
so feel free to drop a line if you have any thoughts or respond here is fine
too.

"Dave Lett" <dlett@NOsmconst.comSPAM.com> wrote in message
news:eYZYdD7eEHA.3100@TK2MSFTNGP10.phx.gbl...
> Hi scorpion53061,
>
> It sounds like you might be having a problem getting the text from a cell
> without the end of cell character. Maybe the following code helps with
your
> task:
>
> Dim oTbl As Table
> Dim oCl As Cell
> Dim oRngCl As Range
> For Each oTbl In ActiveDocument.Tables
> For Each oCl In oTbl.Range.Cells
> Set oRngCl = oCl.Range
> oRngCl.MoveEnd Unit:=wdCharacter, Count:=-1
> MsgBox oRngCl.Text
> Next oCl
> Next oTbl
>
> HTH,
> Dave
>
> "scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote in message
> news:O691qq6eEHA.2560@TK2MSFTNGP09.phx.gbl...
> > hi I would like to see vba code code tutorial online to have 3 tables
with
> 3
> > different ranges so I can address teh cell of each table in each range.
I
> > run the macros of course but they do not seem to use this method.
> >
> > Thank you for your help.
> >
> >
>
>

Dave
Fri Aug 06 09:29:09 CDT 2004

Hi scorpion53061,

Okay, now we're getting somewhere.
You have a total of 3 tables in your header, correct?
In table 1, what cell do you want to modify? How do you want to modify it?
In table 2, what cell do you want to modify? How do you want to modify it?
In table 3, what cell do you want to modify? How do you want to modify it?
Can you bookmark the text in these cells (if so, this might make the code a
lot easier for you to read/write)?

Dave

"scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote in message
news:%23H9Rav7eEHA.3520@TK2MSFTNGP10.phx.gbl...
> Hi Dave,
>
> Thanks for responding.
>
> My problem is that in my header I have three tables in which I am trying
to
> address specific cells with specific text.
>
> I tried the methods used in teh macros... such as move down here, move up
> there and it works if you step through it but if you run it on its own for
> whatever reason it does not. This is an example of what I had :
>
> oDoc.Content.Application.Selection.TypeText(Text:="Order Report")
> oDoc.Content.Application.Selection.MoveDown(Unit:=wdLine,
> Count:=1)
> oDoc.Content.Application.Selection.MoveLeft(Unit:=wdCharacter,
> Count:=1)
>
> Often it did not do what was expected.
> Someone suggested using a "range" method to get text into cells in a post
I
> saw yesterday. I am okay with one table. But how do I am having problem
with
> additional tables.
>
> Again thank you....
>
> I am kjmnospam@charter.net (remove "nospam") on MSN Messenger if you have
it
> so feel free to drop a line if you have any thoughts or respond here is
fine
> too.
>
> "Dave Lett" <dlett@NOsmconst.comSPAM.com> wrote in message
> news:eYZYdD7eEHA.3100@TK2MSFTNGP10.phx.gbl...
> > Hi scorpion53061,
> >
> > It sounds like you might be having a problem getting the text from a
cell
> > without the end of cell character. Maybe the following code helps with
> your
> > task:
> >
> > Dim oTbl As Table
> > Dim oCl As Cell
> > Dim oRngCl As Range
> > For Each oTbl In ActiveDocument.Tables
> > For Each oCl In oTbl.Range.Cells
> > Set oRngCl = oCl.Range
> > oRngCl.MoveEnd Unit:=wdCharacter, Count:=-1
> > MsgBox oRngCl.Text
> > Next oCl
> > Next oTbl
> >
> > HTH,
> > Dave
> >
> > "scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote in
message
> > news:O691qq6eEHA.2560@TK2MSFTNGP09.phx.gbl...
> > > hi I would like to see vba code code tutorial online to have 3 tables
> with
> > 3
> > > different ranges so I can address teh cell of each table in each
range.
> I
> > > run the macros of course but they do not seem to use this method.
> > >
> > > Thank you for your help.
> > >
> > >
> >
> >
>
>

scorpion53061
Fri Aug 06 09:43:19 CDT 2004


"Dave Lett" <dlett@NOsmconst.comSPAM.com> wrote in message
news:uYrUPI8eEHA.2604@TK2MSFTNGP12.phx.gbl...
> Hi scorpion53061,
>
> Okay, now we're getting somewhere.
> You have a total of 3 tables in your header, correct?
> In table 1, what cell do you want to modify? How do you want to modify it?
> In table 2, what cell do you want to modify? How do you want to modify it?
> In table 3, what cell do you want to modify? How do you want to modify it?
> Can you bookmark the text in these cells (if so, this might make the code
a
> lot easier for you to read/write)?

Table 1 has 25 cells (13 rows) with 2 columns each needing their own text. I
want to address cell alignemnt, text, font and in one case color.

In one row the cells get merged.

Table 2 has 6 cells with 2 rows and 3 columns.Again the same I want to
modify. I get in trouble here when I name it Table(2) because it says the
"member of the collection does not exist"

I am unsure on bookmarking. I am pretty understanding of how the cell
numbering is working I think. But I will show what i have so far. I dont
have table 2 here yet.

Again thank you.



Dim myrange As Word.Range

myrange = oDoc.Content.Application.Selection.Range
oDoc.Content.Application.Selection.Tables.Add(Range:=myrange,
NumRows:=6, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior,
AutoFitBehavior:= _
wdAutoFitFixed)

oDoc.Content.Application.Selection.Tables.Item(1).Cell(3, 1).Range.Select()
With oDoc.Content.Application.Selection.Font
.Name = "Arial"
.Size = 18
.Bold = False
.Italic = False
End With
With oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
1)
.Range.Text = "A Division of Superior Electrical Supply
Inc."
.Row.Alignment = 0
.VerticalAlignment = 3
End With
oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
1).Range.Text = "JJ Koepsell Company"
oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
2).Range.Select()
With oDoc.Content.Application.Selection.Font
.Name = "Arial Black"
.Size = 28
.Bold = False
.Italic = False
.Color = 3355443 'wdColorGray80
End With
oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
2).Range.Text = "Order Report"
oDoc.Content.Application.Selection.Tables.Item(1).Cell(4,
1).Range.Select()
With oDoc.Content.Application.Selection.Font
.Name = "Arial"
.Size = 10
.Bold = False
.Italic = False
End With
With oDoc.Content.Application.Selection.Tables.Item(1).Cell(4,
1)
.Range.Text = "A Division of Superior Electrical Supply
Inc."
.Row.Alignment = 0
.VerticalAlignment = 0
End With

oDoc.Content.Application.Selection.Tables.Item(1).Cell(6,
1).Range.Select()
With oDoc.Content.Application.Selection.Font
.Name = "Arial"
.Size = 10
.Bold = False
.Italic = False
End With
With oDoc.Content.Application.Selection.Tables.Item(1).Cell(6,
1)
.Range.Text = "1010 S. Ninth Street"
End With

Dave
Fri Aug 06 12:10:55 CDT 2004

Hi

Let's start slowly because there are a handful of things that you can do to
improve your routine. First, I think you're overcomplicating things by
taking a very long approach to your objects. For example, have at look at
the following:
this is your original
oDoc.Content.Application.Selection.Tables.Item(1).Cell(3, 1).Range.Select
which does the same this as this (and this is a lot easier to read)
oDoc.Tables(1).Cell(3, 1).Select

The following, too:
myrange = oDoc.Content.Application.Selection.Range
myrange = oDoc.Selection.Range

However, in terms of good programming practice, it's better to use the range
object instead of the selection object. The most notable reasons are speed
and the fact that the range object doesn't require you to select anything
and, therefore, your user's screen won't jump (the changes will just
"magically" appear). So, let's go through an example:
We're not going to select anything, but we will change the text/formatting
of one your cells (for this sample, use a blank document).

Dim oTbl As Table
Dim oCl As Cell
Dim oRng As Range
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=6, _
NumColumns:=2, _
DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed)
Set oRng = oTbl.Cell(3, 1).Range
Set oCl = oTbl.Cell(3, 1)
With oCl
.Row.Alignment = 0
.VerticalAlignment = 3
With .Range
.Text = "Enter text here"
With .Font
.Name = "Arial"
.Size = 18
.Bold = False
.Italic = False
End With
End With
End With

''' if you want to change the text of a different cell
''' then simply redefine oCl, as in the following:
Set oCl = oTbl.Cell(6, 2)
With oCl
.Row.Alignment = 0
.VerticalAlignment = 3
With .Range
.Text = "Enter text here"
With .Font
.Name = "Arial"
.Size = 18
.Bold = False
.Italic = False
End With
End With
End With

''' if you want to add a new table, then simply use the same
''' construction as above, but make sure that you're not
''' at the end of the previous table or Word will simply
''' appeand the next table to the previous table (making
''' one, long table
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=6, _
NumColumns:=2, _
DefaultTableBehavior:=wdWord9TableBehavior, _
AutoFitBehavior:=wdAutoFitFixed)

HTH,
Dave


"scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote in message
news:%235M76O8eEHA.1724@TK2MSFTNGP10.phx.gbl...
>
> "Dave Lett" <dlett@NOsmconst.comSPAM.com> wrote in message
> news:uYrUPI8eEHA.2604@TK2MSFTNGP12.phx.gbl...
> > Hi scorpion53061,
> >
> > Okay, now we're getting somewhere.
> > You have a total of 3 tables in your header, correct?
> > In table 1, what cell do you want to modify? How do you want to modify
it?
> > In table 2, what cell do you want to modify? How do you want to modify
it?
> > In table 3, what cell do you want to modify? How do you want to modify
it?
> > Can you bookmark the text in these cells (if so, this might make the
code
> a
> > lot easier for you to read/write)?
>
> Table 1 has 25 cells (13 rows) with 2 columns each needing their own text.
I
> want to address cell alignemnt, text, font and in one case color.
>
> In one row the cells get merged.
>
> Table 2 has 6 cells with 2 rows and 3 columns.Again the same I want to
> modify. I get in trouble here when I name it Table(2) because it says the
> "member of the collection does not exist"
>
> I am unsure on bookmarking. I am pretty understanding of how the cell
> numbering is working I think. But I will show what i have so far. I dont
> have table 2 here yet.
>
> Again thank you.
>
>
>
> Dim myrange As Word.Range
>
> myrange = oDoc.Content.Application.Selection.Range
> oDoc.Content.Application.Selection.Tables.Add(Range:=myrange,
> NumRows:=6, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior,
> AutoFitBehavior:= _
> wdAutoFitFixed)
>
> oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
1).Range.Select()
> With oDoc.Content.Application.Selection.Font
> .Name = "Arial"
> .Size = 18
> .Bold = False
> .Italic = False
> End With
> With oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> 1)
> .Range.Text = "A Division of Superior Electrical Supply
> Inc."
> .Row.Alignment = 0
> .VerticalAlignment = 3
> End With
> oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> 1).Range.Text = "JJ Koepsell Company"
> oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> 2).Range.Select()
> With oDoc.Content.Application.Selection.Font
> .Name = "Arial Black"
> .Size = 28
> .Bold = False
> .Italic = False
> .Color = 3355443 'wdColorGray80
> End With
> oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> 2).Range.Text = "Order Report"
> oDoc.Content.Application.Selection.Tables.Item(1).Cell(4,
> 1).Range.Select()
> With oDoc.Content.Application.Selection.Font
> .Name = "Arial"
> .Size = 10
> .Bold = False
> .Italic = False
> End With
> With oDoc.Content.Application.Selection.Tables.Item(1).Cell(4,
> 1)
> .Range.Text = "A Division of Superior Electrical Supply
> Inc."
> .Row.Alignment = 0
> .VerticalAlignment = 0
> End With
>
> oDoc.Content.Application.Selection.Tables.Item(1).Cell(6,
> 1).Range.Select()
> With oDoc.Content.Application.Selection.Font
> .Name = "Arial"
> .Size = 10
> .Bold = False
> .Italic = False
> End With
> With oDoc.Content.Application.Selection.Tables.Item(1).Cell(6,
> 1)
> .Range.Text = "1010 S. Ninth Street"
> End With
>
>

scorpion53061
Fri Aug 06 14:22:35 CDT 2004

You have been very helpful. Thank you.


"Dave Lett" <dlett@NOsmconst.comSPAM.com> wrote in message
news:uv8Api9eEHA.2916@TK2MSFTNGP12.phx.gbl...
> Hi
>
> Let's start slowly because there are a handful of things that you can do
to
> improve your routine. First, I think you're overcomplicating things by
> taking a very long approach to your objects. For example, have at look at
> the following:
> this is your original
> oDoc.Content.Application.Selection.Tables.Item(1).Cell(3, 1).Range.Select
> which does the same this as this (and this is a lot easier to read)
> oDoc.Tables(1).Cell(3, 1).Select
>
> The following, too:
> myrange = oDoc.Content.Application.Selection.Range
> myrange = oDoc.Selection.Range
>
> However, in terms of good programming practice, it's better to use the
range
> object instead of the selection object. The most notable reasons are speed
> and the fact that the range object doesn't require you to select anything
> and, therefore, your user's screen won't jump (the changes will just
> "magically" appear). So, let's go through an example:
> We're not going to select anything, but we will change the text/formatting
> of one your cells (for this sample, use a blank document).
>
> Dim oTbl As Table
> Dim oCl As Cell
> Dim oRng As Range
> Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, _
> NumRows:=6, _
> NumColumns:=2, _
> DefaultTableBehavior:=wdWord9TableBehavior, _
> AutoFitBehavior:=wdAutoFitFixed)
> Set oRng = oTbl.Cell(3, 1).Range
> Set oCl = oTbl.Cell(3, 1)
> With oCl
> .Row.Alignment = 0
> .VerticalAlignment = 3
> With .Range
> .Text = "Enter text here"
> With .Font
> .Name = "Arial"
> .Size = 18
> .Bold = False
> .Italic = False
> End With
> End With
> End With
>
> ''' if you want to change the text of a different cell
> ''' then simply redefine oCl, as in the following:
> Set oCl = oTbl.Cell(6, 2)
> With oCl
> .Row.Alignment = 0
> .VerticalAlignment = 3
> With .Range
> .Text = "Enter text here"
> With .Font
> .Name = "Arial"
> .Size = 18
> .Bold = False
> .Italic = False
> End With
> End With
> End With
>
> ''' if you want to add a new table, then simply use the same
> ''' construction as above, but make sure that you're not
> ''' at the end of the previous table or Word will simply
> ''' appeand the next table to the previous table (making
> ''' one, long table
> Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, _
> NumRows:=6, _
> NumColumns:=2, _
> DefaultTableBehavior:=wdWord9TableBehavior, _
> AutoFitBehavior:=wdAutoFitFixed)
>
> HTH,
> Dave
>
>
> "scorpion53061" <scorpion_53061@nospamhereeveryahoo.com> wrote in message
> news:%235M76O8eEHA.1724@TK2MSFTNGP10.phx.gbl...
> >
> > "Dave Lett" <dlett@NOsmconst.comSPAM.com> wrote in message
> > news:uYrUPI8eEHA.2604@TK2MSFTNGP12.phx.gbl...
> > > Hi scorpion53061,
> > >
> > > Okay, now we're getting somewhere.
> > > You have a total of 3 tables in your header, correct?
> > > In table 1, what cell do you want to modify? How do you want to modify
> it?
> > > In table 2, what cell do you want to modify? How do you want to modify
> it?
> > > In table 3, what cell do you want to modify? How do you want to modify
> it?
> > > Can you bookmark the text in these cells (if so, this might make the
> code
> > a
> > > lot easier for you to read/write)?
> >
> > Table 1 has 25 cells (13 rows) with 2 columns each needing their own
text.
> I
> > want to address cell alignemnt, text, font and in one case color.
> >
> > In one row the cells get merged.
> >
> > Table 2 has 6 cells with 2 rows and 3 columns.Again the same I want to
> > modify. I get in trouble here when I name it Table(2) because it says
the
> > "member of the collection does not exist"
> >
> > I am unsure on bookmarking. I am pretty understanding of how the cell
> > numbering is working I think. But I will show what i have so far. I dont
> > have table 2 here yet.
> >
> > Again thank you.
> >
> >
> >
> > Dim myrange As Word.Range
> >
> > myrange = oDoc.Content.Application.Selection.Range
> >
oDoc.Content.Application.Selection.Tables.Add(Range:=myrange,
> > NumRows:=6, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior,
> > AutoFitBehavior:= _
> > wdAutoFitFixed)
> >
> > oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> 1).Range.Select()
> > With oDoc.Content.Application.Selection.Font
> > .Name = "Arial"
> > .Size = 18
> > .Bold = False
> > .Italic = False
> > End With
> > With
oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> > 1)
> > .Range.Text = "A Division of Superior Electrical Supply
> > Inc."
> > .Row.Alignment = 0
> > .VerticalAlignment = 3
> > End With
> > oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> > 1).Range.Text = "JJ Koepsell Company"
> > oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> > 2).Range.Select()
> > With oDoc.Content.Application.Selection.Font
> > .Name = "Arial Black"
> > .Size = 28
> > .Bold = False
> > .Italic = False
> > .Color = 3355443 'wdColorGray80
> > End With
> > oDoc.Content.Application.Selection.Tables.Item(1).Cell(3,
> > 2).Range.Text = "Order Report"
> > oDoc.Content.Application.Selection.Tables.Item(1).Cell(4,
> > 1).Range.Select()
> > With oDoc.Content.Application.Selection.Font
> > .Name = "Arial"
> > .Size = 10
> > .Bold = False
> > .Italic = False
> > End With
> > With
oDoc.Content.Application.Selection.Tables.Item(1).Cell(4,
> > 1)
> > .Range.Text = "A Division of Superior Electrical Supply
> > Inc."
> > .Row.Alignment = 0
> > .VerticalAlignment = 0
> > End With
> >
> > oDoc.Content.Application.Selection.Tables.Item(1).Cell(6,
> > 1).Range.Select()
> > With oDoc.Content.Application.Selection.Font
> > .Name = "Arial"
> > .Size = 10
> > .Bold = False
> > .Italic = False
> > End With
> > With
oDoc.Content.Application.Selection.Tables.Item(1).Cell(6,
> > 1)
> > .Range.Text = "1010 S. Ninth Street"
> > End With
> >
> >
>
>