Šio straipsnio versija Microsoft Word 97, ieškokite 253552.

Santrauka

Šiame straipsnyje aprašoma, kaip sukurti ir naudoti UserForm pasirinktinio įvedimo lauką, įrašą makrokomandos teksto formos lauką Rodyti informaciją iš Microsoft Access duomenų bazės. Ši makrokomanda gali būti naudojamas kaip apeiti 25 elemento ribojimo išskleidžiamajame formos laukus.

Jei norite gauti daugiau informacijos apie tai, kaip tai padaryti, kai naudojate Microsoft Access duomenų bazės, spustelėkite šiuos straipsnių numerius ir peržiūrėkite straipsnius Microsoft žinių bazėje:

198561 kaip sukurti pasirinktinio įvedimo lauką, kuriame yra daugiau nei 25 elementai

306258 kaip sukurti pasirinktinio įvedimo laukas, kuriame yra daugiau nei 25 elementus programoje "Word 2002"

Daugiau informacijos

"Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.
Norėdami gauti daugiau informacijos, spustelėkite toliau pateiktą straipsnio numerį ir peržiūrėkite „Microsoft Knowledge Base“ žinių bazės straipsnį:

212536 kaip paleisti kodo pavyzdys iš žinių bazės straipsnių, programoje "Office 2000"

Šablone, atlikite toliau nurodytus veiksmus.

Pastaba: uždaryti langą (pvz., kodų langas arba langą Ypatybės ), spustelėkite X viršutiniame dešiniajame kampe lango.

Sukurti UserForm pasirinktinio įvedimo laukas

  1. "Microsoft Office Word 2003" ir ankstesnėse verions, meniu Įrankiai pasirinkite makrokomanda ir spustelėkite Visual Basic rengyklę.

    Programoje "Word 2007" spustelėkite skirtuką programų kūrėjas ir spustelėkite Visual Basic rengyklė

  2. Projekto lange pasirinkite savo TemplateProject.

    Pastaba: jei projekto langas nepasirodo, spustelėkite Projekto "Internet Explorer" meniu .

  3. Meniu Įterpti spustelėkite UserForm. Naujas UserForm ir Valdikliai įrankių komplektas bus rodomi. Dešiniuoju pelės mygtuku spustelėkite UserFormviduje, ir tada kontekstiniame meniu spustelėkite Rodyti kodą . Pridėti inicijuoti įvykio šį kodą:

    Option Explicit
    'Define Variables

    Private Sub UserForm_Initialize()

    Dim dbDatabase As Database
    Dim rsNorthwind As Recordset
    Dim i As Integer
    Dim aResults()

    ' This code activates the Database connection. Change
    ' the path to reflect your database.
    Set dbDatabase = OpenDatabase("C:\My Documents\NorthWind.mdb")

    ' This code opens the Customers table. Change the Table
    ' to reflect the desired table.
    Set rsNorthwind = dbDatabase.OpenRecordset("Customers", dbOpenSnapshot)

    i = 0

    With rsNorthwind
    ' This code populates the combo box with the values
    ' in the CompanyName field.

    Do Until .EOF
    ComboBox1.AddItem (i)
    ComboBox1.Column(0, i) = .Fields("CompanyName")
    .MoveNext
    i = i + 1
    Loop

    End With
    End Sub
  4. Meniu Įrankiai spustelėkite nuorodos.

  5. Spustelėkite Microsoft DAO 3,6 objektų bibliotekos.

  6. Spustelėkite gerai , kad uždarytumėte dialogo lange .

  7. Uždarykite langą kodas.

  8. Dešiniuoju pelės mygtuku spustelėkite UserForm, ir tada kontekstiniame meniu spustelėkite Ypatybės . Skirtuko abėcėlinis pervardyti (pavadinimas) ir frmcomboir pervardykite į Microsoft Wordantraštės. Uždarykite langą UserForm ypatybės .

  9. Valdikliai skirtuke įrankių juosta, pasirinkite pasirinktinio įvedimo lauko ir padėkite jį ant jūsų UserForm. Dešiniuoju pelės mygtuku spustelėkite pasirinktinio įvedimo lauko valdiklis, ir tada kontekstiniame meniu spustelėkite Rodyti kodą . Pakeisti pasirinktinio įvedimo lauko kodą:

    Private Sub ComboBox1_Change()
    ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
    End Sub

    Pastaba: Tekst1 yra žymelę teksto formos laukus, įterpiate į šabloną "Sukurti the teksto formos lauką" 2 veiksmas procedūros šio straipsnio pavadinimas.

  10. Uždarykite langą kodas.

  11. Valdikliai skirtuke įrankių juosta, pasirinkite CommandButton ir padėkite jį ant jūsų vartotojo formoje, kaip uždaryti mygtuką. Dešiniuoju pelės mygtuku spustelėkite CommandButton, ir tada kontekstiniame meniu spustelėkite Rodyti kodą . Pakeisti CommandButton į:

    Private Sub Cmdclose_Click()
    End
    End Sub
  12. Uždarykite langą kodas.

  13. Dešiniuoju pelės mygtuku spustelėkite CommandButton, ir tada kontekstiniame meniu spustelėkite Ypatybės . Skirtuko abėcėlinis pervardykite į kmdUzdaryti(pavadinimas) ir pervardykite antraštės ir uždaryti. Uždarykite langą CommandButton ypatybės .

