Letysite.ru

IT Новости с интернет пространства
0 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Vba word заменить текст

Vba word заменить текст

For i = 1 To ActiveDocument.Sentences.Count
yes_instr = True: l = 1

Do While yes_instr

j = InStr(l, ActiveDocument.Sentences(i), s_split(0))

If j <> 0 Then
yes_zamena = False
If j + Len(s_split(0)) + 1 = Len(ActiveDocument.Sentences(i)) Then
yes_zamena = True
Else
If (ActiveDocument.Sentences(i).Characters(j + Len(s_split(0))) = «,») Or _
(ActiveDocument.Sentences(i).Characters(j + Len(s_split(0))) = » «) Then
yes_zamena = True
End If
End If

If yes_zamena Then
ActiveDocument.Sentences(i) = Mid(ActiveDocument.Sentences(i),1,j-1)+ _
sr + Mid(ActiveDocument.Sentences(i), j + Len(s_split(0)))
l = j + Len(sr)
Else
l = j + Len(s_split(0))
End If

If l + 2 > Len(ActiveDocument.Sentences(i)) Then
yes_instr = False
End If
Else
yes_instr = False
End If
Loop
Next

Пока вопросов нет — всем спасибо!

Если меняю строку, то сбрасывается форматирование строки. Конкретно:

В строке присутствуют верхние и нижние индексы (или регистры, кто они. )
Типа H20, где 2 внизу и икс в квадрате — х2, где 2 вверху.

как мне сохранить это формат строки?

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Почему, вон код, вверху.
Ага, это мне пригодится. Но дело в том, что меняются все такие нижние и верхние индексы, которых я и не трогал.

вот в этом месте, когда условия совпали для замены
If yes_zamena Then
ActiveDocument.Sentences(i) = Mid(ActiveDocument.Sentences(i),1,j-1)+ _
sr + Mid(ActiveDocument.Sentences(i), j + Len(s_split(0)))

Тут j — номер символа с которого начинается набор букв, подлежащих замене
ActiveDocument.Sentences(i) — текущая строка документа
возвращает строку до заменяемых символов
sr — новая подстрока
Len(s_split(0)) — длина новой подстроки
Ну да, ищу и заменяю без учёта chrW.
Как же это можно учесть?

Слово1 слово2, слово3 X2 — Y2, слово4 слово5 H2O.
Заменить нужно Y2 на A3,
где X2 — икс в квадрате, Y2 — Y в квадрате, А3 — А в кубе, H2O — соответственно АШ2О )))

И ещё, попробовал использовать chrW (sr = string1 + chrW + string2) — бейсик ругнулся:
Argument not optional.

Если для большего понимания моей проблемки нужен более полный код программки, то куда его можно поместить — сюда? Там немного, 100 строк, примерно.

Добавлено:
Может я вообще копаюсь не там. Вдруг всё проще, чем я намутил всё?

Структурная карта для отражающих горизонтов Г, М, НБС2, НАС7-8, НАС9-10, НАС11-12, НБС1, НБС7, НБС7-6, НБС4, НБС10, Б, Абалак, Т, Т1, Т2, Т3, А, рассчитанных c использованием регрессивной зависимости

Здесь цифры и цифры с тирешками — все внизу

Заменить нужно некоторые из них
НБС1 на НАС91, где 9 внизу, а 1 вверху
НБС7 на НАС10-112, где 10-11 внизу, а 2 вверху

Придумал сначала заменить «БС1» на «АС—9+++1», а потом «—9» на «9» в нижнем регистре, а «+++1» на «1» в верхнем

Ну и также для БС7

Всё заменяется, всё хорошо, но регистры в текущем предложении сбрасываются при замене «БС1» на «АС—9+++1».

Добавлено:
Public Sub zamena_po_predl()
Dim s, sr As String
Dim i, j, l, k As Integer
Dim s_split() As String
Dim yes_instr, yes_zamena As Boolean

Open «D:plast112test.txt» For Input As #1

While Not EOF(1)
Input #1, s
If s <> «» Then
s = Trim(s): s_split() = Split(s): j = -1: l = UBound(s_split)
For i = 0 To l
If s_split(i) <> «» Then
j = j + 1: s_split(j) = s_split(i)
End If
Next
ReDim Preserve s_split(j)
l = UBound(s_split)

Office macros and so on

Макросы, скрипты и другие средства автоматизации

Пакетная замена текста в документах Word

Замена текста выполняется во всех документах Word (.doc и .docx) выбранной папки.

Скачать batchreplace.doc.

Поделиться:

