удаление одинаковых ссылок

[neoman1]

Уважаемые форумчане! Подскажите плз, как сделать,чтобы word удалил из списка в 1000 ссылок одинаковые ссылки?

[viter.alex]

Имеются в виду гиперссылки? Что значит одинаковые? Ссылающиеся на один и тот же адрес?

[neoman1]

Сообщение от viter.alex

Имеются в виду гиперссылки? Что значит одинаковые? Ссылающиеся на один и тот же адрес?

да один и тот же адрес..он может быть в разных места...как дбли удалить?

[neoman1]

людиии...никто не знает как???

[viter.alex]

«…чавой-то мне сегодня не колдуется с утра…»
Попробуй такой вариант:

Sub DeleteDuplicatedHyperlinks()
  Dim oHyp As Hyperlink
  Dim oHypTemp As Hyperlink
  Dim bNotFound As Boolean
  Dim oRng As Range
  Dim n As Long: n = 1
  ActiveDocument.Windows(1).View.ShowFieldCodes = True
  Do
    Set oHyp = Hyperlinks(n)
    Set oRng = ActiveDocument.Range(oHyp.Range.End, ActiveDocument.Range.End)
    For Each oHypTemp In oRng.Hyperlinks
      If oHypTemp.Address = oHyp.Address Then oHypTemp.Range.Delete
    Next oHypTemp
    n = n + 1
    DoEvents
  Loop While n <= ActiveDocument.Hyperlinks.Count
  ActiveDocument.Windows(1).View.ShowFieldCodes = False
End Sub

Для пущей уверенности запусти макрос несколько раз. Только сделай резервную копию на всякий случай

[neoman1]

Viter.Alex
Спасибо тебе большое уважаемый...но подскажи что делать с этим кодом?
может есть проще варик?...суть такая упростим всё...есть спсиок из 1000 предложений,
и в этом списке есть одинаковые предложения...как удалить их автоматом...искать замучиться можно

[viter.alex]

Сообщение от neoman1

Viter.Alex
Спасибо тебе большое уважаемый...но подскажи что делать с этим кодом?
может есть проще варик?...суть такая упростим всё...есть спсиок из 1000 предложений,
и в этом списке есть одинаковые предложения...как удалить их автоматом...искать замучиться можно

Сюда ходи и учись