Сөздік құжатқа бірнеше суретті қалай кірістіру керек

Осы мақалада біз сізге Word құжатына бірнеше суреттерді бумалық енгізу әдісін ұсынғымыз келеді.

Word-та суреттермен жұмыс істеу кезінде сіз өзіңізді жайлы сезіне аласыз. Суретті құжатқа енгізгеннен кейін оның өлшемін қолмен өзгертуге немесе айналасына оның атын енгізуге тура келуі мүмкін. Тапсырманы автоматты түрде орындау үшін макросты қалай қолдануға болады?

Біз сіздерге ұсынатын макро келесі функцияларды орындай алады:

1. Біріншіден, ол әр параққа сіз көрсеткен суреттердің нақты санын енгізеді.
2. Екіншіден, әр суреттің астына ат қояды.
3. Үшіншіден, ол сіз енгізген өлшем сандарына сәйкес суреттердің өлшемдерін өзгертеді.

Енді оны қалай жұмыс істеуге болатындығын қарастырайық.

Пакетке бірнеше суретті құжатқа енгізу

1. Біріншіден, барлық суреттерді бір папкаға салуды реттеңіз.
2. Содан кейін Word бағдарламасында VBA редакторын шақыру үшін «Alt + F11» пернелерін басыңыз.
3. Әрі қарай «Қалыпты» жобасын басыңыз.
4. Содан кейін мәзір жолағында «Кірістіру» батырмасын басыңыз.
5. Ашылмалы мәзірден «Модуль» таңдаңыз.
6. Екі рет басу арқылы модульді ашып, келесі кодтарды қойыңыз:

Sub InsertSpecificNumberOfPictureForEachPage()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim objInlineShape As InlineShape
  Dim nResponse As Integer
  Dim strPictureNumber As Integer
  Dim strPictureSize As String
  Dim n As Integer  

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
  
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With

  strFile = Dir(StrFolder & "*.*", vbNormal)
  strPictureNumber = InputBox("Input the number of the picture for each page", "Picture Number", "For exemple: 1")
  n = 1  

  While strFile <> ""
    Selection.InlineShapes.AddPicture FileName:=StrFolder & strFile, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
    Selection.Collapse Direction:=wdCollapsEnd
    Selection.TypeText Text:=Left(strFile, InStrRev(strFile, ".") - 1)
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    If ActiveDocument.InlineShapes.Count = strPictureNumber * n Then
      Selection.InsertNewPage
      Selection.TypeBackspace
      n = n + 1
    End If
    Selection.TypeParagraph
    strFile = Dir()
  Wend

  For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInlineShape

  nResponse = MsgBox("Do you want to resize all pictures?", 4, "Resize Picture")
  If nResponse = 6 Then
    strPictureSize = InputBox("Input the height and width of the picture, seperated by comma", "Height and Width", "For exemple:500,500")
    For Each objInlineShape In ActiveDocument.InlineShapes
      objInlineShape.Height = Split(strPictureSize, ",")(0)
      objInlineShape.Width = Split(strPictureSize, ",")(1)
    Next objInlineShape
  End If
End Sub

7. Содан кейін «Іске қосу» батырмасын басыңыз немесе «F5» пернесін басыңыз.
8. Макросты іске қосу кезінде «Шолу» терезесі пайда болады. 1-қадамда суреттерді сақтайтын қалтаны таңдап, «ОК» батырмасын басыңыз.
9. Одан кейін «Сурет нөмірі» өрісіне бір параққа қалаған суреттердің жалпы санын көрсететін санды енгізіңіз. Әрі қарай жалғастыру үшін «OK» батырмасын басыңыз.
10. «Суреттің өлшемін өзгерту» өрісінде барлық суреттердің өлшемін өзгерту үшін «Иә» батырмасын, ал оны болдырмау үшін «Жоқ» батырмасын басыңыз.
11. Енді «Биіктігі мен ені» өрісіне мәндерді енгізіп, үтірді бөліп алыңыз. Алдымен биіктігін, содан кейін енін енгізуді ұмытпаңыз. Үтірден кейін орын жоқ.
12. Сол сияқты, жалғастыру үшін «OK» батырмасын басыңыз.

Енді бір парақта 2 сурет бар және әрқайсысының астында өз атауы бар. Міне нәтиже:

Деректердің тұтастығына көз салыңыз

Деректерді жоғалту немесе оны қандай да бір түрде бұзу қаупі әрқашан бар. Бұл дегеніміз біз деректердің тұтастығын үнемі тексеріп отыруымыз керек. Біз кез-келген белгіні тапқаннан кейін Сөздің бұзылуы, деректерді қалпына келтірудің ең жақсы тәсілі - жөндеу құралын алу.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel-ді қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com