Word macro: brisanje od določenega znaka naprej

Koncept vrstice v Wordu ne obstaja, saj se vrstica lahko prelomi glede na širino lista. Obstaja pa koncept odstavkov in sklepam, da imate vi vsako vrstico tako ali tako v svojem odstavku...No v tem primeru vam bo problem rešil spodnji makro:

Option Explicit

Function RInStr(ByVal pStr As String, pItem As String) As Integer
  Dim i As Integer, n As Integer, tLen As Integer

  n = 0
  tLen = Len(pItem)
  For i = Len(RTrim(pStr)) To 1 Step -1
    If Mid(pStr, i, tLen) = pItem Then
      n = i
      Exit For
    End If
  Next i
  
  RInStr = n
End Function

'
' www.matjazev.net
'    maj 2011
'
Sub BrisiVseDesno()
  Dim p As Integer, i As Integer
  Dim s As String
  
  For p = 1 To ActiveDocument.Paragraphs.Count
    s = ActiveDocument.Paragraphs(p).Range.Text
    
    i = RInStr(s, ";")
    If (i < Len(s)) Then s = Left(s, i - 1) + Chr(13)
    ActiveDocument.Paragraphs(p).Range.Text = s
  Next
End Sub

kaj pa če vsebino worda kopiraš v excel in potem v excelu uporabiš funkcijo =LEFT(A1;FIND("*";SUBSTITUTE(A1;":";"**";LEN(A1)-LEN(SUBSTITUTE(A1;":";""))))-1), če je v A1 prva vrstica kjer hočeš vse odrezati? potem pa samo to formulo skopiraš navzdol in po želji besedilo nazaj v word.

p.s.: formula ti odstrani tudi zadnje dvopičje. že tega nočeš, odstrani "-1" na koncu formule.