Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Поиск и замена в Word Добавлено: 13.12.03 15:34  

Автор вопроса:  admsasha | Web-сайт: dansoft.krasnokamensk.ru | ICQ: 234002454 

Открываю Word файл так:

Set WordApp = New Word.Application
WordApp.Visible = True
Set DocWord = WordApp.Documents.Open(App.Path & "\proba.doc")
DocWord.Activate

как заменить все "asd" на указанное в text1.text в этом документе ?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Svetlana



ICQ: 262385618 

Вопросов: 43
Ответов: 205
  Профиль | | #1 Добавлено: 14.12.03 15:39

а ты макрос в ворде запиши и код посмотри. Я как-то так делала уже..

Ответить

Номер ответа: 2
Автор ответа:
 lostdragon2000



Вопросов: 4
Ответов: 7
  Web-сайт: www.shatki.info
 Профиль | | #2 		Добавлено: 15.12.03 07:48

Dim Wrd As Word.Application
Dim WrdDc As Object
Set Wrd = New Word.Application
Set WrdDc = Wrd.Documents.Open("c:\test.doc", , False)  'Application.
WrdDc.Application.Visible = True

Wrd.Selection.Find.ClearFormatting
    Wrd.Selection.Find.Replacement.ClearFormatting
  
   With Wrd.Selection.Find
        .Text = "dat"
        .Replacement.Text = Date
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
       ' .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Wrd.Selection.Find.Execute Replace:=wdReplaceAll
    Wrd.Selection.Find.Execute Replace:=wdReplaceAll

Set WrdDc = Nothing
Set Wrd = Nothing

В открытом документе test.doc  заменяет    найденное  dat
На -  ;Date

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам