I was trying to put formatted text into a dictionary.

I got it to work using Selection.FormattedText or putting the selection into a Range.

I verified that by putting the selection/range into a new document using my dictionary and the key that went with it.

However, if I close the original document, while dictionary.count still shows the correct number of items, when I try to put it into a document it errors out.

I thought that once I put either Selection.Formatted text or a range into a dictionary it would exist in the dictionary even it the original document was closed. But that doesn't seem the case.

I endup writing the text to an RTF and then inserting that, but if there was any way I could store the formatted text, a/k/a "rich text" into a dictionary that would be much preferred.

I created a blank document and then typed some "rich text" (This is bold, this is underlined), etc. and selected it. Then I ran this sub:

Dim dicTest as Object
Dim rng1 as Range

Set dicTest = CreateObject("Scripting.Dictionary")

Set dicTest(1) = Selection.FormattedText 'Had to use "Set" go keep it as FormattedText

Set rng1 = Selection.FormattedText



Set dicTest(2) = rng1.FormattedText

Documents([Put in # or name of a blank document]).Activate

Selection.FormattedText = dicTest(1)

or
Selection.FormattedText = dicTest(2).

Either of those work, BUT if I close document 1 then trying to put either dicTest 1 or 2 into a document will fail.

Is there any way to store formatted text in a dictionary or another variable/object?

You are not storing any text in the dictionary. Look at your code again. You will see that you are storing ranges in your dictionary, not formatted text. Not that it matters as it is not possible to store formatted text except by writing it to another document. Any other method will strip the formatting.

Unfortunately, as I suspected, and you confirmed, a range is only a pointer, not what is in the range itself. I verified it with this macro:

Sub FormattedTextAsRangeTest()

'This proves that storing a range to a dictionary only stores a pointer to the range
'NOT what was in the range itself
'This proves it because we do not tell the dictionary to change what is stored in it (i.e. rng1)
'
'Be sure to start in a document with some formatted text
'and to set sBlankDocName to the name of an empty document

Dim dicTest As Object

Dim rng1 As Range

Dim sAdName As String
Dim sBlankDocName As String

sBlankDocName = "[Name of blank document here]"

sAdName = ActiveDocument.Name

Set dicTest = CreateObject("Scripting.Dictionary")

Selection.WholeStory

Set rng1 = Selection.FormattedText

Set dicTest(1) = rng1.FormattedText

Documents(sBlankDocName).Activate

Selection.FormattedText = dicTest(1)

Documents(sAdName).Activate

Selection.MoveLeft , 1

Selection.TypeText "Newly Added "

Documents(sBlankDocName).Activate

Selection.FormattedText = dicTest(1)

End Sub