Fejl i skabelon - forskelle på 2000 og 2003

Jeg synes at du skulle vise kode - så er der en større mulighed for evt. at finde problemet..

Hmm... det lyder mærkeligt, at den "kaster op", når du ikke har arbejdet med dokumentet i nogen tid.

Jeg er kommet til at tænke på, om der kan være en sammenhæng med, om man har sat Word til automatisk at gemme hvert X'te minut - Funktioner > Indstillinger > fanebladet gem > Gem oplysninger til automatisk gendannelse hvert x'te minut. Altså kan det være på det tidspunkt, hvor Word starter med at gemme automatisk?

Hvis ja, kan man så tilføje eller ændre et script i VB'et sådan at fejlen ikke opstår, selv om Word går i gang med at gemme?

Billede af vindue med fejlbesked: http://www.elseif.dk/word/word_fejl_01.jpg

VB kode:

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub Rediger()
'  Aktiveres via Alt + R
'
    frmRediger.Show
End Sub

Sub GemVersion()
'  Aktiveres via Alt + G
'
    Dim Uname As String * 255
    Dim Result As Boolean
    Result = GetUserName(Uname, 255)
    If Result Then
        Application.UserName = Uname
    End If
    ActiveDocument.Bookmarks.Item("Dato1").Select
    With Selection
        .MoveRight unit:=wdSentence, Extend:=wdExtend
        If Left(.Text, 4) = "DATO" Then
            ActiveDocument.Bookmarks.Item("Dato1").Select
        Else
            .Delete
        End If
    End With
    Selection.TypeText Text:=Format(Date, "dd.mm.yyyy")
    ActiveDocument.Bookmarks.Item("Dato2").Select
    With Selection
        .MoveRight unit:=wdSentence, Extend:=wdExtend
        If Left(.Text, 4) = "DATO" Then
            ActiveDocument.Bookmarks.Item("Dato2").Select
        Else
            .Delete
        End If
    End With
    Selection.TypeText Text:=Format(Date, "dd.mm.yyyy")
    ActiveWindow.ActivePane.Close
    If Left(Application.Version, 2) = 11 Then
        If ActiveWindow.View.SplitSpecial = wdPaneNone Then
            ActiveWindow.ActivePane.View.Type = wdPrintView
        Else
            ActiveWindow.View.Type = wdPrintView
        End If
    Else
        If ActiveWindow.View.SplitSpecial = wdPaneNone Then
            ActiveWindow.ActivePane.View.Type = wdPageView
        Else
            ActiveWindow.View.Type = wdPageView
        End If
    End If
    Application.Dialogs(wdDialogFileSaveVersion).Show
End Sub

Sub VisVersion()
'  Aktiveres via Alt + V
'
    Application.Dialogs(wdDialogFileVersions).Show
End Sub

Sub Dokumentstyringsblanket()
'
' DokStyrBlanket Makro
' Makro oprettet 29.09.2005 af mimog
'
Application.ScreenUpdating = False

Dim blanket, obsdokument As Document
Dim titel, opbev, obsnr, versi As String

Set obsdokument = Application.ActiveDocument
Set blanket = Documents.Open("I:\MSWord\Skabelon\Arbejdsgruppeskabeloner\Dokumentstyringsblanket.doc")

'Get fieldvalues
obsdokument.Bookmarks("Titel1").Select
With Selection
    .MoveRight unit:=wdSentence, Extend:=wdExtend
    If .Text <> "" Then
    titel = .Text
    End If
End With

obsdokument.Tables(2).Cell(2, 2).Select
opbev = Selection.Text

obsdokument.Bookmarks("Filnavn1").Select
With Selection
    .MoveRight unit:=wdSentence, Extend:=wdExtend
    If .Text <> "" Then
    obsnr = .Text
    End If
End With

obsdokument.Bookmarks("Vers1").Select
With Selection
    .MoveRight unit:=wdSentence, Extend:=wdExtend
    If .Text <> "" Then
    versi = .Text
    End If
End With

obsdokument.Bookmarks("Start").Select
obsdokument.ActiveWindow.View.Type = wdPrintView

