Hvordan laver jeg dette VB program?

den kode du ser på den side, er VBA programmering i Word,

Man kan programmere VBA i alle programmer i Office pakken

OK. Så jeg skal skrive kode i Visual Basic Editor. Jeg prøver lige...

Jeg skal bare oprette en UserForm, ikke?

Kan du få det til at køre?

jeg tester ikke, men jeg kikkede lige igen.
Der står:

Oplysningerne i denne artikel gælder:
• Microsoft Office Word 2003
• Microsoft Word 2002 Standard
• Microsoft Word 2000 Standard
• Microsoft Visual Basic 5.0 Professional Edition
• Microsoft Visual Basic 6.0 Professional Edition
• Microsoft Visual Basic 5.0 Enterprise Edition
• Microsoft Visual Basic 6.0 Enterprise Edition

Så du kan ikke lave det i Visual Web Developer 2005 Express Edition
den er vist kun til Web

Men du kan smide koden ind i en Userform i Excel, så starter den Word op der.

Du skal bruge 2 command knapper på formen og husk
at sætte denne:
Referencer i menuen Projekt. Vælg Microsoft Word 9.0 Objektbibliotek i Word 2000 (eller Microsoft Word 10.0 Objektbibliotek i Word 2002 og Microsoft Word 11.0 Objektbibliotek i Word 2003 ), og klik derefter på OK

Det er Microsoft Visual Basic 2005 Express Edition jeg har installet (fik kopieret den forkerte linie).

Jeg har prøvet i VBA (både i Word 2003 og Excel 2003), men det virker ikke. Jeg har sat reference. Jeg har oprettet de to knapper og omdøbt dem.

Der er fejl i denne linie:
Private Sub Command2_Click()
    GetHeadersFooters App.Path & "\mydoc.doc"
End Sub

App bliver mærkeret med gul.

App.path er VB, findes ikke i VBA.
Erstat de steder hvor der står App.Path & "\mydoc.doc" med f.eks. "C:\Temp\MyDoc.doc"

OK. Nu kan jeg få det til at køre under VBA. Jeg burde vel også kunne få det til at køre under Microsoft Visual Basic 2005 Express Edition?

Der var jeg vist for hurtigt. Godt nok lavede programmet et mydoc.doc, men det var uden at jeg trykke på knappen "Opret Dokument".

Hvordan får jeg knapperne til at virke?

I koden hedder knapperne Command1 og Command2

hvis du navngiver dine knappe ligesådan, så virker koden, eller ret navnene i koden til dine knapper.

Private Sub Command1_Click()
    SetHeadersFooters
End Sub

Private Sub Command2_Click()
    GetHeadersFooters App.Path & "\mydoc.doc"
End Sub

OK. Nu har jeg fået det til at køre inde i VBA. Hvordan kalder jeg programmet inde i Word?

(Jeg havde lige glemt at knapperne default hedder noget andet i VBA, beklager.)

Afvikle i Word, du har 2 muligheder
1) skift til VBA (Alt+F11), få vist userformen og tryk på F5
2) skift til VBA, opret/tilføj et modul, i modulet laver du en public sub uden parametre, f.eks.:
Public Sub StartEksempel()
  UserForm1.Show 'Forudsætter at din Userform har default navn.
End Sub
Skift tilbage til Word, tryk Alt-F8, vælg det makronavn der passer med din sub (i eksemplet her, er det StartEksempel)

Håber det hjælper.

Jeg prøver lige at kigge på det.

Det korte og lange var, at jeg kiggede efter en måde, hvorpå man kan indsætte kapitel i sidehoved (og gerne automatisk).

Jeg har oprettet i spørgsmål i forlængelse med dette:
http://www.eksperten.dk/spm/730777

Jeg lukker spørgsmålet, så hvis der er nogen som vil have point, så opret lige et svar!

Lukker