| Вопрос: VC6.0 и Word | Добавлено: 13.11.03 21:04 |
Автор вопроса:  Spin
|
|
Доброе время суток! Пытаюсь сейчас решить вот такую проблему : Надо открыть документ Word при помощи VC 6.0 и заменить определенные слова на другие (Replace сделать в общем) Никто не сталкивался с таким ? Открываю документ, потом делаю выделение всего текста , а вот как заменить слово на другое не знаю =(\ _Document testDoc; Уже думаю может макрос какой сделать для этих целей и из VC его запускать . |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа: mzx ICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | | #1 | Добавлено: 13.11.03 21:45 |
| А что такое VC ? | ||
|
Номер ответа: 2 Автор ответа:  Last_SantaICQ: 200700724 Вопросов: 38 Ответов: 329 |
Web-сайт: Профиль | | #2 | Добавлено: 14.11.03 01:38 |
|
Visual C++ - язык програмирования такой есть |
||
|
Номер ответа: 3 Автор ответа:  Magic lantern ICQ: 1707975 Вопросов: 8 Ответов: 47 |
Web-сайт: Профиль | | #3 | Добавлено: 14.11.03 02:14 |
|
Я думаю быстрее ответят на форуме по C++! |
||
)|
Номер ответа: 4 Автор ответа: USAВопросов: 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 Автор ответа: SpinВопросов: 4 Ответов: 11 |
Профиль | | #6 | Добавлено: 14.11.03 20:10 |
|
2USA Хотелось бы узнать как заменить определенное слово. Я не нашел способа. У вас случаем нет куска года ? |
||
|
Номер ответа: 7 Автор ответа: SpinВопросов: 4 Ответов: 11 |
Профиль | | #7 | Добавлено: 14.11.03 21:52 |
|
года = кода
2 Павел Да конечно , на VB намного проще.
|
||
|
Номер ответа: 8 Автор ответа: USAВопросов: 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 |