Solved

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

Posted on 2009-04-11
4
182 Views
Last Modified: 2013-11-25
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
Comment
Question by:FaheemAhmadGul
  • 2
  • 2
4 Comments
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 24121516
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
 

Author Comment

by:FaheemAhmadGul
ID: 24121598
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
 
LVL 76

Accepted Solution

by:
GrahamSkan earned 500 total points
ID: 24121810
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
 

Author Closing Comment

by:FaheemAhmadGul
ID: 31569152
This worked perfectly. Many thanks. Regards,  Faheem
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
A high-level exploration of how our ever-increasing access to information has changed the way we do our jobs.
This video shows and describes the main difference between both orientations in Microsoft Word. Viewers will understand when to use each orientation and how to get the most out of them.
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.

708 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now