Forum Replies Created

  • Boyd White

    Reply To: Multiple Entry Tags Add Text

    Participants 0
    Replies 1
    Last Activity 2 years, 1 month ago

    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

    Boyd White

    Reply To: Multiple Entry Tags Add Text

    Participants 0
    Replies 1
    Last Activity 2 years, 1 month ago

    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