هر هفته جان باید یک فاکتور ایجاد کند و چندین سند اسکن شده را در یک سند Word قرار دهد. او فکر می کند که آیا راهی برای قرار دادن تمام تصاویر JPG از یک پوشه خاص در سند فعلی Word وجود دارد یا خیر.
چند راه وجود دارد که می توانید این کار را انجام دهید. یک راه این است که به سادگی تمام گرافیک ها را انتخاب کرده و در یک مرحله درج کنید:
- نقطه درج را در محل سندی که می خواهید گرافیک درج شود قرار دهید.
- زبانه Insert روبان را نمایش دهید.
- روی ابزار Picture کلیک کنید. Word کادر محاوره ای Insert Picture را نمایش می دهد.
- از کنترل های موجود در کادر محاوره ای برای پیدا کردن پوشه حاوی تصاویر استفاده کنید.
- Ctrl+A را فشار دهید. Word تمام فایل های موجود در پوشه را انتخاب می کند.
- روی Insert کلیک کنید.
خودشه؛ Word تمام گرافیک ها را در سند وارد می کند. باید مراقب این کار باشید، زیرا اگر تعداد زیادی (مثلاً 100) گرافیک در پوشه وجود دارد یا اگر فایل‌های گرافیکی بسیار بزرگ هستند، می‌توانید Word را به خزیدن آهسته کنید یا آن را کاملاً آویزان کنید. اگر پوشه شامل مواردی بیش از گرافیک نیست یا فقط برخی از فایل های گرافیکی را می خواهید، می توانید کلید Ctrl را نگه دارید همانطور که از ماوس برای انتخاب گرافیک در مرحله 5 استفاده می کنید. نکته اینجاست که هر فایلی که در مرحله 5 انتخاب کرده اید، اینها فایل هایی هستند که Word در سند شما قرار می دهد.
یک تغییر در این رویکرد شامل استفاده از ویندوز است. این مراحل کلی را دنبال کنید:
- نقطه درج را در محل سندی که می خواهید گرافیک درج شود قرار دهید.
- سند Word را به حداقل برسانید.
- در ویندوز، پوشه ای که تصاویر در آن قرار دارند را نمایش دهید.
- یک مجموعه انتخابی از تصاویری که می خواهید در سند درج کنید بسازید.
- روی هر تصویر در مجموعه انتخاب کلیک کنید و دکمه ماوس را نگه دارید.
- مجموعه انتخابی را روی بالای سند همانطور که در نوار وظیفه ظاهر می شود بکشید. (هنوز دکمه ماوس را کاملا رها نکنید.)
- هنگامی که ویندوز سند Word را نمایش داد (که پس از چند ثانیه انجام می شود)، دکمه ماوس را رها کنید.
در این مرحله، تمام تصاویری که در مرحله 4 انتخاب کرده اید، مانند روش قبلی در سند Word درج می شوند.
اگر از یکی از روش‌های فوق استفاده می‌کنید، باید اندازه تصاویر را تغییر دهید و در صورت لزوم آن‌ها را جابه‌جا کنید، تا سند شما به شکل دلخواه شما ظاهر شود.
البته، اگر نیاز دارید که گروه‌های کاملی از تصاویر را به صورت روتین درج کنید، انجام این مراحل پس از مدتی می‌تواند خسته‌کننده شود. تدیوم اغلب با استفاده از ماکرو تسکین می یابد و این مورد نیز از این قاعده مستثنی نیست. ماکرو زیر را می توان برای نمایش یک کادر محاوره ای (مشابه مواردی که در روش های قبلی استفاده می شد) استفاده کرد که در آن می توانید فایل های مورد نظر خود را انتخاب کنید. وقتی کادر محاوره ای را می بندید، هر تصویری که در کادر محاوره ای انتخاب کرده اید، در سند شما درج می شود، هر کدام در پاراگراف خود.
Sub InsertImages() Dim doc As Word.Document Dim fd As FileDialog Dim vItem As Variant Dim mg1 As Range Dim mg2 As Range Set fd = Application.FileDialog(msoFileDialogFilePicker) Set doc = ActiveDocument With fd .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1 .FilterIndex = 1 If .Show = -1 Then For Each vItem In .SelectedItems Set mg2 = ActiveDocument.Range mg2.Collapse wdCollapseEnd doc.InlineShapes.AddPicture _ FileName:=vItem, _ LinkToFile:=False, SaveWithDocument:=True, Range:=mg2 Set mg1 = ActiveDocument.Range mg1.Collapse wdCollapseEnd mg1.Text = vbCrLF & vbCrLf Next vItem End If End With Set fd = Nothing End Sub
اگر نمی‌خواهید با انتخاب پوشه‌ها یا فایل‌ها خود را خسته کنید، می‌توانید از یک ماکرو ساده‌تر استفاده کنید. موارد زیر همه فایل‌های JPG را از یک پوشه مشخص می‌کشد و در سند جاری قرار می‌دهد. هر تصویر در پاراگراف خودش است.
Sub GetPictures() Dim sPic As String Dim sPath As String sPath = "c:myfolder" sPic = Dir(sPath & "*.jpg") Do While sPic <> "" Selection.InlineShapes.AddPicture _ FileName:=sPath & sPic, _ LinkToFile:=False, SaveWithDocument:=True sPic = Dir Selection.TypeParagraph Selection.TypeParagraph Loop End Sub
برای استفاده از ماکرو، فقط مطمئن شوید که مقدار اختصاص داده شده به sPath را تغییر دهید تا نشان دهنده پوشه مورد نظر شما باشد.
