Skabelon til gavekort i Word

...øhh kan du ikke lige uddybe lidt - skal det være en skabelon hvor du kan indtaste navn og adresse hvor overskriften er "Gaven er desværre udsolgt" samt et pic med en gave eller ?????

JEP, der er lige præcis hvad jeg mangler. Kære A&M Dette træder istedet for en rigtig gave, da den er udsolgt bl.a bl.a og kommer i butikken igen d. 6/8.

kh

Og så et lille billede som jeg indsætter fra en fil.

oki - tja en sådan skabelon kan jeg da godt lave til dig.....

ser lige om jeg har et billede af en gave :)

Skal køre til festen kl. 13.30. Kan godt selv lave et eller andet bikset sammen i Word, jeg synes bare at det kunne være lidt coolt, ligesom de templates der er i Publisher - har bare ikke Publisher. Kan du sende en sådan lidt hurtigt på hatck_back@hotmail.dk ?

Tusind tak - og du får selvfølgelig point.

//Laje

....jeps er gået i gang

G*** du skal ikke give mig point før du har set hvad jeg har lavet, er jo ikke sikkert du syntes det er pænt ;))

Perfekt! Ups forkert mail adresse .com selvfølgelig!

har lige sendt den til dig men ved nu ikke om det lige var det du havde i tankerne :)

lavet i vba - kopier skabelonen ind i dit skabelonbibliotek og ændr følgende indstillinger

Funktioner/makro/sikkerhed og på fanen sikkerhedsniveau sætter du X i mellemste niveau

jeg har snydt en del og oprettet dit dokument udelukkende på bogmærker

har oprettet bogmærker med flg navne
txtNavn, txtAdresse, txtPostBy, txtKære, txtDato og txtAfsender

disse bogmærker bruger jeg så i vba delen, idet jeg genbruger ovenstående navne

har oprettet et modul kaldet myForm og indsat flg kode

Public Sub Udfør(myForm As UserForm)
' denne kode gør det muligt at hoppe over hvor gæret er lavest og kun kalde
' modulet UDFØR ved klik på OK - sparer en masse kode :)

    Dim myControl As Control
    Dim myName As String
   
    For Each myControl In myForm.Controls
    myName = myControl.Name
   
        If ActiveDocument.Bookmarks.Exists(myName) Then
   
        ActiveDocument.Bookmarks(myName).Range.Text = myControl.Text
     
        End If
   
    Next myControl
   
End Sub

Når du klikker på OK kaldes modulet - og jeg har her indsat flg kode

Private Sub cmdOK_Click()

Udfør Me
Unload Me

' gå til bogmærke og sæt cursor der

    Selection.GoTo What:=wdGoToBookmark, Name:="TxtHer"
   
End Sub


På annuller knappen har jeg sat flg kode

Private Sub cmdAnnuller_Click()
' slet det indtastede og vis skabelonen

    Unload Me
   
End Sub


....og endelig kaldes userformen med flg kode
Private Sub Document_New()
'hent userform når skabelon åbnes

    frmGave.Show
   
End Sub

mhh jeg nåede vist at sende den alt for sent til dig. Var det overhovedet sådan noget du havde i tankerne, eller var det en mere Publisher-poppet stil :)

....luk du bare sp og accepter selv, hvis det ikke var ok :o)

Nej, nej - gider du ikke poste som svar, så får du point. Problemet var, at jeg jeg ikke nåede det før bryllupet og efterfølgende har været på ferie, men send det som svar, så får du selvfølgelig point. Tak for indsatsen anyway!

/Laje

Svar :)

og selv tak da...