слово vba: перебирая формат сброса документа - PullRequest
Новая
       9

слово vba: перебирая формат сброса документа

0 голосов
/ 20 октября 2011

Я хочу просмотреть свой текстовый документ, удалив все фоновые цвета для каждого слова. Это мой код, но он не работает - я получаю следующее сообщение об ошибке «Аргумент не является обязательным» и «.Item» подсвечивается: 

Sub ResetColor()
Dim doc As Document
Set doc = ActiveDocument
Set eword = doc.Range.Words.Item

 For i = 1 To doc.Range.Words

  eword.Shading.Texture = wdTextureNone
  eword.Shading.ForegroundPatternColor = wdColorAutomatic
  eword.Shading.BackgroundPatternColor = wdColorAutomatic

 Next

End Sub

1 Ответ

1 голос
/ 20 октября 2011

Попробуйте это: 

Sub ResetColor()
    Dim doc As Document
    Set doc = ActiveDocument

    For Each eword In doc.Range.Words

      eword.Shading.Texture = wdTextureNone
      eword.Shading.ForegroundPatternColor = wdColorAutomatic
      eword.Shading.BackgroundPatternColor = wdColorAutomatic

    Next

End Sub
...