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

Удалить возврат каретки из stringvar, содержащего текст с закладками

В макросе Word 2010 VBA я скопировал текст с закладками в строковую переменную с именем «strMsgBoxMsg».

Я хочу удалить возврат каретки из текста, связанного с закладкой «Заголовок», но я не могу удалить возврат каретки в тексте с закладкой.

Следующее НЕ удаляет возврат каретки:

string2FindAndDelete1 = " " & Chr(13) & " "
string2FindAndDelete1 = " " & vbCrLf
string2FindAndDelete1 = " " & Chr(13)
string2FindAndDelete1 = Chr(13) & " "

If InStr(FnA.fnEnumerateDocBkMrks, "Title") Then
    strMsgBoxMsg = ""
    strMsgBoxMsg = ActiveDocument.Bookmarks("Title").Range.Text
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete1, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete2, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete3, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, "%%REPLACE_THIS%%", " ")
    MsgBox "MessageBox after Search and Replace:" & vbCrLf & strMsgBoxMsg
End If

Я разместил файл Word в Интернете по этому адресу: http://tinyurl.com/h7vul2p.

Макрос VBA в файле: subSaveAsPdfInSameDir

vba ms-word
14.01.2016

  • Вы присваиваете четыре разных значения одной и той же переменной? 14.01.2016
  • Всегда ли есть пробел перед или после знаков абзаца? Если есть только знак абзаца, то ни одно из назначений, которые вы делаете, не будет работать. Попробуйте просто vbCr (без LF) ИЛИ Chr(13). И, как подразумевает Тим ​​в своем вопросе, обратите внимание, что будет работать только последнее из присвоений переменных одному и тому же имени переменной - VBA не запомнит их все, только последнее... 14.01.2016
  • Я не могу поверить, насколько я был неряшлив, хотя я провел несколько часов, глядя на очевидную ошибку, которую я сделал. 14.01.2016

Ответы:


1

Ниже приведены мои исправления, которые сработали благодаря Синди и Тиму (которые заслуживают похвалы, но я не могу понять, как отдать им должное за решение моей проблемы).

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

Я хотел, чтобы первые четыре переменные имели разные имена (например, string2FindAndDelete1, string2FindAndDelete2 и т. д.

string2FindAndDelete1 = " " & Chr(13) & " "
string2FindAndDelete2 = " " & Chr(13)
string2FindAndDelete3 = Chr(13) & " "
string2FindAndDelete4 = Chr(13)


If InStr(fn_EnumerateDocBkMrks, "Title") Then
    strMsgBoxMsg = ""
    strMsgBoxMsg = ActiveDocument.Bookmarks("Title").Range.Text
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete1, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete2, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete3, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, string2FindAndDelete4, "%%REPLACE_THIS%%")
    strMsgBoxMsg = Replace(strMsgBoxMsg, "%%REPLACE_THIS%%", " ")
    MsgBox "MessageBox after Search and Replace Carriage Returns:" & vbCr & vbCrLf & strMsgBoxMsg
    Call subWriteProp(sPropName:="Title", sValue:=strMsgBoxMsg)
End If
14.01.2016
Новые материалы
Кластеризация: более глубокий взгляд
Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
Как написать эффективное резюме
Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
Частный метод Python: улучшение инкапсуляции и безопасности
Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
Как я автоматизирую тестирование с помощью Jest
Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..