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

I have to admit…I am using the ancient Xmetal 2.1
I tried your recommendation Derek and I imagine it would work on newer versions; but not on 2.1
Your recommendation gave me some ideas gave me some ideas but none of them panned out…I just was not able to get the Start and Stop range or cell/entry count of what I selected in a Table Column.
I was able to create a workaround with a couple Input Boxes from the user for anyone interested:

Dim iRows
Dim iIndent
Dim iCountRows
Dim strTabs
Dim i

iRows = cint(inputbox(“How Many Cells Downward From The Current Cell Do You Want To Indent: “, “Data Input”))

iIndent = cint(inputbox(“How Many &tab; Entities To Apply In Each Cell: “, “Data Input”))

strTabs = “”

For i = 1 To iIndent
    strTabs = strTabs & “&tab;”
Next

For iCountRows = 1 To iRows

Selection.TypeText(strTabs)
Selection.SelectContainerContents
        Selection.MoveLeft
Selection.MoveDown    
   
Next

Reply

Products
Downloads
Support