Les documents qui ont des modèles attachés prennent beaucoup de temps à ouvrir dans Word 2002 et Word 2003

IMPORTANT : Cet article est issu d'une traduction automatique réalisée par un logiciel Microsoft et non par un traducteur professionnel. Cette traduction automatique a pu aussi être révisée par la communauté Microsoft grâce à la technologie Community Translation Framework (CTF). Pour en savoir plus sur cette technologie, veuillez consulter la page http://support.microsoft.com/gp/machine-translation-corrections/fr. Microsoft vous propose en effet des articles traduits par des professionnels, des articles issus de traductions automatiques et des articles issus de traductions automatiques révisées par la communauté Microsoft, de manière à ce que vous ayez accès à tous les articles de notre Base de connaissances dans votre langue. Il est important de noter que les articles issus de la traduction automatique, y compris ceux révisés par la communauté Microsoft, peuvent contenir des erreurs de vocabulaire, de syntaxe ou de grammaire. Microsoft ne pourra être tenu responsable des imprécisions, erreurs, ainsi que de tout dommage résultant d’une traduction incorrecte du contenu ou de son utilisation par les clients.

La version anglaise de cet article est la suivante: 830561
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Symptômes
Lorsque vous ouvrez un Document Microsoft Word (* .doc) fichier, le document peut prendre plus de temps que prévu à s'ouvrir. Par exemple, le document peut prendre 5 à 10 minutes pour s'ouvrir.
Cause
Ce problème peut se produire si le document comporte un modèle associé ou lié et une des conditions suivantes est vraie :
  • Le modèle attaché, son dossier ou sa part est manquant.
  • Le modèle associé a été déplacé.
  • Le modèle associé a été renommé.
Lorsqu'un modèle Word est manquant, Windows XP essaiera de localiser le modèle manquant plusieurs fois. Le processus de localisation d'un modèle manquant peut provoquer un document Word à durer plus longtemps que prévu à s'ouvrir.

Il prendra plus de temps pour ouvrir le document lorsque vous êtes connecté à un réseau par rapport à lorsque vous êtes déconnecté du réseau.
Résolution
Pour travailler résoudre ce problème sur un ordinateur équipé de Windows XP, utilisez une de la méthodes suivantes selon votre situation :

Méthode 1: Joindre le modèle à partir d'un nouvel emplacement

Ouvrez le document dans Microsoft Word. Attendez que le document est ouvert. Après le document est ouvert, attachez le modèle à partir du nouvel emplacement. Ou bien, changez de modèle pour le modèle global, Normal.dot. Pour joindre le modèle, procédez comme suit :
  1. Sur la Outils menu, cliquez sur Modèles et compléments.
  2. Dans le Modèles et compléments boîte de dialogue, Cliquez sur Joindre.
  3. Dans le Joindre des modèles boîte de dialogue, sélectionnez le modèle de votre choix, puis cliquez sur Ouvrir.
  4. Dans le Modèles et compléments boîte de dialogue, Cliquez sur OK.

vers le haut

Méthode 2: Utiliser un fichier personnalisé Application de Visual Basic pour modifier le modèle attaché au modèle global (Normal.dot) lors de l'ouverture d'un nouveau document

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Cela sous-entend, sans toutefois être exhaustif, un processus opérationnel pour des circonstances d'utilisation particulières. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté ainsi qu'avec les outils utilisés pour créer et déboguer les procédures. Ingénieurs du support technique Microsoft peuvent vous expliquer la fonctionnalité d'une procédure particulière. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.

Utilisez une solution personnalisée pour modifier le texte attaché modèle pour le modèle Global (Normal.dot) lorsqu'un nouveau document est ouvert.

Remarque : Assurez-vous que la sécurité des macros est définie sur moyen ou faible.

