Быстрый поиск и замена стилей в MS Word

Question

У меня есть необходимость автоматизировать преобразование HTML-файлов в файлы MS Word, и как часть этого я хочу удалить все стили стиля Normal (Web) и заменить их просто Normal,

Я использую следующее

$find = $word.Selection.Find
$find.Style = $word.ActiveDocument.Styles.Item("Normal (Web)")
$find.Forward = $True
$find.Format = $True
while ($word.Selection.Find.Execute())
{
    $word.Selection.Style = $word.ActiveDocument.Styles.Item("Normal")
    $null = $word.Selection.EndKey(5)
}

который работает, но медленно. Есть ли более быстрый способ?

Answer 1

Найден подход, который не заменяет, но дает желаемый эффект:

$style = $word.ActiveDocument.Styles.Item("Normal (Web)")
$style.Delete()