Понравилось это:

Добавить комментарий Отменить ответ

Протестировал документ с макросом. Полезная штука:) То что когда-то сам писал на VBA, слишком специфично и будет бесполезно, например, для России. Например «сумма прописью», расчёт удержаний из зарплаты и т.д. Есть, правда, книга Excel играющая в шашки. Писалось давно, программка примитивна и небезупречна. Легко обыграть:)

Спасибо за оценку. А какова специфика ваших макросов: украинские язык и законодательство?

Шашки в Excel я бы с удовольствием посмотрел. Можете выложить?

Зарплата — ясное дело украинское законодательство. Сумма прописью — в гривнах, поэтому числительные женского рода. Программа писалась так, что любой профессионал ругался бы — вариантные переменные, Option Explicit отсутствует. Однако она работала без ошибок в отличие от «суммы прописью» написанной другим человеком, работавшим ранее программистом «по всем правилам» — та сумму 2 грн с копейками превращала в 11 тысяч — прямо цифру в ячейке (такое можно легко сделать намеренно, но как появилась такая ошибка?). Есть ещё программа, верстающая журналы-ордера, ведомости и оборотный баланс в Excel на основании введённой книги хозяйственных операций. Когда этот же человек проявил инициативу и поставил всем Openoffice, ссылаясь на экономию денег — я был дико злым. Это плохо повлияло на моё отношение к Open Source вообще…
Думаю, что выложу шашки. Надо сказать, что сделал я их 6 или 7 лет назад и код, скорее всего, ужасен:)

Как сделать, что бы макрос заменял текст в колонтитулах и в надписях?

Плагин внезапно начал выдавать ошибку — 5792 — файл поврежден. Дебагер указывает на строчку (выделена желтым): Set CurrentDoc = Documents.Open(FilePath). Не подскажете — как это можно пофиксить? До этого все работало. перезагрузка не помогает. Word 2016.

А вручную вы документ открыть можете, на котором происходит ошибка? Путь к «проблемному документу» можно увидеть в подсказке при наведении курсора мыши на слово FilePath.

Очень странный глюк, как выяснилось. FilePath указал, что спотыкается на файле, которого в папке нет. У файла атрибут удаленного (знак доллара в начале). При этом в свойствах проводника стоит настройка — показывать скрытые файлы и папки, корзина очищена, антивирусом просканирована папка. Все ок. но проводник при запросе свойства папки показывает — 9 файлов, а файлов в папке фактически 6. И скрипт спотыкается об один из этих «призраков». Хз, что это. Плагин работает, глюк конкретно моей системы. Спасибо за помощь. Буду искать причину.

Читать еще:  Объединить word файлы в один онлайн

Хороший макрос. А можно сделать так чтобы он менял текст сохраняя регистр?

Можно. Вас интересует готовый функционал как пользователя или фрагмент кода VBA как программиста?

Фрагмент кода VBA, как программиста, пожалуйста )))

Господи, это просто великолепно. Нужно было заменить дату в 180 документах, уже представил, как потеряю час на бессмысленную работу, но этот макрос просто спас. Низкий поклон 🙂

Добрый день!
А как бы заменить текст с учётом видоизменения? У меня есть

400 документов с предложением, которое зачёркнуто. Вот нужно это зачёркивание убрать =)

Здравствуйте!
А можно этот макрос заставить лазать по вложенным папкам?

Поиск и замена текста с помощью VBA в Word

Поиск и замена текста с помощью VBA в Word

Хотя это звучит и несколько необычно, но Find — это объект Word VBA. Объекты Find принадлежат диапазонам и выделенным областям. Для обнаружения или форматирования текста с помощью объекта Find вам потребуется выполнить следующие действия.

1. Получите доступ к объекту Find для определенного диапазона или выделенной области. Если вам необходимо просмотреть целый документ, используйте свойство Content объекта Document для получения доступа к соответствующему диапазону, как показано ниже:

2. Определить свойства объекта Find в соответствии с тем, что же вы ищете и как именно вы хотите проводить поиск.

3. Вызвать метод Execute объекта Find. Соответствующий пример приведен ниже:

Для свойств, значения которых явно вы задать не можете, объект Find выбирает параметры, использованные последними или те, которые в настоящий момент заданы в диалоговом окне Найти и заменить программы Word. Именно по этой причине вам всегда следует включать метод Clear Formatting перед началом нового поиска- он позволяет убрать все ранее определенные для проведения поиска параметры форматирования.

Работа с найденным текстом

