VBA word - tjek tekst i formular felt

Hej.

Hvilken event skal udløse farveskriftet, 'Click' ?

text1.backcolor = rgb(255,255,0)  'gul

text1.backcolor = rgb(255,0,0)  'rød

text1.backcolor = rgb(255,255,255)  'hvid 

Dette fungerer i Visual Basic - aldrig arbejdet med VBA.

Mon ikke du kan bruge .LostFocus

Jeg ved ikke hvad du mener med "et formularfelt" - er det en textbox i en form, eller? Hvis det er, kan du jo bruge

Sub Text1_Lostfocus()
  if val(text1.text) = 1 then
    'bla bla se joerns svar
  end if
  if val(text1.text) = 2 then
    'bla bla se joerns svar
  end if
End sub

joern: det vil ikke virke, da jeg ikke adresserer rullelisten.

martin_moth: Det er ikke en form. Det er en rulleliste (dropdown) indsat fra værktøjslinien "Formularer", defineret med 2 dropdown felter.

Her http://knowhow.frac.dk/VBA.html er et billede af den.

Sorry.  Kender stort set intet til VBA.  Denne kategori er jo også VB.  Prøv evt. kategorien Excel.
I VB kan man ikke få forskellig farve på linierne i en liste, kun i en grid.

/jørn

Det hjælper ikke noget at poste i Excel. Der er relativt stor forskel på VBA i de to programmer, selvom der dog er en del fællesnævnere.

Der er en stor samling af spørgsmål til VBA i VB. Undre mig at der ikke er blevet oprettet en sektion til netop VBA i sin tid.

Mon ikke det er en combobox.

Uanset hvad, så har den nogle events du kan bruge. F.eks. _Lostfocus, eller endnu bedre, _Change. Brug den

Du må kunne aflæse hvad der står i dit "formularfelt" (sig mig, har det ikke et rigtigt navn - et engelsk?) ved at bruge aflæse dets index

martin: Det hedder en dropdown, men det er rigtigt, at det i VB/VBA sprog kaldes en Combobox :-)

Det engelske ord er: formfield(s).

Min største udfordring er, at jeg ikke kan hitte en måde at adressere den på. Med mange andre elementer kunne jeg skrive

msgbox selection.text
msgbox active...text/name/index

Det eneste jeg lige nu kan se, at jeg kan adressere den med, er egenskaben "Name". Men den fortæller mig blot hvilket navn jeg har givet feltet, ikke teksten i den.

Fik hjælp i et amerikansk forum. Løsning:

With ActiveDocument.FormFields("Text1")
    If .result = 1 Then
        ActiveDocument.Unprotect
        .Range.Font.Color = wdColorBlue
    Else
        ActiveDocument.Unprotect
        .Range.Font.Color = wdColorPlum
    End If
    ActiveDocument.Protect wdAllowOnlyFormFields, noreset
End With

Tak for hjælpen, begge. Jeg syntes i skal smide svar for jeres indsats. Så deler vi.

Og så - god weekend.

det var nu ikke meget jeg kunne bidrage med...

Hej.

Fint at du fik løst problemet, og angiver svaret.  Jeg fortjener ikke point, behold dem.

Tak, i lige måde.

martin: Nej, men du lagde en indsats og det er jeg glad for.
joern: Så takker jeg blot for din indsats :-)