Страница: 1 |
Вопрос: VC6.0 и Word | Добавлено: 13.11.03 21:04 |
Автор вопроса: ![]() |
Доброе время суток! Пытаюсь сейчас решить вот такую проблему : Надо открыть документ Word при помощи VC 6.0 и заменить определенные слова на другие (Replace сделать в общем) Никто не сталкивался с таким ? Открываю документ, потом делаю выделение всего текста , а вот как заменить слово на другое не знаю =(\ _Document testDoc; Уже думаю может макрос какой сделать для этих целей и из VC его запускать . |
Ответы | Всего ответов: 8 |
Номер ответа: 1 Автор ответа: ![]() ![]() ICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | Цитата | #1 | Добавлено: 13.11.03 21:45 |
А что такое VC ? |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 200700724 Вопросов: 38 Ответов: 329 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 14.11.03 01:38 |
Visual C++ - язык програмирования такой есть |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 1707975 Вопросов: 8 Ответов: 47 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 14.11.03 02:14 |
Я думаю быстрее ответят на форуме по C++! |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() Вопросов: 1 Ответов: 184 |
Профиль | Цитата | #4 | Добавлено: 14.11.03 02:51 |
В Word.Document есть коллекция Words содержащая все слова документа и все разделители параграфов. |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 14.11.03 09:35 |
Вообще, знаешь, в Word'e очень удобная штука - запись макросов.. Собственно, реплэйс я делал так (это на VB .NET): Wrd.Selection.WholeStory() With Wrd.Selection.Find .Replacement.ClearFormatting() .Text = "[Name]" .Replacement.Text = item.Item("Name").ToString & "" .Execute(Replace:=Word.WdReplace.wdReplaceAll) End With |
Номер ответа: 6 Автор ответа: ![]() ![]() Вопросов: 4 Ответов: 11 |
Профиль | Цитата | #6 | Добавлено: 14.11.03 20:10 |
2USA Хотелось бы узнать как заменить определенное слово. Я не нашел способа. У вас случаем нет куска года ? |
Номер ответа: 7 Автор ответа: ![]() ![]() Вопросов: 4 Ответов: 11 |
Профиль | Цитата | #7 | Добавлено: 14.11.03 21:52 |
года = кода
2 Павел Да конечно , на VB намного проще.
|
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() Вопросов: 1 Ответов: 184 |
Профиль | Цитата | #8 | Добавлено: 17.11.03 03:59 |
Function Replace(ByVal FindWord As String, ByVal ReplaceWord As String) As Long Dim r As Range Dim s As String Dim l As Long
For Each r In Word.ActiveDocument.Words s = Trim(r.Text) If s = FindWord Then l = InStr(1, r.Text, s) r.Text = Mid$(r.Text, 1, l - 1) & ReplaceWord & Mid$(r.Text, l + Len(s)) Replace = Replace + 1 End If Next r End Function |
Страница: 1 |
|