Vba i word?

Hvad siger du til denne:

Sub findOrd()
Set tblActieveTabel = ActiveDocument.Tables(1)

intAntalRækker = tblActieveTabel.Rows.Count
For intTeller = 1 To intAntalRækker
    If UCase(Mid(tblActieveTabel.Cell(intTeller, 1).Range.Text, 1, 3)) = "SOJ" Then
        MsgBox "Det er soja"
    End If
Next intTeller
End Sub

Det virker men jeg vil have textbox og ikke messagebox. Kan det laves?

Det kan det godt, men hvad skal du bruge tekstboksen til og hvor skal den  placeres?

Tekstboksen skal står nederst i venstre hjørne. Jeg lave en indeksseddel som klistres på nogle sække. I højre hjørne har jeg en tabel hvor der indsættes via en makro råvarenavne. og jeg har brug for en tekstboks hvor der skal står lidt forklaring om nogle enkelte råvarer, som optræder i tabellen.
Jeg brug hver gang den samme fil, det er en skabelon.

Skal teksboksen indsættes eller er der allerede en tekstboks?

Hvis der allerede er en tekstboks, så skal den navngives for at "åbne" den eller også skal den være den eneste tekstboks i dokumentet.

Hvis der ikke allerede er en tekstboks, så skal den bare indsættes.
Prøv at optage at du indsætter en teksboks med den tekst og på den placering du ønsker og indsæt så koden i stedet for linine med msgbox'en.

der er allerede en tekstboks (men der er flere på siden). hvordan navngiver jeg den?

Det letteste er at oprette et bogmærke i tekstboksen og så få koden til at gå til bogmærket, hvorefter teksten skrives:

ActiveDocument.Bookmarks("BogmærkeNavn").Select
Selection.TypeText Text:="Soja"

Ovenstående kodelinier skal erstatte linien:
MsgBox "Det er soja"

TAK!