oprettelse af en skabelon med formular felter

Jep *S*

Her er koden til at hoppe til bogmærker

Sub GåTil()
Application.FormFields("Navnet på bogmærket").select
End sub

Her er koden til at låse et formularfelt, så brugerne hopper over det

Sub Lås()
Selection.FormFields("Bogmærkenavn").Enabled = False
End sub

Og her er så den avancerede *S*

Hvis der skal ske noget på bagrund af at der er valget noget bestemt på rullelisten:

If ActiveDocument.FormFields("Rulleliste1").Result = "valgt" Then
    MsgBox ActiveDocument.FormFields("Rulleliste1").Result
End If

Jeg har massere af kodestumper - håber disse kan være til hjælp *S*

P.s. Husk at når du arbejder med formularfelter skal nu nogle gange låse dokumentet op, før du får adgang til den fulde funktionalitet. Når du så låser det igen skal du bruge denne kode, for ikke at nulstille formularfelterne:

If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If

Tak for dine koder, når jeg kører
"Sub GaaTil()
Application.FormFields("tekst19").Select
End Sub"
Så kommer følgende fejl: Der opstod en kompileringsfejl: Metoden eller datamedlemmet blev ikke fundet.
Hvad er der gal?

Jeg undskylder mange gang - der skulle have stået

ActiveDocument.FormFields("tekst19").Select

Tak RVM, koderne virker nu. men jeg har et andet problem:
når jeg vælger f.eks. "Flytning af person til eksist stilling"  i rullelisten, så skal cursoren hoppe til næste felt,("txtStillingNr1"),- ellers springer "tekst13","tekst14" og "txtStillingNr1" over. Men lige meget hvad jeg valgte så sprang cursoren de 3 felter over, mangler der en "clear"?

If ActiveDocument.FormFields("Rulleliste1").Result = "Flytning af person til eksist stilling" Then
      ActiveDocument.FormFields("txtStillingNr1").Select
      Else
          ActiveDocument.FormFields("tekst13").Enabled = False            ActiveDocument.FormFields("tekst14").Enabled = False
        ActiveDocument.FormFields("txtStillingNr1").Enabled = False

Ja - du må nok starte din kode med at sætte dem true - altså

ActiveDocument.FormFields("tekst13").Enabled = True
ActiveDocument.FormFields("tekst14").Enabled = True
ActiveDocument.FormFields("txtStillingNr1").Enabled = True

før linien

If ActiveDocument.FormFields("Rulleliste1").Result = "Flytning af person til eksist stilling" Then

da du så er sikker på, hvilken tilstand de er i før du måske vil ændre dem.

Tak, virker!!!

Hej rvm
Hvis jeg tester disse koder med f8, så fungerer det fint, men når jeg går tilbage til skabelonen og vælger "Flytning af person til ny stilling" så springer cursoren ikke  "tekst13", "tekst14" og "txtStillingNr1" over. Mangler der noget kode?

Med venlig hilsen



Dim strRulleListe As String
 
    strRulleListe = ActiveDocument.FormFields("strRulleListe1").Result
   
    ActiveDocument.FormFields("tekst13").Enabled = True
    ActiveDocument.FormFields("tekst14").Enabled = True
    ActiveDocument.FormFields("txtStillingNr1").Enabled = True
   
    Select Case strRulleListe
   
        Case "Flytning af person til eksist. stilling"
            Selection.GoTo what:=wdGoToBookmark, Name:="txtStillingNr1"
                       
        Case "Person flyttes med stilling **"
            ActiveDocument.FormFields("txtStillingNr1").Select
           
        Case "Flytning af person til ny stilling"
            ActiveDocument.FormFields("tekst13").Enabled = False 
            ActiveDocument.FormFields("tekst14").Enabled = False
            ActiveDocument.FormFields("txtStillingNr1").Enabled = False

Koden ser rigtig nok ud, men du er sikket røget ind i en af formularfelternes barrierer, hvor det kører fint med F8, men ikke i realtime.

Prøv følgende:

Sæt denne makro på dit formularfelt:

Sub Formularfelt()
  en masse kode ...
  Case "Flytning af person til ny stilling"
  Application.OnTime When:=Now + TimeValue("00:00:00"), Name:="Kør"
  mere kode ...
End sub

Sub Kør()
  ActiveDocument.FormFields("tekst13").Enabled = False 
  ActiveDocument.FormFields("tekst14").Enabled = False
  ActiveDocument.FormFields("txtStillingNr1").Enabled = False

+ vælg det formularfelt som du gerne vil have curseren skal stå i nu

End sub

OnTime bruger jeg til at stoppe koden et øjeblik for at fjerne alle referancer til objekter, der stadig ligger i hukommelsen - men husk - det er bare et forslag *S*

Ok,Tak for hjælpen

Med venlig hilsen
naviairsuperbruger

Hej rvm
Jeg har en case med en rulleliste som hedder ”strStillRulleliste3” som består af følgende valg:

Vælg af stilling
Oprettelse af ny stilling
Afgrænsning af stilling
Flytning af stilling (uden person)

Jeg vil aktivere ”strStillRulleListe3" og skal pege på  ”Oprettelse af ny stilling” uden lave om på rækkefølgen har du en god ide?


Eks. Case "Flytning af person til ny stilling"
            Selection.GoTo what:=wdGoToBookmark, Name:="strStillRulleListe3"
    ………………………………ny.kode   

Med venlig hilsen
Naviairsuperbruger