Тема: VBScript: замена текста в документе Word
Пример заменяет все вхождения строки "1111" на "2222" в файле "C:\temp\1.doc" и сохраняет результат в файл "C:\temp\2.txt".
Option Explicit
Const wdReplaceAll = 2
Const wdFormatText = 2
Dim objWord
Dim objDoc
Set objWord = WScript.CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\temp\1.doc")
With objWord
'.Visible = True
With .Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "1111"
.Replacement.Text = "2222"
.MatchCase = 0
.MatchWholeWord = 0
.MatchWildcards = 1
.MatchSoundsLike = 0
.MatchAllWordForms = 0
.Forward = 1
.Wrap = 1
.Format = 0
' Replace - 11-й параметр метода .Execute
' Все остальные параметры - опциональные, их можно опустить,
' коль большинство из них было задано выше.
' Хотя можно было задать их и в методе .Execute
.Execute ,,,,,,,,,,wdReplaceAll
End With
End With
objDoc.SaveAs "C:\temp\2.txt", wdFormatText
objWord.Quit
Set objWord = Nothing
WScript.Quit 0
Автор примера - alexii.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.