Удаление совпадений текста в документе MS Word

@adb420 · 22.11.2014, 18:50

Студворк — интернет-сервис помощи студентам

на форме текстовое поле, и кнопка. есть уже созданный файл Word (docx)(путь к файлу word берется из текстового поля) с определенным повторяющимся текстом на страницах, скажем с таким текстом "Привет! Как дела".
при нажатии на кнопку должен открыться этот файл с уже удаленным одинаковым текстом и заданным шрифтом "Times New Roman". Как это осуществить!? Помогите, желательно кодом! Заранее спасибо!

@Visualist · 22.11.2014, 20:03

одинаковый текст, который нужно удалить, где задается?

@adb420 · 22.11.2014, 20:05

Visualist, Непосредственно в программном коде

@Visualist · 22.11.2014, 20:22

а как открывать будешь файл?

@adb420 · 22.11.2014, 20:37

Visualist, при нажатии на кнопку (путь берется из текстового поля)
я как понимаю, надо подрубить библиотеку.

VB.NET
1
2
3
4
Dim WordApp As Word.Application         
Dim DocWord As Word.Document          
 
Set DocWord = WordApp.Documents.Open(Textbox1.text)

Добавлено через 8 минут
а если вот так вот открыть:

VB.NET
1
Process.Start(TextBox2.Text)

то тогда наверно вряд ли получиться осуществить то, что я хочу?

@adb420 · 24.11.2014, 11:11

Сделал вот так вот:

VB.NET
1
2
3
4
5
6
7
8
 Dim Word As Word.Application
        Word = CreateObject("Word.Application")
        Word.Documents.Open(TextBox2.Text) 'открываем документ
        Word.Visible = True
        With Word.Selection.Find
            .Execute(Replace("текст", 0, 0)) 'что ищем
            Word.Selection.Text = "" 'на что меняем
        End With

но он только почему-то ищет и заменяет его на одной странице, а не на всех. как сделать замену текста по всему документу?

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))