Как в Word 2000 заменить текст по всему документу

[X-BOND]

То-есть существует ли такая функция, или прийдется по строчно и с помощью Replace

[Webmax]

Попробуй так:

Код: Выделить всё

Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
    Replace:=wdReplaceAll

[gjghjc]

А можно еще макрос записать

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ff"
.Replacement.Text = "dd"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Удобнее тем что можно изменять параметры поиска такие как жирнение текста, учет регистра и т.д.