Nano Hash - криптовалюты, майнинг, программирование

Как удалить все форматирование из этого вывода Word VBA и использовать обычный быстрый стиль?

Я использую следующий макрос VBA для добавления номеров страниц после всех гиперссылок закладок в моем документе:

Sub InsertPageRefs()
Application.ScreenUpdating = False
Dim hLnk As Hyperlink, Rng As Range
For Each hLnk In ActiveDocument.Hyperlinks
  With hLnk
    If InStr(.SubAddress, "_Toc") = 0 And .Address = "" Then
      Set Rng = .Range
      With Rng
        .Collapse Direction:=wdCollapseEnd
        .InsertAfter Text:=" (See page #)"
        .Font.Underline = wdUnderlineNone
      End With
      ActiveDocument.Fields.Add Range:=Rng.Characters(InStr(Rng, "#")), Text:="PAGEREF " & .SubAddress
    End If
  End With
Next
Set Rng = Nothing
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox ActiveDocument.Hyperlinks.Count & " page numbers have been added.", vbOKOnly
End Sub

Однако это имеет нежелательные результаты.

  1. Синий цвет гиперссылок частично перетекает в добавленный текст.

  2. Когда я сохраняю полученный файл в HTML, создается куча сумасшедших тегов span. Я не хочу этого, потому что я собираюсь преобразовать HTML в .mobi для Kindle, и все теги span создадут хаос в моем .mobi.

Как удалить все форматирование и вставить номера страниц в стиле слова «Обычный»?

vba ms-word
27.04.2015

  • Иными словами, я хочу, чтобы вставленный текст наследовал стиль абзаца, в который он вставляется. 27.04.2015
  • И НЕ испортить базовый код разметки. 27.04.2015

Ответы:


1

Я подозреваю, что настоящим ответом на это будет использование хороший редактор электронных книг, который будет отслеживать это для вас.

Тем не менее, проблема, скорее всего, в том, что вы работаете с диапазоном гиперссылки, поэтому все, что вам нужно сделать, это продублировать его. Это позволяет форматировать ваш диапазон отдельно от любого форматирования, прикрепленного к гиперссылке. Другое преимущество использования дубликата диапазона гиперссылки заключается в том, что вы можете работать с текстом диапазона напрямую, не разрушая ссылку, что также является простым способом сохранения целевого форматирования:

Sub InsertPageRefs()

    Dim hLnk As Hyperlink
    Dim Rng As Range

    For Each hLnk In ActiveDocument.Hyperlinks
        If InStr(hLnk.SubAddress, "_Toc") = 0 And hLnk.Address = vbNullString Then
            Set Rng = hLnk.Range.Duplicate
            Rng.Start = Rng.End
            Rng.Text = " (See page #)"
            Rng.Font.Underline = wdUnderlineNone
            ActiveDocument.Fields.Add Range:=Rng.Characters(InStr(Rng, "#")), _
                                      Text:="PAGEREF " & hLnk.SubAddress
        End If
    Next

    MsgBox ActiveDocument.Hyperlinks.Count & " page numbers have been added.", vbOKOnly
End Sub

Обратите внимание, что я вытащил блоки With, чтобы сделать это более читаемым. Вложенные With значительно усложняют определение с первого взгляда объекта, над которым вы работаете.

27.04.2015
Новые материалы
Кластеризация: более глубокий взгляд
Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
Как написать эффективное резюме
Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
Частный метод Python: улучшение инкапсуляции и безопасности
Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
Как я автоматизирую тестирование с помощью Jest
Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..