Pour créer la solution personnalisée dans Microsoft Visual Basic 6, procédez comme ces étapes :
  1. Ouvrez un nouveau projet Standard.exe.
  2. Sur un formulaire utilisateur, ajoutez les composants suivants :
    • Une zone de liste
    • Deux zones de texte
    • Quatre boutons de commande
    • Deux étiquettes
  3. Définir une référence à Microsoft Scripting Runtime (Scrun.dll).
  4. Copiez et collez le code suivant dans un formulaire utilisateur :
    Option ExplicitPrivate Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Private Const MAX_PATH = 260Private Declare Function SHBrowseForFolder Lib "shell32" _   (lpbi As BrowseInfo) As LongPrivate Declare Function SHGetPathFromIDList Lib "shell32" _   (ByVal pidList As Long, _   ByVal lpBuffer As String) As LongPrivate Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _   (ByVal lpString1 As String, ByVal _   lpString2 As String) As LongPrivate Type BrowseInfo   hWndOwner      As Long   pIDLRoot       As Long   pszDisplayName As Long   lpszTitle      As Long   ulFlags        As Long   lpfnCallback   As Long   lParam         As Long   iImage         As LongEnd TypePublic fso As New FileSystemObjectDim fld As FolderPrivate Sub cmdEnd_Click()   EndEnd SubPrivate Sub cmdSource_Click()   ' Opens a Treeview control that displays the directories in a computer.   Dim lpIDList As Long   Dim sBuffer As String   Dim szTitle As String   Dim tBrowseInfo As BrowseInfo   szTitle = "This is the title"   With tBrowseInfo      .hWndOwner = Me.hWnd      .lpszTitle = lstrcat(szTitle, "")      .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN   End With   lpIDList = SHBrowseForFolder(tBrowseInfo)   If (lpIDList) Then      sBuffer = Space(MAX_PATH)      SHGetPathFromIDList lpIDList, sBuffer      sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)      frmFSO.txtSearch.Text = sBuffer   End IfEnd SubPrivate Sub cmdTarget_Click()   ' Opens a Treeview control that displays the directories in a computer.    Dim lpIDList As Long    Dim sBuffer As String    Dim szTitle As String    Dim tBrowseInfo As BrowseInfo    szTitle = "This is the title"    With tBrowseInfo       .hWndOwner = Me.hWnd       .lpszTitle = lstrcat(szTitle, "")       .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN    End With    lpIDList = SHBrowseForFolder(tBrowseInfo)    If (lpIDList) Then       sBuffer = Space(MAX_PATH)       SHGetPathFromIDList lpIDList, sBuffer       sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)    End IfEnd SubPrivate Sub Command1_Click()   Dim nDirs As Long, nFiles As Long, lSize As Currency   Dim sDir As String, sSrchString As String   Dim nTime   Dim ntime2   Dim nOk As Integer   Dim fileNumber As Integer   Dim oWord As Object   Dim strServer As String   Set oWord = CreateObject("Word.Application")   strServer = txtOldServer.Text   nTime = Time()   fileNumber = FreeFile          List1.Clear          Open "C:\ChangeTemplate.log" For Append As #fileNumber   Write #fileNumber, "Start:" & " " & nTime   Close #fileNumber                    'Enter the top-level directory to start the search.   sDir = txtSearch.Text   'Enter the type of files, such as *.doc for Word documents  sSrchString = "*.doc"     MousePointer = vbHourglass 'The label shows the current subfolder being searched.  Label1.Caption = "Searching Folder: " & vbCrLf & UCase(sDir) & "..."  lSize = FindFile(sDir, sSrchString, nDirs, nFiles, strServer, oWord)  MousePointer = vbDefault  ntime2 = Time()  'Opens text file to show the stop time and the total numbers of  'files that were found.  Open "C:\ChangeTemplate.log" For Append As #fileNumber  Write #fileNumber, "Stop:" & " " & ntime2 & " " & _     "Time to Complete the Changes: " & _     Format(ntime2 - nTime, "nn:ss") & vbCrLf _     & Str(nFiles) & " files found in" & Str(nDirs) & _     " directories"  Close #fileNumber  ' Debug.Print "Stop:" & " " & ntime2  Label1.Caption = "Done"  If Label1.Caption = "Done" Then Command2.Enabled = True     MsgBox "Done"     oWord.Quit     Set oWord = NothingEnd SubPrivate Function FindFile(ByVal sFol As String, sFile As String, _   nDirs As Long, nFiles As Long, strOServer As String, oWrd As Object) _      As Currency   Dim tFld As Folder, tFil As File, FileName As String   Dim strFileName As String   Dim fileNumber As Integer         On Error GoTo Catch        Set fld = fso.GetFolder(sFol)   FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _      vbHidden Or vbSystem Or vbReadOnly)   While Len(FileName) <> 0      FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, FileName))      nFiles = nFiles + 1      List1.AddItem fso.BuildPath(fld.Path, FileName)  ' Load ListBox      strFileName = fld.Path & "\" & FileName      '==              ChangeTemplate strFileName, strOServer, oWrd      FileName = Dir()  ' Get next file      DoEvents   Wend   Label1 = "Searching " & vbCrLf & fld.Path & "..."   nDirs = nDirs + 1   If fld.SubFolders.Count > 0 Then      For Each tFld In fld.SubFolders         DoEvents         FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, nFiles, _            strOServer, oWrd)      Next   End IfExit FunctionCatch:     FileName = ""       If Err.Number = 76 Then      MsgBox "This is not a valid path statement" & vbCrLf & _         "The program will end!"      End   End If   Debug.Print Err.Description   fileNumber = FreeFile   'Writes the error description and number to the log file.   Open "C:\ChangeTemplate.log" For Append As #fileNumber   Write #fileNumber, Err.Description & " " & Err.Number   Close #fileNumber   Resume NextEnd FunctionPrivate Sub Command2_Click()    'Use this to view the log file.    Shell "notepad.exe c:\ChangeTemplate.log", 1End Sub
    Dans un module Standard, ajoutez le code suivant :
    Sub ChangeTemplate(SourceFile As String, strServer As String, objWord As Object)   Dim dlgTemplates As Dialog   Dim strTemp As String   Dim strpath As String   Dim objtemplate As String   Dim dlgTemplate As Object   Dim x As Integer   Dim fNumber As Integer   Dim objDoc As Object      fNumber = FreeFile         objWord.Visible = False   strTemp = SourceFile   'This function determines if the document is password protected or Read Only.   If OpenDocument(objWord, strTemp) = True Then      'This assumes that there is only one document opened. It may have to be adjusted      'to look for additional document being opened.       Set objDoc = objWord.Documents(1)       'Dialogs 87 is the Templates and Addins dialog       Set dlgTemplates = objWord.Dialogs(87)       objtemplate = objWord.Dialogs(87).Template       'parse out the server name from the fullname of the attached template       If Mid(objtemplate, 2, 1) = ":" Or Left(objtemplate, 2) = "\\" Then          x = InStr(3, objtemplate, "\")          strTemp = Mid(objtemplate, 3, x - 3)          'if the parse name is the same as the stated server then          'change the attached template to the Normal          If strTemp = strServer Then             objDoc.AttachedTemplate = "Normal.dot"             'write to a log file the file name and location             Open "C:\ChangeTemplate.log" For Append As #fNumber             Write #fNumber, "Document: " & objDoc.fullName & _             "Attached template changed to Normal.dot"             Close #fNumber          End If       End If                 'After the template  is changed, the document is saved and closed.                  objDoc.Save      objDoc.Close         Else      'Enter into the log file files that are not opened.      Open "C:\ChangeTemplate.log" For Append As #fNumber      Write #fNumber, "Document:  " & SourceFile & "  not opened! it's       Read Only or Password Protected"      Close #fNumber   End IfEnd SubFunction OpenDocument(ByRef objWord As Object, ByVal sDoc As String) As Boolean'Arguments:' objWord - a valid Word Application object.' sDoc    - the complete path and file name of the document to open in Word.''Opens the document specified by the sDoc variable.'This function returns True if the document is opened and is read/write.'Else, this function returns False if the document cannot be opened'or if the document is opened read-only because of the "read-only recommended" setting 'in the document.'Therefore only if this function returns True if you try  to modify the document.'If False is returned, log the sDoc into a text file and alert the user'of the list of file(s) that could not be processed by the batch routine.    On Error GoTo EH    Dim oDoc As Object    Set oDoc = objWord.Documents.Open( _        FileName:=sDoc, _        ReadOnly:=False, _        PasswordDocument:="?#nonsense@$", _        WritePasswordDocument:="?#nonsense@$")    If oDoc.ReadOnly = True Then        OpenDocument = False    Else        OpenDocument = True    End IfCleanUp:    On Error Resume Next    Set oDoc = Nothing    Exit FunctionEH:    'There was an error opening the file. Return False    OpenDocument = False    Resume CleanUpEnd Function

