Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Help declaring a table cell's row and column position in Word

Posted on 2010-08-12
7
Medium Priority
?
662 Views
Last Modified: 2012-05-10
Hi experts

I want to goto a bookmark in my document called "Total" Fee which is in a table. Then I want to return the position of the cell, ie it's row and column numbers. There are several tables in my document.

I'm been looking around trying to work out how to do it. I've managed to return the table number. I thought I was setting the row and column position in my code, but I keep getting an error when I try to go to that cell.

Once I've declared the row position I want to do a calculation. I think I'll be able to do that when I declare the row correctly.

Can someone please help me declare the cell row and column position because I give up!



Sub SettheTotalCells()


    Dim oTbl As Table
    Dim rw As Row
    Dim cl As Cell
    Dim Col As Column
    Dim J As Integer
    Dim iTableNum As Integer
   
 
    For J = 1 To ActiveDocument.Tables.Count
        Set oTbl = ActiveDocument.Tables(J)
        oTbl.Select
        If Selection.Bookmarks.Exists("TotalFee") Then
            iTableNum = J
            Exit For
        End If
    Next J
    
    Set oTbl = ActiveDocument.Tables(J)
    
    ActiveDocument.Bookmarks("TotalFee").Range.Select
    Set cl = Selection.Cells(1)
    cl.Select
    
    '  DECLARE ROW AND COLUMN NUMBERS
    
    Set rw = oTbl.Rows(cl.RowIndex)
    Set Col = oTbl.Columns(cl.ColumnIndex)
    

    

     ActiveDocument.Tables(J).Cell(Row:=4, Column:=4).Range.Select 'this works
     ActiveDocument.Tables(J).Cell(rw, Col).Range.Select 'this doesn't work
     oTbl.Cell(rw, Col).Range.Select 'this doesn't work


    Selection.InsertFormula Formula:="=d4+d5", NumberFormat:="#,##0.00;(#,##0.00)"

End Sub

Open in new window

0
Comment
Question by:Fi69
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
7 Comments
 
LVL 11

Assisted Solution

by:JoeNuvo
JoeNuvo earned 300 total points
ID: 33427457
Try change following thing

Dim rw As Integer
.
Dim Col As Integer
.
.
.
'     DECLARE ROW AND COLUMN NUMBERS

rw = cl.RowIndex
Col = cl.ColumnIndex
.
.
.
0
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 700 total points
ID: 33427729
Your immediate problem is that you are trying to use the row and column objects.

You need to do:

    Dim r As Integer
    Dim c As Integer
 
Then

    r = cl.RowIndex
    c = cl.ColumnIndex

And

ActiveDocument.Tables(J).Cell(r, C).Range.Select
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 33427779
However, you can do it in one line:
Sub SettheTotalCells()
  ActiveDocument.Fields.Add ActiveDocument.Bookmarks("TotalFee").Range, wdFieldEmpty, "=SUM(D4, D5) \# ""#.##0,00;(#.##0,00)"""
End Sub

Open in new window

0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:Fi69
ID: 33428933
Hi Joe and Graham

Thanks for the clarification on the correct declaration of the variable.  That did the trick!

Graham, I tried your code to insert the formula in one line but it errored for some reason.


0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 33429590
It worked in my test. What was the error message?
0
 

Author Comment

by:Fi69
ID: 33439788
Hi Graham

It is a run-time error no. 4605. The command is not available. Would that have something to do with what is bookmarked? I selected the whole cell and inserted my bookmark rather than selecting the formula/field and applying the bookmark. I've just found that is more stable (less easily deleted). The formula is sitting in that cell.
0
 
LVL 76

Assisted Solution

by:GrahamSkan
GrahamSkan earned 700 total points
ID: 33441042
Yes that would be a problem. The field would replace the contents of the bookmark. If the whole cell is bookmarked, the cell delimiter is also included, which cannot be replaced.

Try this instead.




Sub SettheTotalCells()
    Dim rng As Range
    
    Set rng = ActiveDocument.Bookmarks("TotalFee").Range
    rng.Collapse wdCollapseStart
    ActiveDocument.Fields.Add rng, wdFieldEmpty, "=SUM(D4, D5) \# ""#.##0,00;(#.##0,00)""", False
End Sub

Open in new window

0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This video walks the viewer through the process of creating a watermark for their document, customizing it, and saving it for viewing/printing needs.
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
Suggested Courses

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question