Основная работа метода Execute — обнаружение первого экземпляра искомого текста или форматирования в указанном диапазоне или выделенной области. После выполнения этого метода вам прежде всего следует определить, было ли найдено то, что вы ищете. Для подобной проверки используйте свойство Found объекта Find совместно с инструкцией If. Then, как показано на примере следующей заготовки программного кода:

If .Found = True Then

(выполнение определенных действий с найденным текстом)

(отображение соответствующего сообщения)

Если метол Execute нашел необходимый текст, исходный диапазон или выделенная область переопределяются таким образом, чтобы содержать найденный текст. Это очень важный момент, поскольку это означает, что вы можете работать с найденным текстом посредством свойств и методов исходного объекта. В следующем примере, представляющем собой расширенный вариант первого фрагмента кода из настоящего раздела, инструкция .Parent. Italic = True обращается к родительскому объекту по отношению к объекту Find, т.е. диапазону OpenRange. При выполнении этой инструкции диапазон OpenRange теперь содержит только найденный фрагмент текста, так как только в нем предусмотрено форматирование курсивом:

If .Found = True Then

MsgBox «No pogosticks found.»

Объект Reolacement принадлежит (а значит, является его свойством) объекту Find. При написании кода для операции поиска и замены вам следует задать свойства и выполнить методы объекта Replacement.

Следующий фрагмент кода заменяет все экземпляры фразы pogosticks словом skateboards. Выделенная область изменяется при выполнении критерия поиска, поскольку доступ к объекту Find осуществляется через объект Selection:

.Execute Replace := wdReplaceAll

Обратите внимание на то, что метод Execute может использовать аргумент Replace, предназначенный для контроля за тем, будут ли заменены все обнаруженные экземпляры обнаруженного фрагмента текста, или только первый.

Похожие главы из других книг:

Поиск и замена данных

Поиск и замена данных В программе HtmlPad реализована возможность быстрого поиска данных. Этот механизм полезно использовать при работе с большими программными кодами или с большими объемами данных, поскольку поиск требуемой информации вручную (например, путем просмотра

Поиск и замена данных

Поиск и замена данных В программе Extra Hide Studio имеется удобный механизм для быстрого поиска и замены данных. Эта возможность особенно актуальна при работе с большими исходными кодами, поскольку поиск данных путем просмотра всего кода может занять слишком много времени, и к

Глава 2 Подготовка текста в Microsoft Word

Глава 2 Подготовка текста в Microsoft Word • Общие сведения о Word 2007• Основные правила форматирования• Вставка стандартных блоков в документ• Нумерация страниц и колонтитулы• Проверка правописания, поиск синонимов, перевод слов• Сноски и закладки• Настройка параметров

3.1. Поиск и замена фрагментов

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

Поиск и замена текста

Поиск и замена текста В текстовом редакторе Adobe InDesign можно воспользоваться полезнейшей функцией поиска и замены фрагментов текста. Причем, раз мы имеем дело с программой верстки, найденные фрагменты можно не только заменить другими, но и оформить каким-то образом –

Поиск и замена форматирования

Поиск и замена форматирования Для поиска текста с определенным форматированием используйте свойства объекта Find, касающиеся форматирования. Они идентичны свойствам, используемым при работе с форматированием диапазона или выделенной области, как я уже отмечал в разделе

Автоматический поиск и замена данных

Автоматический поиск и замена данных В процессе работы иногда возникает необходимость быстро найти те или иные данные (слово, текстовый фрагмент и т. д.) либо заменить одни данные на другие. Для решения такой задачи в Publisher 2007 реализован механизм автоматического поиска и

Читать еще:  Vba word форматирование таблицы

Поиск и замена

Поиск и замена В новой версии Excel был полностью изменен пользовательский интерфейс и расширены функциональные возможности средства Найти и заменить. Теперь можно с помощью одной операции производить поиск и замену по всем листам книги, повторно выполнять запросы поиска

Поиск и замена символов

Поиск и замена символов Иногда при подготовке электронных документов возникает задача поиска определенных текстовых фрагментов. Например, вы забыли номер чертежа, но помните, что в его названии или дополнительной информации, размещенной на чертеже, содержится

Глава 2 Подготовка текста в Microsoft Word

Глава 2 Подготовка текста в Microsoft Word Microsoft Word – пожалуй, самая популярная на сегодняшний день программа, предназначенная для работы с текстами. Продукт компании Microsoft обладает всеми необходимыми возможностями, связанными с набором и правкой текстов любой сложности.

5.7. Поиск и замена

5.7. Поиск и замена В документе можно производить автоматический поиск текста и замену его другим.Поиск и замена ведется по введенному образцу. Если в качестве образца указано слово «ход», то компьютер найдет и слово «пароход», если предварительно не поставить условие, что

13.3.4. Поиск и замена текста

13.3.4. Поиск и замена текста Как вы уже догадались, окно Найти и заменить используется не только для перехода на нужную страницу. Вкладка Найти используется для поиска текста. Для быстрого доступа к этой вкладке нажмите Ctrl+F или выберите команду меню Правка, Найти. Нажмите

Поиск и замена

Поиск и замена Для поиска в тексте документа нужного слова или сочетания символов служит окно поиска и замены (рис. 9.19), которое открывается нажатием Ctrl+F. Если надо, чтобы оно сразу открылось как окно замены, используйте сочетание Ctrl+H. Рис. 9.19. Окно поиска и замены.Для

Поиск и замена фрагментов фильма

Поиск и замена фрагментов фильма Очень часто бывает нужно найти в изображении или фильме Flash какой-либо текст и, возможно, заменить его на другой. Специально для этого Flash, как и многие другие программы, работающие с документами, предлагает богатые возможности по поиску и

Поиск и замена текста

Поиск и замена текста Поиск определенного слова или фразы в большом документе является довольно непростой задачей, но ее можно значительно упростить, если воспользоваться командой Главная ? Редактирование ? Найти. В появившемся окне (рис. 5.20) введите искомый текст и

Поиск и замена данных

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

VBA Excel Word поиск и замена текста

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 8 ]

