從MS Word通過VB.NET選擇詞

Question

我想選擇 Ms Word通過VB.NET的特定單詞（Microsoft.Office.Interop.Word）。

任何想法如何做到這一點？

編輯： 問題是我無法找到/替換字符串超過255個符號。這就是爲什麼我試圖找到這個問題的另一個解決方案。

Answer 1

如果這個問題有人找解決辦法：

Imports Word = Microsoft.Office.Interop.Word 
Dim WordApp As Word.Application = New Word.Application 
Dim WordDoc As Word.Document 

Public Function FindReplaceText(CellsValueWithLabel As String()()) As Boolean 
    'Find and replace texts from arrays 
    For Each cellsValue In CellsValueWithLabel 
     Try 
      If cellsValue(1).Length < 255 Then 
       If WordDoc.Content.Find.Execute(FindText:=cellsValue(0), ReplaceWith:=cellsValue(1), Replace:=Word.WdReplace.wdReplaceAll) Then 
        logHistory.insertLogHistory(Chr(34) + cellsValue(0) + Chr(34) + " - replaced by " + Chr(34) + cellsValue(1) + Chr(34)) 
       End If 
      Else 
       Dim myRange = WordDoc.Content 
       While myRange.Find.Execute(FindText:=cellsValue(0)) 
        If myRange.Find.Found Then 
         myRange.Select() 
         My.Computer.Clipboard.SetText(cellsValue(1)) 
         WordApp.Selection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault) 
         logHistory.insertLogHistory(Chr(34) + cellsValue(0) + Chr(34) + " - replaced by " + Chr(34) + cellsValue(1) + Chr(34)) 
         Clipboard.Clear() 
        End If 
       End While 
      End If 
     Catch ex As Exception 
      logHistory.insertLogHistory("********** ERROR ********** " + cellsValue(0) + " " + ex.Message.ToString()) 
     End Try 
    Next 

    WordDoc.Save() 
    Return True 
End Function 

Answer 2

你的問題似乎很模糊，但作爲一個開始，你可以按如下步驟進行;

 Dim objWord As New Word.Application 
     Dim WordToFind as string = "Test" 
     objWord.Visible = True 

     'Open an existing document. 
     Dim objDoc As Word.Document = objWord.Documents.Open("C:\folder\MyDoc.doc") 
     objDoc = objWord.ActiveDocument 

     'Find word 
     objDoc.Content.Find.Execute(FindText:=WordToFind) 

     ' perform your process with the searched text 

     'Close the document 
     objDoc.Close() 
     objDoc = Nothing 
     objWord.Quit() 
     objWord= Nothing 

希望它有幫助！

Answer 3

在情況下，它可以幫助任何人，以取代超過255個字符，使用範圍會有所幫助。

If (SomeText.Length < 250) Then 
    oSel.Find.Execute("SomeText", , , , , , True, Word.WdFindWrap.wdFindContinue, , "Replacetext", Word.WdReplace.wdReplaceAll) 
    Else 
     Dim rng As Word.Range = oSel.Range 
     rng.Find.Execute("SomeText", , , , , , , , , ,) 
     rng.Text = DirectCast(StringWithMoreThan255Characters, String) 

End If