Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

kumpulan dokumen yang telah terpasang template mengambil waktu lama untuk membuka di Word 2002 dan Word 2003

PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.

Klik disini untuk melihat versi Inggris dari artikel ini: 830561
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
Gejala
Ketika Anda membuka kumpulan kumpulan dokumen Microsoft Word (* .doc) file, kumpulan dokumen mungkin memakan waktu lebih lama maka diharapkan untuk membuka. Misalnya, kumpulan dokumen mungkin mengambil 5-10 menit untuk membuka.
Penyebab
Gejala ini dapat terjadi jika kumpulan dokumen tersebut memiliki template terpasang atau terkait dan salah satu kondisi berikut benar:
  • Template terlampir, folder yang, atau saham hilang.
  • Template terlampir telah dipindahkan.
  • Template terlampir telah diubah namanya.
Bila template kata hilang, Windows XP akan mencoba untuk menemukan template hilang beberapa kali. Proses menemukan template yang hilang dapat menyebabkan kumpulan dokumen Word untuk mengambil lebih lama daripada yang diharapkan untuk membuka.

Ini akan memakan waktu lebih lama untuk membuka kumpulan dokumen ketika Anda terhubung ke jaringan dibandingkan dengan ketika Anda terputus dari jaringan.
Pemecahan masalah
Untuk bekerja di sekitar masalah ini pada komputer dengan Windows XP terpasang, gunakan salah satu dari metode berikut yang sesuai untuk situasi Anda:

Metode 1: Melampirkan Template dari lokasi baru

Buka kumpulan dokumen Microsoft Word. Tunggu hingga kumpulan dokumen ini terbuka. Setelah kumpulan dokumen terbuka, melampirkan template dari lokasi baru. Atau, mengubah template template global, Normal.dot. Untuk melampirkan template, ikuti langkah berikut:
  1. Pada Alat Menu, klik Template dan tambah pasang.
  2. Dalam Template dan tambah pasang kotak dialog, Klik Melampirkan.
  3. Dalam Melampirkan Template kotak dialog, pilih template yang Anda inginkan, dan kemudian klik Buka.
  4. Dalam Template dan tambah pasang kotak dialog, Klik Oke.

cadangan

Metode 2: Gunakan kustom Visual Basic Application untuk mengubah template terpasang ke pola dasar global (Normal.dot) bila kumpulan dokumen baru dibuka

Microsoft menyediakan pemrograman contoh ilustrasi saja, tanpa jaminan, baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas pada, jaminan tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrogram yang muncul dan dengan alat-alat yang digunakan untuk membuat dan debug prosedur. Microsoft support engineers dapat membantu menjelaskan fungsi dari prosedur tertentu. Namun, mereka tidak akan memodifikasi contoh-contoh ini untuk memberikan menambahkan fungsi atau membangun prosedur untuk memenuhi kebutuhan spesifik Anda.

Menggunakan solusi kustom untuk mengubah terpasang template Template Global (Normal.dot) ketika kumpulan dokumen baru dibuka.

Catatan Pastikan bahwa makro keamanan diatur ke media atau rendah.

Untuk membuat solusi kustom di Microsoft Visual Basic 6, ikuti langkah-langkah berikut:
  1. Buka proyek Standard.exe baru.
  2. Pada bentuk pengguna, menambahkan komponen-komponen berikut:
    • Satu kotak daftar
    • Dua kotak teks
    • Empat tombol tekan perintah
    • Dua label
  3. Mengatur referensi Microsoft Scripting Runtime (Scrun.dll).
  4. Copy dan paste kode berikut dalam bentuk pengguna:
    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
    Dalam modul standar, tambahkan kode berikut:
    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

cadangan

Metode 3: Membuat Microsoft Visual Basic for Applications (VBA) makro yang loop melalui semua kumpulan dokumen dalam folder dan perubahan nama server yang lama dengan server baru Nama

Microsoft menyediakan pemrograman contoh ilustrasi saja, tanpa jaminan, baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas pada, jaminan tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrogram yang muncul dan dengan alat-alat yang digunakan untuk membuat dan debug prosedur. Microsoft support engineers dapat membantu menjelaskan fungsi dari prosedur tertentu. Namun, mereka tidak akan memodifikasi contoh-contoh ini untuk memberikan menambahkan fungsi atau membangun prosedur untuk memenuhi kebutuhan spesifik Anda.

Makro berikut loop melalui semua kumpulan dokumen dalam folder dan perubahan nama server yang lama dengan baru server nama untuk Lokasi template. Makro ini bekerja hanya jika jalan untuk template adalah sama.
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

cadangan

Metode 4: Membuat VBA makro yang loop melalui semua kumpulan dokumen di folder dan perubahan nama server yang lama dengan template global (Normal.dot)

Microsoft menyediakan pemrograman contoh ilustrasi saja, tanpa jaminan, baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas pada, jaminan tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrogram yang muncul dan dengan alat-alat yang digunakan untuk membuat dan debug prosedur. Microsoft support engineers dapat membantu menjelaskan fungsi dari prosedur tertentu. Namun, mereka tidak akan memodifikasi contoh-contoh ini untuk memberikan menambahkan fungsi atau membangun prosedur untuk memenuhi kebutuhan spesifik Anda.

Makro berikut loop melalui semua kumpulan dokumen dalam folder dan perubahan nama server yang lama dengan pola dasar global (Normal.dot).

Catatan Jika kumpulan dokumen kata sandi yang dilindungi dalam anyway, template akan tidak berubah dan kode akan gagal.
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


kembali ke atas

Method 5: Mengubah nama server, berbagi, atau folder untuk nama asli

Jika server, berbagi, atau folder yang berisi template dipindahkan atau diganti, mengubah server, berbagi, atau folder kembali ke nama asli.

Jika server lama tidak ada lagi, Anda dapat membuat catatan DNS dengan nama server lama. Setelah Anda memiliki nama server DNS entri yang lama, Anda dapat menciptakan struktur folder yang sama seperti yang tercantum dalam template path dan menyalin template ke folder itu.kembali ke atas
Status
Microsoft telah mengkonfirmasi bahwa ini merupakan masalah di dalam produk Microsoft sebagaimana didaftar di dalam bagian "Applies to".
lambat terlampir template membuka makro

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 830561 - Tinjauan Terakhir: 12/08/2015 05:08:02 - Revisi: 1.0

Microsoft Word 2002

  • kbnosurvey kbarchive kbperformance kbtshoot kbprb kbmt KB830561 KbMtid
Tanggapan