vers le haut

Méthode 3: Créer un Microsoft Visual Basic pour Applications macro (VBA) qui parcourt toutes les des documents dans un dossier et remplace l'ancien nom de serveur avec le nouveau serveur nom

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Cela sous-entend, sans toutefois être exhaustif, un processus opérationnel pour des circonstances d'utilisation particulières. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté ainsi qu'avec les outils utilisés pour créer et déboguer les procédures. Ingénieurs du support technique Microsoft peuvent vous expliquer la fonctionnalité d'une procédure particulière. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.

La macro suivante parcourt en boucle tous les documents dans un dossier et les modifications de nom de l'ancien nom de serveur avec le nouveau serveur pour le emplacement des modèles. Cette macro fonctionne uniquement si le chemin d'accès pour les modèles est le même.
Sub Test()   Dim strFilePath As String    Dim strPath As String   Dim intCounter As Integer   Dim strFileName As String   Dim OldServer As String   Dim NewServer As String   Dim objDoc As Document   Dim objTemplate As Template   Dim dlgTemplate As Dialog     OldServer = "<\\rsnj01\vol1>"    NewServer = "<\\rsnyc1p\vol3>"    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, 13)) = LCase(OldServer) Then                    objDoc.AttachedTemplate = NewServer & Mid(strPath, 14)            End If             strFileName = Dir()             objDoc.Save                           objDoc.Close      Loop     Set objDoc = Nothing   Set objTemplate = Nothing   Set dlgTemplate = Nothing  End Sub

