"Rosco40" skrev d. 02-10-05 10:35 dette indlæg :
> "Jacob Mygind" skrev d. 29-09-05 10:23 dette indlæg :
> > Men nedenstående kode skal gemmes i et modul i skabelonen - så kan
du
> altid refererer til den fra ThisDocument i f.eks. Document_Close
> >[Code]
> >Sub OpdaterRefFelter()
> 'Denne funktion opdater alle referancefelter i dokumentet
> Dim n As Integer
> Dim TypeFelt As Variant
>
> Application.ScreenUpdating = False
>
> On Error Resume Next
> For n = 1 To ActiveDocument.Fields.Count
> TypeFelt = ActiveDocument.Fields.Item(n).Type
>
> 'Kun referancefelter
> If TypeFelt = "3" Then
> ActiveDocument.Fields.Item(n).Update
> End If
> Next
>
> For Each rngStory In ActiveDocument.StoryRanges
> rngStory.Fields.Update
> Next
>
> Application.ScreenUpdating = True
>
> End Sub
> >Klip
> >
> > "Mads" <mads.knudsen@FjerndettEprivate.dk> skrev i en meddelelse
> > news:433aa1e5$0$1750$edfadb0f@dread11.news.tele.dk...
> >
> > KLIP
> >
> > > Makroer kan sættes til at afvikles ved åbning og lukning af
> dokumenter
> > og
> > > Word, ved et hav af andre spændende events, makroer kan laves til
at
> > køre
> > > istedet for Word's normale funktionalitet.
> > >
> > > Mulighederne er stort set ubegrænset. Det umulige tager en dag
mere
> at
> > > udvikle ;)
> >
> > Jamen det må jeg lære en dag, hvor jeg får god tid.
> >
> > KLIP
> >
> > > Så den løsning der passer dig/Jer afhænger af nødvendigheden af at
> > ting sker
> > > på en bestemt måde. Jo mere mere nødvendigt jo flere resourcer kan
> der
> > > bruges (betalte kurser mm)
> >
> > Betalte kurser, det kender min chef ikke noget til, så jeg går i
gang
> > med en oplysningskampagne.
> >
> > Mvh
> > Mygind
> >
> >
>
> --
> Leveret af:
>
http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>
>Jeg fik vidst placeret svaret på den forkerte linie.
>Her følger koden fundet her.
http://www.eksperten.dk/spm/564619
[Code]
Sub OpdaterRefFelter()
'Denne funktion opdater alle referancefelter i dokumentet
Dim n As Integer
Dim TypeFelt As Variant
Application.ScreenUpdating = False
On Error Resume Next
For n = 1 To ActiveDocument.Fields.Count
TypeFelt = ActiveDocument.Fields.Item(n).Type
'Kun referancefelter
If TypeFelt = "3" Then
ActiveDocument.Fields.Item(n).Update
End If
Next
For Each rngStory In ActiveDocument.StoryRanges
rngStory.Fields.Update
Next
Application.ScreenUpdating = True
End Sub
--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"