Dabar yra UserForm pasirinktinio įvedimo laukas. Pereikite prie "Sukurti įrašą makro" procedūrą.

Sukurti įrašą makrokomandos

  1. Projekto lange pasirinkite savo TemplateProject.

  2. Meniu Įterpti spustelėkite modulis. Rodomas tuščias modulio kodas lape.

  3. Įveskite šį kodą:

    Sub gocombobox()
    frmcombo.Show
    End Sub

Dabar yra įrašo makrokomandą. Meniu failas spustelėkite uždaryti ir grįžti į Microsoft Word.

Sukurkite teksto formos lauką

  1. Šablone, meniu, perkelkite pelės žymiklį ant įrankių juostosir spustelėkite formos.

  2. Nustatykite savo įterpimo vietą, kurioje norite įtraukti išplečiamojo sąrašo dėl. Formos įrankių juostoje spustelėkite Teksto formos lauką (mygtuką kairėje). Teksto formos lauko įterpiamas į šabloną kaip pilka spalvinimas.

    Pastaba: jei {} FORMTEXT laukas, paspauskite ALT + F9 išjungti lauko kodai.

  3. Dešiniuoju pelės mygtuku spustelėkite Teksto formos lauką, ir tada kontekstiniame meniu spustelėkite Ypatybės .

  4. Dialogo lange Teksto formos lauko parinktys sekcijoje paleisti makrokomandą pažymėkite gocombobox makrokomandą iš toliau įrašas: pavadintas pasirinktinio įvedimo laukas.


    Pastaba: įsitikinkite, kad jūsų teksto formos lauko Žymelės pavadinimas yra tas pats kaip ir jūsų "Sukurti UserForm pasirinktinio įvedimo lauką" procedūros šio straipsnio 9 veiksme nurodytą.

  5. Formos įrankių juostoje spustelėkite Apsaugoti formą.

  6. Įrašykite ir uždarykite šablone.

Norėdami naudoti šabloną Word 2003 ir ankstesnėse verions, spustelėkite naujas meniu failas . Pasirinkite savo šabloną, ir spustelėkite gerai.

Norėdami naudoti šabloną programoje Word 2007, spustelėkite "Microsoft Office" mygtuką, spustelėkite naujas, pasirinkite savo šabloną, ir spustelėkite sukurti.

Naują dokumentą pagal jūsų šabloną langas. Kuriame yra pasirinktinio įvedimo lauko, su jūsų elementų parodoma UserForm naudodami klavišą TAB pereiti į teksto formos lauką.

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijungti prie "Microsoft Insider"

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?

Dėkojame už jūsų atsiliepimus!

×