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

Word Macro that will move the cursor to the 2nd Cell in the 3rd Table in the Active Word Document

I need help writing a Macro that will move the cursor to the 2nd Cell in the 3rd Table in the Active Word Document.
0
FaheemAhmadGul
Asked:
FaheemAhmadGul
  • 3
  • 2
  • 2
1 Solution
 
Chris BottomleySoftware Quality Lead EngineerCommented:
Hello FaheemAhmadGul,

Word VBA doesn't let you move in that way, you have to step through the docuemnt.  You can howeever read / write diresctly:

Write:
    thisdocument.Tables(3).Cell(1,1).Range.Text = "Fred"
Read:
    thisdocument.Tables(3).Cell(1,1).Range.Text

Note however it is cell(row, column) rather than cell(x)

Regards,
Chris
0
 
FaheemAhmadGulAuthor Commented:
I have been able to use the code provided by you to get my cursor where I wanted it to be. This is by first writing to the Cell  I want the Cursor to go to, then taking the cursor to that cell by searching for that word.

Many thanks for your help. I am grateful.
Regards
Faheem
Private Sub btnCellThree_Click()
 
ThisDocument.Tables(3).Cell(1, 2).Range.Text = "Fred"
 
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Fred"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
     
    End With
    Selection.Find.Execute
    Selection.Delete Unit:=wdCharacter, Count:=1
  
    Selection.TypeText Text:="This has worked."
   
    
  
 
End Sub

Open in new window

0
 
FaheemAhmadGulAuthor Commented:
have been able to use the code provided by you to get my cursor where I wanted it to be. This is by first writing to the Cell  I want the Cursor to go to, then taking the cursor to that cell by searching for that word.

Many thanks for your help. I am grateful.
Regards
Faheem
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
Chris BottomleySoftware Quality Lead EngineerCommented:
NOw that is sneaky! ... but clever.  Personally I would have set a bookmark but your way is perhaps even simpler so thank you for the advice.

I didn't define such possibilities as I was assuming the need was to type something there or read the value.  I would of course have taken it further had that been the requirement - but I am pleased you did so for yourself.

Chris
0
 
GrahamSkanRetiredCommented:
I should have done it in your previous question, but it isn't too difficult:
0
 
GrahamSkanRetiredCommented:
This the code that I meant to include with the previous comment
Sub MoveTocell()
 ActiveDocument.Tables(3).Cell(2, 2).Range.Select
End Sub

Open in new window

0
 
FaheemAhmadGulAuthor Commented:
This is brilliant !  Accomplishes what I wish to do in a much simpler way. I actually wanted to be able to take the cursor to a specific cell in a specific table in my document and run a number of other macros and commands when the cursor was there. This one line of code, very kindly provided you, solves the problem.
I am very grateful. Thank you very much.
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

Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

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