Momentan sunteți offline, așteptați să vă reconectați la internet

Documentele care au ataşat template-uri să ia o lungă perioadă de marcă de timp pentru a deschide în Word 2002 şi în Word 2003

IMPORTANT: Acest articol a fost tradus de software-ul de traducere automată Microsoft, si nu de un traducător. Microsoft vă oferă atât articole traduse de persoane, cât şi articole traduse automat, astfel incat aveti access la toate articolele din Baza noastră de informatii în limba dvs. materna. Totuşi, un articol tradus automat nu este întotdeauna perfect. Acesta poate conţine greşeli de vocabular, sintaxă sau gramatică, la fel cum un vorbitor străin poate face greşeli vorbind limba dvs. materna. Compania Microsoft nu este responsabilă pentru nici o inexactitate, eroare sau daună cauzată de traducerea necorespunzătoare a conţinutului sau de utilizarea traducerii necorespunzătoare de către clienţii nostri. De asemenea, Microsoft actualizează frecvent software-ul de traducere automată.

Faceți clic aici pentru a vizualiza versiunea în limba engleză a acestui articol: 830561
Acest articol a fost arhivat. Articolul este oferit „ca atare” şi nu va mai fi actualizat.
Simptome
Când deschideţi un Document Microsoft Word (* .doc) dosar, document poate dura mai mult, apoi de aşteptat pentru a deschide. De exemplu, documentul poate dura 5-10 minute pentru a deschide.
Cauză
Acest simptom se poate produce dacă documentul are un şablon ataşat sau legat şi una dintre următoarele condiţii este adevărată:
  • Şablonul ataşat, folderul său sau cota de lipsesc.
  • Şablonul ataşat a fost mutat.
  • A fost redenumit şablonul ataşat.
Atunci când lipseşte un şablon Word, Windows XP va încerca să localizeze şablonul lipsesc mai multe ori. Procesul de a localiza un şablon lipsă poate provoca un document Word să ia mai mult decât de aşteptat pentru a deschide.

Aceasta va dura mai mult pentru a deschide documentul, atunci când sunteţi conectat la o reţea faţă de atunci când vă deconectați de la rețea.
Rezoluţie
La locul de muncă această problemă pe un computer cu Windows XP instalat, utilizaţi una dintre următoarele metode, în funcţie de situaţia dvs.:

Metoda 1: Ataşaţi şablon la o locație nouă

Deschideţi documentul în Microsoft Word. Aşteptaţi până când documentul este deschis. După documentul este deschis, ataşaţi şablon la noua locaţie. Sau, modificaţi şablonul în şablonul global Normal.dot. Pentru a ataşa şablon, urmaţi aceşti paşi:
  1. Pe Instrumente de meniu, faceţi clic pe Template-uri şi programe de completare.
  2. În Completare și șabloane casetă de dialog, faceţi clic pe Ataşaţi.
  3. În Ataşaţi şablon casetă de dialog, selectaţi şablonul pe care doriţi, şi apoi faceţi clic pe Deschis.
  4. În Completare și șabloane casetă de dialog, faceţi clic pe ok.

înapoi la început

Metoda 2: Utilizaţi un obicei Aplicaţia Visual Basic pentru a schimba şablonul ataşat în şablonul global (Normal.dot) atunci când un document este deschis

Microsoft oferă exemple de programare pentru ilustrare numai, fără garanţie, fie explicite sau implicite. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este fiind demonstrată şi cu instrumente care sunt folosite pentru a crea şi pentru procedurile de depanare. Inginerii de suport Microsoft pot ajuta la explicarea funcţionalitatea de un regim special. Cu toate acestea, ele nu va modifica aceste exemple pentru a oferi functionalitate a adăugat sau construi proceduri pentru a îndeplini cerinţele dumneavoastră specifice.

Utilizaţi o soluţie particularizată pentru a schimba ataşate şablon în şablonul Global (Normal.dot) atunci când un document este deschis.

Notă Asiguraţi-vă că macrocomanda de securitate este setat la mediu sau scăzut.

Pentru a crea soluţii personalizate în Microsoft Visual Basic 6, urmaţi aceşti paşi:
  1. Deschide un nou proiect de Standard.exe.
  2. Un formular de utilizator, adăugaţi următoarele componente:
    • Casetă listă cu un singur
    • Două casete de text
    • Patru butoane de comandă
    • Două etichete
  3. Setaţi o trimitere la Microsoft Scripting Runtime (Scrun.dll).
  4. Copiaţi şi lipiţi următorul cod într-o formă de utilizator:
    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
    Într-un modul standard, adăugaţi următorul cod:
    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

înapoi la început

Metoda 3: Creaţi un Microsoft Visual Basic for Applications (VBA) macrocomandă care buclele prin toate documente într-un folder şi schimbă nume de sign-in serverului vechiul cu noul server nume

Microsoft oferă exemple de programare pentru ilustrare numai, fără garanţie, fie explicite sau implicite. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este fiind demonstrată şi cu instrumente care sunt folosite pentru a crea şi pentru procedurile de depanare. Inginerii de suport Microsoft pot ajuta la explicarea funcţionalitatea de un regim special. Cu toate acestea, ele nu va modifica aceste exemple pentru a oferi functionalitate a adăugat sau construi proceduri pentru a îndeplini cerinţele dumneavoastră specifice.

Următoarea macrocomandă buclele prin toate documentele într-un folder şi modificări nume de sign-in serverului vechiul cu noul server nume pentru locaţie de template-uri. Această macrocomandă funcţionează numai dacă calea pentru template-uri este la fel.
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

înapoi la început

Metoda 4: Creaţi o macrocomandă VBA care buclele prin toate documentele într-un folder şi schimbă nume de sign-in serverului vechi cu şablonul global (Normal.dot)

Microsoft oferă exemple de programare pentru ilustrare numai, fără garanţie, fie explicite sau implicite. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este fiind demonstrată şi cu instrumente care sunt folosite pentru a crea şi pentru procedurile de depanare. Inginerii de suport Microsoft pot ajuta la explicarea funcţionalitatea de un regim special. Cu toate acestea, ele nu va modifica aceste exemple pentru a oferi functionalitate a adăugat sau construi proceduri pentru a îndeplini cerinţele dumneavoastră specifice.

Următoarea macrocomandă buclele prin toate documente într-un folder şi schimbă nume de sign-in serverului vechi cu şablonul global (Normal.dot).

Notă În cazul în care un document este protejat în oricum parola, şablonul va nu fi schimbat şi codul va eşua.
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


înapoi la partea de sus

Metoda 5: Redenumiţi server, cota sau folderul la nume de sign-in original

În cazul în care serverul, cota sau folderul care conţine şablonul a fost mutat sau redenumit, redenumiţi server, cota sau folderul înapoi la nume de sign-in original.

În cazul în care serverul vechi nu mai există, puteţi crea DNS intrare cu vechi numeserver. Odată ce aţi vechi nume server DNS intrarea, puteţi crea acelaşi structura enumerate în şablon calea şi copia şablon la acel folder.înapoi la partea de sus
Stare
Microsoft a confirmat că aceasta este o problemă asociată cu produsele Microsoft enumerate în secţiunea „se aplică la".
macrocomandă deschidere lent template-uri ataşate

Avertisment: acest articol a fost tradus automat

Proprietăți

ID articol: 830561 - Ultima examinare: 12/08/2015 05:08:05 - Revizie: 1.0

Microsoft Word 2002 Standard Edition

  • kbnosurvey kbarchive kbperformance kbtshoot kbprb kbmt KB830561 KbMtro
Feedback