Замените выделенные слова в слове Microsoft с помощью VBA - PullRequest
Новая
       47

Замените выделенные слова в слове Microsoft с помощью VBA

0 голосов
/ 22 декабря 2011

Мне нужно пройтись по всему текстовому документу и прочитать выделенный текст, чтобы я мог найти выделенный контент в моем XML-файле и заменить его значением coresponding в XML-файле.Я понял, как проанализировать мой XML-файл в DOM и найти нужное мне значение.Я все еще сортирую код VBA, чтобы пройтись по всему текстовому документу и прочитать содержимое выделенного текста, чтобы я мог сравнить его с моим XML-файлом.

Ответы [ 2 ]

1 голос
/ 23 февраля 2012

Это идеальное решение для вас.Я написал этот макрос и протестировал.http://blog.haneefputtur.com/2012/02/macro-to-extract-highlighted-words-from.html

1 голос
/ 22 декабря 2011

Вы захотите пройтись по всем Словам в документе word и проверить, выделено ли каждое слово или нет.
Если вы найдете выделенное слово, используйте код, который вам уже нужен, чтобы просмотреть список слов вXML, чтобы получить замену и высоту для выбранного слова в документе.

Вот краткий пример. 

Sub GetHighlightedWords()
  Dim doc As Document
  Set doc = ActiveDocument
  Dim SelectedWord As String

  For i = 1 To doc.Range.Words.Count
    If doc.Range.Words(i).HighlightColorIndex > 0 Then
        SelectedWord = doc.Range.Words(i)
        'This is where you would go to your XML document and pickup a replacement word and subtitude it for the selected word.'
        Debug.Print SelectedWord 
    End If
  Next

End Sub
...