强调Word文档中每个单词的更好方法？

Question

我是编程新手，但我正在尝试将现有脚本作为MS Word 2010/2013插件，以便在打开的文档中为每个拉丁文单词添加正确的重音强调。

脚本“DoAccentuate”为任何无字形的拉丁单词返回一个带重音的单词，我将它作为字符串发送。我只需要帮助你更好地循环遍历所有单词，然后在达到最后一个单词时停止循环。我目前的方法有点愚蠢......我在文档的末尾插入一个无意义的单词，然后循环直到它被选中并重读。

也许有一种更好或更有效的方式去做整件事情。

Public Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 
    Dim document As Word.Document 
    document = Globals.ThisAddIn.Application.ActiveDocument 
    Dim mySelection = document.Application.Selection 
'make sure cursor is at start of document 
     document.Application.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory) 

    'insert fake word at end to stop the loop 
    Dim range As Word.Range 
    range = document.Range() 
    range.InsertAfter(" documentendatoris") 

    Do 
     'use MS Word's wildcard to select the first individual word as trimmed string 
     mySelection.Find.Text = "<*>" 
     mySelection.Find.MatchWildcards = True 
     mySelection.Find.Execute() 
     'replace the selected word that has been found with its accented counterpart 
     mySelection.Text = Accentuate.Accentuate.DoAccentuate(mySelection.Text) 
    Loop Until mySelection.Text = "documentendatóris" 

End Sub 

Answer 1

好了，我不知道真的如果它的更有效的方法，但你可以使用document.Content和range.Words收集，检查所有单词故事主要范围

document = Globals.ThisAddIn.Application.ActiveDocument 

    Dim range As Word.Range 
    range = document.Content 

    Dim current As Integer 
    current = 0 

    Dim words As Word.Words 
    words = range.Words 

    Dim word As Word.Range 

    Do 
     current = current + 1 
     If current < words.Count Then 
      word = words(current) 
      If word.Text.EndsWith(" ") Then 
       word.Text = word.Text.Trim() + "'s " 
       'replace the selected word that has been found with its accented counterpart 
       'mySelection.Text = Accentuate.Accentuate.DoAccentuate(mySelection.Text) 
      Else 
       word.Text = word.Text.Trim() + "'s" 
      End If 
     End If 
    Loop Until current = words.Count