Create a scrollable text field

[Greg Maxey]

In a separate post made in the .Client group, I learned how to add a an HTML
container to my webpages where I can publish large segments of text and
users can scroll through the text in the container:

<pre style="height: 150px; border: 2px solid orange; padding: 5px; width:
875px; overflow:scroll;">&nbsp;</pre>

My text (when inserted) is placed between the <pre> </pre> flags where
&nbsp; is now displayed in the code above.

Attempting to simplify using this technique, I created a FrontPage VBA
procedure (my first) that adds a HTML container at the selection:

Sub InsertHTMLContainer()
Dim objRange As IHTMLTxtRange
Set objRange = ActiveDocument.Selection.createRange
objRange.collapse False
objRange.pasteHTML "<pre style=""height: 150px; border: 2px solid orange;" _
& "padding: 5px; width: 875px;
overflow:scroll;"">&nbsp;</pre>"
End Sub

This works to place a container in the webpage, but it places it after the
selected text. I have to perform an extra manual step to cut my selected
text and paste it in the container.
What I would like to do is to select a block of text and insert an HTML
container that contains the selected text. I am very unfamiliar with the
FrontPage object module and through a hour or so of tinkering, I have not
found a solution.

Can this be done?

Thanks for any assistance.

--
Greg Maxey

See my web site http://gregmaxey.mvps.org
for an eclectic collection of Word Tips.

Arrogance is a weed that grows mostly on a dunghill (Arabic proverb)