Problemer med programmering med bookmarks i word

Det er godt nok noget gammel kode - fra før Word97 :-)

Jeg ville ændre alle stederne, hvor jeg indsætter i bogmærker til dette:


If ActiveDocument.Bookmarks.Exists("Bogmærkenavn") = True Then
    ActiveDocument.Bookmarks("Bogmærkenavn").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxSign
End If

Som rvm nævner er det "en røst fra fortiden" - men det virker alligevel hvis du sletter det KOLON, som er til slut i linierne ved "boxAdresse1 & 2".
Det er jo netop ikke en ledetekst - men def. af tekstbokse - derfor.

Det kunne gøres noget mere "letbenet" m/anvendelse af en "Userform & VBA fra vor tid".

rvm: jeg har nu ændret den kode som du siger jeg skal ændre, men jeg får kun firma med, som er den første, og resten tager den ikke med. Hvad går galt. Her min nye kode:


Public Sub MAIN()

    WordBasic.BeginDialog 500, 480, "Brevpapir/FEM"
   
    WordBasic.Text 10, 6, 64, 13, "Firma:"
    WordBasic.TextBox 10, 22, 300, 18, "boxFirma"
    WordBasic.Text 10, 46, 64, 13, "Adresse:"
    WordBasic.TextBox 10, 62, 300, 18, "boxAdresse1:"
    WordBasic.TextBox 10, 82, 300, 18, "boxAdresse2:"
    WordBasic.TextBox 10, 102, 300, 18, "boxBY"
    WordBasic.Text 10, 126, 64, 13, "Att:"
    WordBasic.TextBox 10, 142, 300, 18, "boxAtt"
    WordBasic.Text 10, 166, 300, 13, "Afsender:"
    WordBasic.TextBox 10, 181, 300, 18, "boxAfsender"
    WordBasic.Text 10, 206, 300, 13, "Overskrift:"
    WordBasic.TextBox 10, 221, 300, 18, "boxOverskrift"
    WordBasic.Text 10, 245, 300, 13, "Dato:"
    WordBasic.TextBox 10, 260, 300, 18, "boxDato"
    WordBasic.Text 10, 283, 300, 13, "Jobnr:"
    WordBasic.TextBox 10, 298, 300, 18, "boxJobnr"
    WordBasic.Text 10, 322, 300, 13, "Filnavn:"
    WordBasic.TextBox 10, 337, 300, 18, "boxFilnavn"
    WordBasic.Text 10, 362, 300, 13, "Sign:"
    WordBasic.TextBox 10, 377, 300, 18, "boxSign"
   
    WordBasic.OKButton 121, 435, 88, 21
    WordBasic.CancelButton 223, 435, 88, 21
   
    WordBasic.EndDialog

On Error GoTo -1: On Error GoTo slut

Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
WordBasic.Dialog.UserDialog dlg

WordBasic.ViewHeader

If ActiveDocument.Bookmarks.Exists("Firma") = True Then
    MsgBox "Firma findes"
    ActiveDocument.Bookmarks("Firma").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxFirma
End If


If ActiveDocument.Bookmarks.Exists("Adresse1") = True Then
    MsgBox "Adresse1 findes"
    ActiveDocument.Bookmarks("Adresse1").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxAdresse1
End If

If ActiveDocument.Bookmarks.Exists("Adresse2") = True Then
    MsgBox "Adresse2 findes"
    ActiveDocument.Bookmarks("Adresse2").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxAdresse2
End If

If ActiveDocument.Bookmarks.Exists("By") = True Then
    MsgBox "By findes"
    ActiveDocument.Bookmarks("By").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxBY
End If

If ActiveDocument.Bookmarks.Exists("Att") = True Then
    MsgBox "Att findes"
    ActiveDocument.Bookmarks("Att").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxAtt
End If


WordBasic.CloseViewHeaderFooter


If ActiveDocument.Bookmarks.Exists("Afsender") = True Then
    MsgBox "Afsender findes"
    ActiveDocument.Bookmarks("Afsender").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxAfsender
End If

If ActiveDocument.Bookmarks.Exists("Overskrift") = True Then
    MsgBox "Overskrift findes"
    ActiveDocument.Bookmarks("Overskrift").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxOverskrift
End If

If ActiveDocument.Bookmarks.Exists("Dato") = True Then
    MsgBox "Dato findes"
    ActiveDocument.Bookmarks("Dato").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxDato
End If

If ActiveDocument.Bookmarks.Exists("Jobnr") = True Then
    MsgBox "Jobnr findes"
    ActiveDocument.Bookmarks("Jobnr").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxJobnr
End If

If ActiveDocument.Bookmarks.Exists("Filnavn") = True Then
    MsgBox "Filnavn findes"
    ActiveDocument.Bookmarks("Filnavn").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxFilnavn
End If

If ActiveDocument.Bookmarks.Exists("Sign") = True Then
    MsgBox "Sign findes"
    ActiveDocument.Bookmarks("Sign").Select
    'indsæt data fra dialogboksen
    WordBasic.Insert dlg.boxSign
End If


WordBasic.WW6_EditClear

slut:

End Sub

supertekst: Kan du ikke vise mig koden for den "letbenet" måde?

Det skal lige siges at det er en Word skabelon!

dvs. at det er en "dot" fil

okay, det det var som supertekst skrev at det var pga. COLON at det ikke virkede.
Mit problem er bare nu at når jeg åbner dokumentet, så skal makro starte med det samme fordi jeg har navngivet makroen "AutoExec", hvilket også er fint nok, men når jeg indtaster data i formen, så få jeg fejlmeddelelsen "kommandoen er ikke tilgængelig, da der ikke er noget åbent dokument" Hvad går galt?

Så vidt jeg kan se - har du ikke slettet de to :'er, som jeg nævnte i mit indlæg.
WordBasic.TextBox 10, 62, 300, 18, "boxAdresse1:"
WordBasic.TextBox 10, 82, 300, 18, "boxAdresse2:"

Der kommer kun firmanavnet - da koden derefter går i fejlrutinen! :-)

Den "letbenede" skal jeg nok komme med - men send en mail til: pb@supertekst-it.dk, så får du hele filen incl. userform m.v.

Send evt. hele filen til ovennævnte e-mail - så er det noget lettere at se problemerne.

ok, jeg sender den lige

supertekst: okay, det virker. Men hvordan kunne du sende mig skabelonen hvor makroen også vare tilknyttet? når jeg sender skabelonen videre til andre kommer makroen ikke med. Gøre du noget specielt?, skal jeg indstille noget i skabelonen??

Jeg gør ikke noget specielt - skabelonen indeholder koden - og hvis skabelon-filen  VEDHÆFTES -så skulle der ikke være noget problem.

Du får svaret her....

ok. Tak for hjælpen

Selv tak.

supertekst: at jeg ikke kan få makroen med når jeg flytter skabelonen fra en computer til en anden, kan det have noget at gøre med at makroen er programmeret i Visual basic under mappen "Normal" Thisdokument? Fiunktionen AutoNew måske ligge et andet sted?

Koden bør ligge i selve BrevPapirSkabelonen...

Normal.dot er "normal skabelonen" på den pågældende PC

ok, har lagt det i projekt på "thisDocument" og det fungere bare. Tak for hjælpen!

Fint - & selv tak...