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
184 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

Control application downtime with dependency maps

Visualize the interdependencies between application components better with Applications Manager's automated application discovery and dependency mapping feature. Resolve performance issues faster by quickly isolating problematic components.

Question has a verified solution.

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

I recently resolved a client's Office 2013 installation problem and wanted to offer an observation that may help you with troubleshooting similar issues. The client ordered three Dell Optiplex system units with the Windows 7 downgrade option inst…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …

863 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

27 Experts available now in Live!

Get 1:1 Help Now