کاربران WordPerfect ممکن است با قابلیتی آشنا باشند که به شما امکان می دهد محتویات یک فهرست را چاپ کنید. در واقع، پرینت گرفتن از تمام اسناد در یک فهرست، می تواند بسیار مفید باشد. متأسفانه Word یک دستور ذاتی ندارد که به شما اجازه دهد همان کار را انجام دهید. با این حال، چند راه وجود دارد که می توانید به این مشکل نزدیک شوید.
اولین مورد، روش قدیمی آزمایش شده و واقعی DIR است که از زمان DOS توسط "تکنیک ها" استفاده شده است. به سادگی یک پنجره خط فرمان باز کنید، فهرستی را که می خواهید برای آن فهرست کنید، پیدا کنید و سپس دستور زیر را تایپ کنید:
dir /b > mydir.txt
این یک فایل متنی (mydir.txt) ایجاد می کند که فقط نام فایل های موجود در دایرکتوری را شامل می شود. سپس می توانید فایل را در Word پیدا کنید و آن را به عنوان یک سند بارگذاری کنید. در حالی که این رویکرد یک مرحله نیست، به خصوص دشوار نیست.
اگر مایل به یک راه حل کلان برای مشکل هستید، می توانید از موارد زیر استفاده کنید. این کادر محاوره‌ای استاندارد Open را نشان می‌دهد که در آن می‌توانید فهرستی را که می‌خواهید فهرستی را برای آن جستجو کنید. وقتی فایلی را در آن دایرکتوری انتخاب می‌کنید و روی Open کلیک می‌کنید، ماکرو یک سند Word جدید ایجاد می‌کند که تمام فایل‌های موجود در فهرست را فهرست می‌کند. توجه داشته باشید که باید یک فایل را از دایرکتوری انتخاب کنید.
Sub ListFiles() Dim PathWanted As String Dim FName As String Dim Temp As String With Dialogs(wdDialogFileOpen) .Name = "*.*" If .Display = -1 Then Documents.Add PathWanted = Options.DefaultFilePath(wdDocumentsPath) Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf ChDir PathWanted FName = Dir("*.*") While FName <> "" Temp = FName While InStr(Temp, "") > 0 Temp = Mid(Temp, InStr(Temp, "") + 1) Wend Selection.TypeText Temp & vbCrLf FName = Dir Wend End If End With End Sub
اگر می‌خواهید فایل‌های بازگردانده شده توسط ماکرو را محدود کنید (مثلاً فقط به آن‌هایی که به .DOCX ختم می‌شوند)، می‌توانید مشخصات فایل (*.*) را در دو خط برنامه تغییر دهید.
