[vba] Hoofdletters in formuliervelden

[rutgervf]

Ik ben sjablonen aan het maken voor mijn stage bedrijf. dit wil aardig lukken maar ik heb een probleem.
Aangezien de mensen die het moeten gebruiken te lui zijn om hoofdletters zelf in te vullen wil ik graag dat als ze wat in vullen in de marcro op het formulier de tekst met hoofdletters word geplaatst.

Ik heb al op google en hier op tweakers gezocht maar kan er weinig uithalen waar ik wat aan heb.
Heeft iemand een idee hoe ik dat gemakkelijk in mijn vba code kan plaatsen.
De code kan eventueel ook hier geplaats worden. voor meer duidelijkheid.

[ Voor 3% gewijzigd door rutgervf op 11-11-2005 10:18 ]

[Archie_T]

Ik weet niet wat voor sjablonen jij gebruikt maar ik kan gewoon in de opties van een text field kiezen voor first capital of uppercase.... Of bedoel je dat niet?

[ Voor 6% gewijzigd door Archie_T op 11-11-2005 10:33 . Reden: Uppercase toegevoegd ]

[Daos]

Met de functie UCase(..) kan je er hoofdletters van maken. Dit staat gewoon in de help

[rutgervf]

het is zo van. Als ik het sjabloon opstart krijg ik een formulier. Als ik in de formulier dus bij NAW intyp met kleine letters wil ik graag dat er op het normale formulier de tekst met een hoofdletter begint.

dir is een deel van de macro

Visual Basic:

Private Sub cmdStandaardOK_Click()
    '  [knip]  
    ActiveDocument.Bookmarks("bmstandaardnaam").Select
    Selection.TypeText Me.txtstandaardnaam
    'etc voor andere bookmarks.
    ' [knip]
End Sub

zo kan het dus ook post alleen relevante code en gebruik de editknop.

[ Voor 48% gewijzigd door Lustucru op 11-11-2005 12:08 ]

[Archie_T]

rutgervf schreef op vrijdag 11 november 2005 @ 10:48:
het is zo van. Als ik het sjabloon opstart krijg ik een formulier. Als ik in de formulier dus bij NAW intyp met kleine letters wil ik graag dat er op het normale formulier de tekst met een hoofdletter begint.

Dat zeg ik net, kan met de properties van het textveld, daarna kan je macro gewoon de text van het field overnemen.

[Lustucru]

rutgervf schreef op vrijdag 11 november 2005 @ 10:49:
dir is een deel van de macro
[...]

Ja?
Daarboven zie ik twee oplossingen voor je probleem. Waarom post je die lap code? Het is wel zo aardig als mensen je een tip geven daar ook op in te gaan.

offtopic:
[tags] sluit je af met [/tag]; Als je als laatste gepost hebt, en je wilt nog iets toevoegen gebruik dan de edit-knop. Die is daarvoor

[ Voor 9% gewijzigd door Lustucru op 11-11-2005 11:13 ]

[rutgervf]

thnx. ja ik was de tekst aan het typen en zag daarna pas dat er nog meer hadden gereageerd.

[tag] ik zal de oplossingen proberen[/tag]

[ Voor 24% gewijzigd door rutgervf op 11-11-2005 11:57 ]

[Daos]

Moet je tekst in hoofdletters komen of wil je alleen de eerste letter een hoofdletter maken? Het is na al jouw antwoorden nog steeds niet duidelijk wat je precies zoekt. Geef anders een klein voorbeeldje.


Met "[tags] sluit je af met [/tag]" wordt dit bedoeld:

Visual Basic:

Sub test()
    laag = "wat tekst"
    
    hoog = UCase(laag)
    'of: hoog = StrConv(laag, vbUpperCase)
    
    eersteHoog = laag
    Mid(eersteHoog, 1, 1) = UCase(eersteHoog)
    
    elkeEersteHoog = StrConv(laag, vbProperCase)
    
    
    MsgBox laag & vbNewLine & hoog & vbNewLine & _
            eersteHoog & vbNewLine & elkeEersteHoog
End Sub

Gebruik dus de edit knop bij die lap code en zet de tags goed. Als je daar dan toch bezig bent kan je ook gelijk alle niet relevante code weghalen. Ik krijg een lamme vinger van het gescroll.

[ Voor 13% gewijzigd door Daos op 11-11-2005 12:04 ]

[rutgervf]

Alleen de eerste letter moet een hoofdletter worden, Ik heb gebruik gemaakt van macro's en heb een kleine cursus vba gehad.

[DyStiC]

De eerste reply van Archie_T is toch al voldoende? je geeft het tekstvak in de eigenschappen bij opmaak: Beginhoofdletter. Dan heb je toch al wat je wil, hiervoor een macro is een beetje onzinnig.
Als je dan toch graag moeilijk wil doen gebruik je deze code:

Visual Basic:

Selection.GoTo What:=wdGoToBookmark, Name:="bmkBlaat"
Selection.Range.Case = wdTitleWord