Мое решение вашей проблемы:
Сначала добавьте новый атрибут data-value
к каждой ссылке a
, например:
Во-вторых, измените идентификаторы вкладок, например от add
до tab-add
, также обновить hrefs, чтобы включить префикс tab-
:
Add panel
Edit panel
Panel panel
И, наконец, js-код:
Здесь jsFiddle - но это не работает из-за iframe, используемого jsFiddle, но вы можете прочитать источник моего решения.
Попробуйте сделать два простых изменения, заменив Selection
на Range
объект:
Sub Macro6()
...
...
Dim selecttest(2) As Range 'not Selection
...
...
Set selecttest(i) = Selection.Range 'not just a Selection
...
End sub
Если все, что вы хотите сделать, это показать совпадения, вам нужно только:
ActiveDocument.Range.Find.HitHighlight FindText:="PQXY"