Toon posts:

[SBS2003] Trage Word

Pagina: 1
Acties:

Verwijderd

Topicstarter
Hallo allemaal,

Ik heb hier al wat zitten zoeken maar ik kon niet het antwoord vinden wat ik zocht.
Het volgende is het geval;
Sinds een week draait er hier een SBS2003.
De werkstations hebben XP en/of 2000 met daarop Office 2000 en Outlook2003.
Hiervoor was er een NT4 netwerk.
Het probleem is dat de oude worddocumenten (die nog zijn aangemaakt toen het NT4 netwerk hier was) heel traag openen.Het duurt zeker wel een paar minuten. Nieuwere Word documenten die ook op de SBS2003 staan hebben dat niet. Dit is op meerdere werkstations het geval.
Dit werkt natuurlijk niet fijn.
Office2000 en Outlook 2003 heb ik al voorzien van alle mogelijke updates maar het probleem blijft.

Hebben jullie misschien nog een idee? :)

  • degroot
  • Registratie: December 2003
  • Niet online
Ik zou het zo niet weten,
Maar ik ga dit topic cker in de gaten houden omdat er bij ons binnenkort ook een nieuwe server word aangeschaft.
Bij ons word namelijk ook van NT4 naar SBS2003 geimplementeerd.

mogelijke maar met een zeer grote omweg is:
oud document--> CTRL+A, CTRL C-->nieuw document-->CTRL+V
hahah beetje omweg maar je netwerk is iig weer snel

www.degroot-it.nl


Verwijderd

Topicstarter
De traagheid van Word komt niet doordat de SBS2003 zwaar belast word.
Er zitten ongeveer 10 werkstations.
Die worden allemaal gebruikt voor e-mail en administratieve werkzaamheden.
Er wordt weinig gebruik gemaakt van het Internet.

Die omweg is wel mogelijk :9 maar dan ben ik 2 weken lang bezig met de Word-bestanden.
Dat zie ik als echt de allerlaatste mogelijkheid. :)

Verwijderd

Topicstarter
*up* :)

  • CAP-Team
  • Registratie: April 2000
  • Laatst online: 17:01

CAP-Team

XBL: CAPTeam

Worden er geen paden in de bestanden opgeslagen, waardoor Word nu op zoek gaat naar de oude lokatie terwijl die niet meer bestaat?

Ik had namelijk een soortgelijk probleem met een database programma, we zijn vorig jaar van Novell Netware 4.11 overgestapt op Win2003 SBS, maar in bijna alle formulieren en rapporten zat een verwijzing naar een sjabloon die niet meer op de oude plaats stond, wat traagheid tot gevolg had.

Microsoft Surface Pro 6 | Samsung Galaxy S21FE | XBOX Series X


  • Kappie
  • Registratie: Oktober 2000
  • Laatst online: 10:30

Kappie

Tell me your secrets...

Waarschijnlijk idd een koppeling naar bestanden (of servers) op het netwerk die niet meer bestaan, dit kan in gelinkte objecten (b.v. afbeeldingen) zijn of in de vba code.

He does fit the profile perfectly. He's intelligent, but an under-achiever; alienated from his parents; has few friends. Classic case for recruitment by the Soviets.


  • maxmaxmax
  • Registratie: Juli 2003
  • Laatst online: 07-12-2025
ok het is een oude topic maar het probleem speelt nog steeds.

Wat nu het probleem is de voorstaande link en optie 4 heb ik uitgevoerd met behulp van het volgende vsb script:
Sub test()
Dim strFilePath As String
Dim strPath As String
Dim intCounter As Integer
Dim strFileName As String
Dim OldServer As String
Dim objDoc As Document
Dim objTemplate As Template
Dim dlgTemplate As Dialog
Dim nServer As Integer

'hardcode the name of the old server.
OldServer = "ntfile31"
nServer = Len(OldServer)
strFilePath = InputBox("What is the folder location that you want to use?")

If Right(strFilePath, 1) <> "\" Then strFilePath = strFilePath & "\"
strFileName = Dir(strFilePath & "*.doc")
Do While strFileName <> ""
Set objDoc = Documents.Open(strFilePath & strFileName)
Set objTemplate = objDoc.AttachedTemplate
Set dlgTemplate = Dialogs(wdDialogToolsTemplates)
strPath = dlgTemplate.Template

If LCase(Left(strPath, nServer)) = LCase(OldServer) Then
objDoc.AttachedTemplate = NormalTemplate
End If

'this is new to check all other .dot files attached to the document
'if it is pointing to the old server we delete it
Dim ai As AddIn
For Each ai In AddIns
If LCase(ai.Path) = LCase(OldServer) Then
ai.Installed = False
ai.Delete
End If
Next ai
AddIns.Add FileName:="C:\Normal.dot", Install:=True

strFileName = Dir()
objDoc.Save
objDoc.Close
Loop
Set objDoc = Nothing
Set objTemplate = Nothing
Set dlgTemplate = Nothing
End Sub

echter het script wordt uitgevoerd maar de lokatie van documenten blijft onder sjablonen en invoegtoepassingen staan op \\NTFILE31\briefpapier 072003.dot
weet iemand hoe ik dit kan veranderen? Misschien dat daar het probleem met het traag openen van de documenten mee verholpen is. :|

Verwijderd

If LCase(Left(strPath, nServer)) = LCase(OldServer). deze vergelijking loopt volgens mij fout. probeer eens door oldserver met de backslashes te definiëren:OldServer = "\\ntfile31"
de manier waarop je het addinprobleem afhandelt kan ook voor problemen zorgen. hebben jullie echt een normal.dot in de root? ik zou de addins.add regel gewoon weglaten.
Pagina: 1