Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 196
  • Last Modified:

Macro that will Select the contents of a cell in a Word Table and Paste it at the end of the Document

I need help writing a macro that will select and copy the contents of the 2nd cell in Row 2 of the 3rd Table in my active document and paste them at the end of the document.
Thanks for your help in anticipation.
0
FaheemAhmadGul
Asked:
FaheemAhmadGul
  • 2
  • 2
1 Solution
 
GrahamSkanRetiredCommented:
This will copy the text from the cell to the end of the document.
Sub CopyCellText()
    Dim tbl As Word.Table
    Dim strText As String
    
    Set tbl = ActiveDocument.Tables(3)
    strText = GetCellText(tbl.Cell(2, 2))
    ActiveDocument.Bookmarks("\EndOfDoc").Range.Text = strText
End Sub
 
Function GetCellText(cel As Word.Cell) As String
    Dim rng As Range
    
    Set rng = cel.Range
    rng.MoveEnd wdCharacter, -1 'drop cell format character
    GetCellText = Trim$(rng.Text)
End Function

Open in new window

0
 
FaheemAhmadGulAuthor Commented:
Many thanks for your help with my question. The above code works but the only thing is that when the contents of the relevant cell are pasted at the end of the document, they loose formatting they had in the source cell.
I would be grateful if you could modify the code so that the formatting is not lost in the process.
As this  involves some extra work, I am increasing the points for this problem  to 500.
0
 
GrahamSkanRetiredCommented:
My apologies. You did say copy and paste.
Sub CopyCellText()
    Dim tbl As Table
    Dim strText As String
    Dim rng As Range
 
    Set tbl = ActiveDocument.Tables(3)
    Set rng = tbl.Cell(2, 2).Range
    rng.MoveEnd wdCharacter, -1  'drop cell format character
    rng.Copy
    ActiveDocument.Bookmarks("\EndOfDoc").Range.Paste
End Sub

Open in new window

0
 
FaheemAhmadGulAuthor Commented:
This worked perfectly. Many thanks. Regards,  Faheem
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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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