1 Тема от Spare 16.10.2012 12:57:27

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Тема: VBA Excel Word поиск и замена текста

Добрый день, уважаемые форумчане.
Опишу ситуацию.
1) Есть файл выгрузки из Sap он сохраняется на рабочем столе под именем.»print_template.xls»
2) Написан макрос в эксель»Печать форм.xls», который открывает файл шаблона документа в ворд «Юр _форм _автозамена.doc» находит в нем специальные коды в скобочках к примеру [spec001] и меняет их на значение из файла выгрузки «print_template.xls».
Все работает замечательно, кроме значений в колонтитулах.
Почему-то после повтороного прохождения колонтитула (поиска и замены) переменная очищается, и поэтому не все коды в скобочках заменяются.
В самом документе тот же код работает замечательно.
Подскажите пожалуйста в чем может быть проблема?

2 Ответ от Spare 16.10.2012 13:00:29

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Re: VBA Excel Word поиск и замена текста

Забыл прекрипить файл.

Извините за несколько сообщений.

Форум.zip 70.53 Кб, 29 скачиваний с 2012-10-16

You don’t have the permssions to download the attachments of this post.

3 Ответ от Spare 16.10.2012 14:49:02

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Re: VBA Excel Word поиск и замена текста

Судя по всему в функции Function SearchInRange(oDoc, oRng, obook, l As Object) при замене кодов в колонтитулах на текст, меняется переменная oRng и L ( диапазон заменяемого текста) первый раз на сам код [], а потом вообще «».
Как это можно побороть?
После передачи переменной в функции я ее не меняю, но ее значение почему-то меняется в коде.
Заранее спасибо

4 Ответ от Spare 16.10.2012 15:44:56

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Re: VBA Excel Word поиск и замена текста

Всем спасибо, сам разобрался

5 Ответ от admin 16.10.2012 16:20:10

  • admin
  • Администратор
  • Неактивен
  • Откуда: Земля
  • Зарегистрирован: 15.12.2009
  • Сообщений: 508
  • Поблагодарили: 39

Re: VBA Excel Word поиск и замена текста

написали бы тут решение, возможно для кого то оно будет полезным

6 Ответ от Spare 16.10.2012 16:23:47

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1
  • За сообщение: 1

Re: VBA Excel Word поиск и замена текста

написали бы тут решение, возможно для кого то оно будет полезным

