Быстрый поиск и замена стилей в MS Word - PullRequest
Новая
       29

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

0 голосов
/ 23 августа 2011

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

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

$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)
}

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

1 Ответ

0 голосов
/ 23 августа 2011

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

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