How to extract text from a cell and preserve special formatting?

epid011 · #1 04-04-2014, 11:36 AM

The goal of the VBA macro is to extract the text from the first cell and assign it to a variable (see attached document). The problem that I’m having is that I can’t get it to retain the superscripted letter ‘s’ after the word ‘test’.

TIA,
Robert Matthews

Code:

 
 Sub test()
     Dim varTextString As Variant
     varTextString = ActiveDocument.Tables(1).Cell(Row:=1, Column:=1)
     varTextString = Left(varTextString, Len(varTextString) - 2)
     MsgBox   varTextString
 End sub()

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need macro to merge files in Word and preserve formatting	Carolin	Word VBA	3	12-14-2014 04:01 AM
How do I output special character to a specific cell (x,y)?	norwood	Word VBA	2	01-31-2014 01:26 PM
Extract Min and highlight cell from source	LeilaniMerle	Excel	3	01-26-2014 11:05 PM
Conditional Formatting Expiration Dates Based on Text in Adjacent Cell	Frogggg	Excel	1	10-25-2011 08:44 PM
Cut and paste a range of cells and preserve formatting	StarWeaver	Excel	1	03-02-2010 01:41 PM