'Set in fieldvalues
blanket.Bookmarks("Titel").Select
Selection.TypeText (titel)
blanket.Bookmarks("Opbevaring").Select
Selection.TypeText (opbev)
blanket.Bookmarks("OBSnummer").Select
Selection.TypeText (obsnr)
blanket.Bookmarks("Version").Select
Selection.TypeText (versi)

blanket.Bookmarks("Antalsider").Select
Selection.TypeText (obsdokument.BuiltInDocumentProperties(wdPropertyPages))

blanket.Bookmarks("Dato").Select
Selection.TypeText (Date)
blanket.Bookmarks("Udsendtdato").Select
Selection.TypeText (Date)

Application.ScreenUpdating = True

End Sub

1. Der er ikke noget i koden (eller rettere den del af koden, som du har vist), der står og "kører" af sig selv
2. Word står også hos mig til at gemme automatisk (recovery) hvert 10. minut - der har tidligere været problemer, hvis man satte Word til at lave FastSave, men det er ikke længere slået til som standard

Jeg tror, at du skal kigge efter noget andet. Er det hos alle brugere, at det her sker?

Hvad har du evt. loadet af add-ins?

Jeg vil sige, at det sker hos alle brugere.
Men hvad, hvis brugeren selv har slået FastSave (gemme automatisk?)
til?

Jeg ved ikke, hvad der er loadet af add-ins - hvor ser jheg det?

Hvad er det jeg skal kigge efter?

Gem automatisk og Fast save (gem hurtigt) er ikke det samme. Det er meget få brugere, der kan finde på at slå Fast save til.

Funktioner/Tools - Skabeloner og tilføjelsesprogrammer/Templates and add-ins

Hej

Jeg har lige testet igen sammen med en kollega.
Vi er nået frem til, at det MÅ hænge sammen med
funktionen "Gem oplysninger til automatiskgendannelse
hvert x'te minut" under Funktioner> Indstillinger >
fanebladet Gem.   
Slår man funktionen fra, kommer fejlen ikke.

Den procedure vi har fulgt er:

Har åbnet vores skabelon, der hedder Forskrift.dot, skrevet lidt tekst i den
og gemt. Så har vi valgt Gem version og derefter åbnet versionen, skrevet lidt i den og ellers
ladet den stå åben uden at gemme den.

Efter nogle minutter kommer fejlen -
se billede http://www.elseif.dk/word/word_fejl_01.jpg.

Den nemme, men måske også lidt "farlige" er vel
så bare at deaktivere denne funktion.

Men kan man ikke scripte sig ud af det, sådan at
fejlen ikke opstår, selv om man har funktionen
slået til.
Kan det være et spørgsmål om filplaceringer?

Vi har ingen add-ins bortset fra "normal"
under skabelon.

Vores programmer ligger på Citrix-servere -
herunder også Word. Kan der være problemer
f.eks. i forhold til forbindelsen til serverne?

Mvh. Martin

Det er svært at gætte på, men jeg sætter mine penge på din sidste kommentar omkring Citrix. Har I ikke en pc, der kører uden om Citrix? I så fald er det en test værd, om det også sker herpå.

Hvad mener du med, at I har "normal" under skabelon?

Det er under Funktioner > Skabeloner og tilføjelsesprogrammer > fanen Skabeloner , at der står Normal under Dokumentskabelon.

Måske har vi en bærbar, hvor vi kan prøve. Problemet er at de ikke
er og ikke skal sættes op til netværk. Skabelonen ligger på et fællesdrev,
men man kan måske bare flytte skabelonen til C-drevet.

Dokumentskabelon er den skabelon, som er "hæftet" på dokumentet og har egentlig ikke noget med add-ins/globalt indlæste skabeloner at gøre.

Hvis ikke skabelonen er afhængig af andre filer (f.eks. i kode), er det ikke noget problem at kopiere den til C-drevet på en bærbar og starte skabelonen direkte derfra.

Har du testet på en bærbar, der ikke kører Citrix?

Nej, det har jeg endnu ikke. det kan jeg måske
prøve, når jeg er tilbage fra påskeferien.

Jeg tror dog også, at det mere har med Citrix
end med skabelonen at gøre.

/Martin

word-hajen poster du et svar for points?

Lukker.