hulp nodig met vba

[Verwijderd]

Ik ben het volgende aan het maken in vba.
Maar aangezien ik hier een noob in ben kom ik er niet uit.

dit is de bedoeling:

een programma dat de opmaak aanpast van de regel waar de cursor in staat.

- dit zorgt ervoor dat de gebruiker gevraagd wordt om een code in te voeren.
- Aan de hand van de code wordt de opmaak bepaald en toegepast.

Code's:
V= Maak regel vet
I= Maak regel cursief
U= Maak regel onderstreept


Ik ben nu al twee dagen bezig geweest van alles geprobeert ik ben tot nu toe dit voor elkaar gekregen:

Sub Test()

' Test Macro

Code = InputBox("type de code in: ")
If Code <> Empty Then
Code = ""
Selection.WholeStory
If Code = i Then Selection.Font.Italic = wdToggle
If Code = u Then Selection.Font.Underline = wdUnderlineSingle
If Code = v Then Selection.Font.Bold = wdToggle
End If
End Sub

Dit gaf als resultaat als ik V,I of U indruk alles wordt toegepast.
Waar zit de lompe fout?

Even voor de moderators:
Sluit het topic niet meteen, ik vind het al erg zat dat ik het hier moet vragen.
Als het anders kon zou ik het doen!

[Daos]

Code maak je leeg met Code = "". Vervolgens vergelijk je dit met de lege variabelen i, u en v. Dat geeft dus altijd waar.

Waarom je Code leeg maakt zie ik niet. Stringconstanten doe je zo: "i" "u" "v". Misschien is het ook handig om Code eerst om te zetten naar kleine letters met lcase().

[BertS]

Visual Basic:

Sub Test()
  Dim strCode As String

  strCode = LCase$(InputBox("Type de code in: "))

  If Len(strCode)>0 Then
    Selection.WholeStory
    If strCode = "i" Then
      Selection.Font.Italic = wdToggle
    ElseIf strCode = "u" Then
      Selection.Font.Underline = wdUnderlineSingle
    ElseIf strCode = "v" Then
      Selection.Font.Bold = wdToggle
    Else
      MsgBox "Ongeldige code!"
    End If
  End If
End Sub

[Spider.007]

Verwijderd schreef op donderdag 16 maart 2006 @ 18:03:
[...]

Even voor de moderators:
Sluit het topic niet meteen, ik vind het al erg zat dat ik het hier moet vragen.
Als het anders kon zou ik het doen!

Ik geloof er weinig van. De sluitmessage zoals die onder je vorige topic verscheen is ook voor dit topic van toepassing. Ik stel voor dat je je eigen huiswerk maakt; of in ieder geval je best doet daarvoor