vers le haut

Méthode 4: Créer une macro VBA qui parcourt tous les documents dans un dossier et remplace l'ancien nom de serveur avec le modèle global (Normal.dot)

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Cela sous-entend, sans toutefois être exhaustif, un processus opérationnel pour des circonstances d'utilisation particulières. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté ainsi qu'avec les outils utilisés pour créer et déboguer les procédures. Ingénieurs du support technique Microsoft peuvent vous expliquer la fonctionnalité d'une procédure particulière. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.

La macro suivante parcourt en boucle tous les des documents dans un dossier et remplace l'ancien nom de serveur avec le modèle global (Normal.dot).

Remarque : Si un document est protégé par mot de passe, le modèle sera ne pas être modifié et le code échouera.
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 = "{enter the name of the Old Server}"    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     strFileName = Dir()    objDoc.Save    objDoc.Close    Loop     Set objDoc = Nothing    Set objTemplate = Nothing    Set dlgTemplate = Nothing End Sub


revenir à la haut

Méthode 5: Renommer le serveur, le partage ou le dossier le nom d'origine

Si le serveur, le partage ou le dossier qui contient le modèle a été déplacé ou renommé, renommez le serveur, le partage ou le dossier le nom d'origine.

Si l'ancien serveur n'existe plus, vous pouvez créer entrée DNS avec l'ancien nom du serveur. Une fois l'entrée DNS nom_serveur ancien, vous pouvez créer la même structure de dossier comme indiqué dans le chemin d'accès de modèle et copiez le modèle dans ce dossier.revenir à la haut
Statut
Microsoft a confirmé qu'il s'agit d'un problème pour les produits Microsoft répertoriés dans la section « S'applique à ».
macro ouverture lente modèles joints

Avertissement : Cet article a été traduit automatiquement.

Propriétés

ID d'article : 830561 - Dernière mise à jour : 12/08/2015 05:08:00 - Révision : 1.0

Microsoft Word 2002 Standard Edition

  • kbnosurvey kbarchive kbperformance kbtshoot kbprb kbmt KB830561 KbMtfr
Commentaires