Home Forums DITA and XMetaL Discussion Multiple Entry Tags Add Text Reply To: Multiple Entry Tags Add Text

Boyd White

Reply to: Multiple Entry Tags Add Text

This will show me every entry's content in a column:

Set ttable = ActiveDocument.documentElement
Set tgrouplist = ttable.getelementsbytagname(“tgroup”)
Set tbodylist=tgrouplist.item(0).getelementsbytagname(“tbody”)
Set tentrylist=tbodylist.item(0).getelementsbytagname(“entry”)

For j = 0 To tentrylist.length-1
        selection.SelectNodeContents(tentrylist(j))
contents=selection.text
msgbox(“contents = ” + contents)
Next

But I don't need every entry's value…I need only those entry tags that have been selected in the column. I have to add a &tab; at the front of their content.

Anybody have some clues. This has turned out to be harder that I would have expected. In R&Ding I have not even been able to get the Range Start and Range End to maybe exclude those outside during the loop of “j” above.

Thanks in advance.

Reply

Products
Downloads
Support