Function SearchInRange(oDoc, oRng, obook, l As Object) As Boolean
Dim klop As Object, Z As Boolean
Set klop = l
‘Задаем цикл и потом передаем параметры в функцию DoReplace
With oRng.Find
.Text = «[[]?*[]]»
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWildcards = True
.Execute
End With
Do While oRng.Find.Found = True
‘oRng.Find.Execute
If Not oRng = «» Then Codes = oRng
‘If Not oRng = «» Then Codes = Mid(oRng, 2, Len(oRng) — 2)
Set sRow = obook.Sheets(1).Cells.Find(What:=Codes, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not sRow Is Nothing Then
sRow = sRow.Row
Values = obook.Sheets(1).Range(«B» & sRow).Value
If Len(Values) > 240 Then Values = Left(Values, 240)
Call DoReplace(klop:=klop, strFind:=oRng, strReplace:=Values)
Else:
oRng.HighlightColorIndex = wdRed ‘ Заливаем проблемные коды красным
If Not oRng = «» Then Codes = Mid(oRng, 2, Len(oRng) — 2)
Values = Chr(34) & Codes & Chr(34)
Call DoReplace(klop:=klop, strFind:=oRng, strReplace:=Values)
End If
oRng.Find.Text = «[[]?*[]]»
oRng.Find.Forward = True
oRng.Find.Wrap = wdFindContinue
oRng.Find.Format = False
oRng.Find.MatchWildcards = True
oRng.Find.Execute

Loop
End Function
В функции, исправления выделил жирным шрифтом.
Больше никаких манипуляций не делал, заработало как часы.

Читать еще:  Как добавить панель инструментов в word

7 Ответ от johny3329 15.01.2013 08:49:05

  • johny3329
  • рядовой
  • Неактивен
  • Зарегистрирован: 15.01.2013
  • Сообщений: 2

Re: VBA Excel Word поиск и замена текста

Имеется текст с изображением. Обтекание изображения текстом по умолчанию задано «вокруг рамки». Необходимо поменять обтекание изображения текстом на «в тексте». Однако при изменении вышеуказанного типа обтекания изображение обрезается. В чем может быть дело?
Пример прикладываю.

8 Ответ от johny3329 15.01.2013 08:51:53

  • johny3329
  • рядовой
  • Неактивен
  • Зарегистрирован: 15.01.2013
  • Сообщений: 2

Re: VBA Excel Word поиск и замена текста

Имеется текст с изображением. Обтекание изображения текстом по умолчанию задано «вокруг рамки». Необходимо поменять обтекание изображения текстом на «в тексте». Однако при изменении вышеуказанного типа обтекания изображение обрезается. В чем может быть дело?

Сообщений [ 8 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

Яндекс Деньги: 410013576807538

Вебмани (R ещё работает): R140551758553 или Z216149053852

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов — получит плюсик в карму от нас 🙂 Благо Дарим, за любую помощь!

VBA доступ — поиск и замена текста в документе Word

Я успешно написал некоторый код VBA в Excel, который открывает существующий документ Word, находит и заменяет строку, основанную на информации в листе Excel.

Поскольку исходные данные существуют из базы данных Access, я решил попробовать переместить код VBA в Access и запустить его оттуда.

Обновленный код работает в основном, но странно, часть кода, которая находит и заменяет текстовую строку, не работает, когда я запускаю ее в access.

Код выполняется нормально, за одним исключением, которое является найти и заменить элемент в Word, т. е.

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

Буду очень признателен за любую помощь, которая может быть доступна

1 Ответ

На самом деле я только что понял, что myself. I не ссылался на библиотеку объектов Word в разделе Инструменты.

Всегда что-то простое!

Похожие вопросы:

У меня есть специальный документ, в котором я написал макрос VBA, для которого toggles находится между двумя представлениями о себе. Есть логические утверждения, написанные так:: Если Q.1 = 2, то.

Мне нужно написать макрос VBA Word, который будет выполнять поиск и замену, чтобы изменить все вхождения текста в одном шрифте на другой шрифт. Код, который у меня есть (перечисленный ниже), делает.

Я новичок в VBA, поэтому я борюсь с тем, что кажется довольно простой задачей. У меня есть несколько строк текста в каждой ячейке в документе word. Каждая ячейка содержит категорию типа Science или.

Я хотел бы знать, можно ли искать все глаголы в документе Microsoft Word. Я обнаружил, что вы можете найти все forms конкретного глагола (например, поиск be, и слово найдет be,am,are,was и т. д.) но.

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

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

Можно ли просто сделать простой поиск и замену текста в документе Word с помощью PHPWord? Из того, что я видел, самое близкое, что вы можете получить, — это просто текст ADDING для раздела, и вы не.

В форме мой доступ пользователь может ввести некоторый текст в текстовый блок. Обычно в этом тексте есть несколько разрывов строк (поэтому в свойствах textbox функция ввода изменяется, чтобы вернуть.

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

Почему этот код VBA ((начальная часть sub) изменяет видимый выбор в документе Word? Я не изменяю никакого выбора. Согласно описанию MSDN: Если вы добрались до объекта, от объекта диапазона.

Ссылка на основную публикацию
Adblock
detector