---

Hej nyhedsgruppe

Jeg har et problem som jeg håber at nogen kan hjælpe mig med.

For nogle år siden lavede jeg en makro i Word til Windows 95, ver. 7.0.

Jeg har nu fået installeret Microsoft Office XP, og når jeg skal køre
makroen fremkommer en fejl i f.m. kompileringen.

Det viser sig at proceduren jeg har lavet i makroen er for stor da en
procedure ikke må være større end 64 K.

Jeg har kun lavet en stor procedure i makroen og den skal altså deles op i
flere mindre procedurer.

Hvordan gør jeg det ?


Med venlig hilsen
Jesper Olsen

---

Hei Jesper

Sub Gammelmakro()
Dim i As Integer
Dim j As Integer
For i = 1 To 3
MsgBox "Davs " & i
Next
For j = 1 To 3
MsgBox "Farvel " & j
Next
End Sub

Sub NyMakro()
Call Del1
Call Del2
End Sub

Private Sub Del1()
Dim i As Integer
For i = 1 To 3
MsgBox "Davs " & i
Next
End Sub

Private Sub Del2()
Dim j As Integer
For j = 1 To 3
MsgBox "Farvel " & j
Next
End Sub

HTH. Beste hilsen Harald
"Jesper Olsen" <jo@plentreprise.dk> skrev i melding
news:3c591103$0$99649$edfadb0f@dspool01.news.tele.dk...
> Hej nyhedsgruppe
>
> Jeg har et problem som jeg håber at nogen kan hjælpe mig med.
>
> For nogle år siden lavede jeg en makro i Word til Windows 95, ver. 7.0.
>
> Jeg har nu fået installeret Microsoft Office XP, og når jeg skal køre
> makroen fremkommer en fejl i f.m. kompileringen.
>
> Det viser sig at proceduren jeg har lavet i makroen er for stor da en
> procedure ikke må være større end 64 K.
>
> Jeg har kun lavet en stor procedure i makroen og den skal altså deles op i
> flere mindre procedurer.
>
> Hvordan gør jeg det ?
>
>
> Med venlig hilsen
> Jesper Olsen
>
>

---

Tak for løsningen med at dele en procedure op i flere procedurer.

Nu er mit næste problem bare at variablerne i den ene procedure gerne skulle
kunne bruges i den anden procedure.

Man skulle også gerne kunne kalde et mærke i den ene procedure som findes i
en anden procedure.


feks.

Procedure 1
goto mærke

Procedure2
:mærke

Findes der en løsning på ovenstående 2 problemer ?



"Harald Staff" <harald.staff@nrk.no> skrev i en meddelelse
news:a3b6j1$mpn$1@oslo-nntp.eunet.no...
> Hei Jesper
>
> Sub Gammelmakro()
> Dim i As Integer
> Dim j As Integer
> For i = 1 To 3
> MsgBox "Davs " & i
> Next
> For j = 1 To 3
> MsgBox "Farvel " & j
> Next
> End Sub
>
> Sub NyMakro()
> Call Del1
> Call Del2
> End Sub
>
> Private Sub Del1()
> Dim i As Integer
> For i = 1 To 3
> MsgBox "Davs " & i
> Next
> End Sub
>
> Private Sub Del2()
> Dim j As Integer
> For j = 1 To 3
> MsgBox "Farvel " & j
> Next
> End Sub
>
> HTH. Beste hilsen Harald
> "Jesper Olsen" <jo@plentreprise.dk> skrev i melding
> news:3c591103$0$99649$edfadb0f@dspool01.news.tele.dk...
> > Hej nyhedsgruppe
> >
> > Jeg har et problem som jeg håber at nogen kan hjælpe mig med.
> >
> > For nogle år siden lavede jeg en makro i Word til Windows 95, ver. 7.0.
> >
> > Jeg har nu fået installeret Microsoft Office XP, og når jeg skal køre
> > makroen fremkommer en fejl i f.m. kompileringen.
> >
> > Det viser sig at proceduren jeg har lavet i makroen er for stor da en
> > procedure ikke må være større end 64 K.
> >
> > Jeg har kun lavet en stor procedure i makroen og den skal altså deles op
i
> > flere mindre procedurer.
> >
> > Hvordan gør jeg det ?
> >
> >
> > Med venlig hilsen
> > Jesper Olsen
> >
> >
>
>