Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #2  
Old 04-04-2014, 01:43 PM
Larry Sulky Larry Sulky is offline How to extract text from a cell and preserve special formatting? Windows 7 64bit How to extract text from a cell and preserve special formatting? Office 2010 64bit
Novice
 
Join Date: Mar 2014
Posts: 14
Larry Sulky is on a distinguished road
Default Mark up the formatted characters

The most effective way I've found to do this is to mark the special formatting first with codes (might as well use XML syntax), grab your text, then remove the codes:
Code:
Sub test()
    
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Font.Superscript = True
        .Replacement.Text = "<sup>^&</sup>"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Font.Bold = True
        .Replacement.Text = "<b>^&</b>"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

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

    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "<sup>"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "</sup>"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "<b>"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "</b>"
        .Replacement.Text = ""
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
How to extract text from a cell and preserve special formatting? Need macro to merge files in Word and preserve formatting Carolin Word VBA 3 12-14-2014 04:01 AM
How to extract text from a cell and preserve special formatting? 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
How to extract text from a cell and preserve special formatting? Cut and paste a range of cells and preserve formatting StarWeaver Excel 1 03-02-2010 01:41 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:06 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft