Importere fra word og sætte ind i kollonner i excel.

Her er epar funktioner til henholdsvis at finde taldelen eller tekstdelen i en celle:

Function FindTal(Teksten As Range)
Dim Tael As Integer, i As Integer
Dim Tekst As String
Dim Tal As String
Tekst = Teksten
    For Tael = Len(Tekst) To 1 Step -1
        If IsNumeric(Mid(Tekst, Tael, 1)) Then
            i = i + 1
            Tal = Mid(Tekst, Tael, 1) & Tal
        End If

        If i = 1 Then Tal = CInt(Mid(Tal, 1, 1))
    Next Tael
If Tal = "" Then Tal = -1
FindTal = CLng(Tal)
End Function

Function FindTekst(Teksten As String)
  Dim Teller As Integer
  Dim strTmp As String
  For Teller = 1 To Len(Teksten)
      If Not IsNumeric(Mid(Teksten, Teller, 1)) Then
        strTmp = strTmp & Mid(Teksten, Teller, 1)
      End If
  Next Teller
  FindTekst = strTmp
End Function

"Her er et par funktioner..." skulle det være.