如何刪除MS Word中某些字符後的所有文本？

Question

讓我們說我有文字是這樣的：

東西的東西：什麼什麼什麼

另一些東西：在：另一個whhaa

所以我想字符後需要刪除文本每條線，所以我最終：

東西東西

另一些東西

這可能嗎？

Answer 1

這是可能的，但如果我們談論線（而不是段落）不是100％可靠。由於Word總是重新計算頁面流（在行/頁面間突破），Word不會將「行」視爲有形對象。段落是對象，因爲ANSI 13定義了段落的結尾。

下面是一些VBA代碼，演示了您的請求的字面解釋。通過Find.Execute的部分是通過使用Word的查找功能錄製的。最後三行將選擇擴展到當前行的末尾，將其移回一個字符以保持段落的新行/末尾完整。然後刪除選擇。這應該給你一個起點。

Selection.Find.ClearFormatting 
With Selection.Find 
    .Text = ":" 
    .Replacement.Text = "" 
    .Forward = True 
    .wrap = wdFindContinue 
    .Format = False 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchByte = False 
    .CorrectHangulEndings = False 
    .HanjaPhoneticHangul = False 
    .MatchWildcards = False 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
End With 
Selection.Find.Execute 
Selection.MoveEnd wdLine, 1 
Selection.MoveEnd wdCharacter, -1 
Selection.Delete