Энэ нийтлэлд бид олон тооны зургийг Word баримт бичигт багцлан оруулах аргыг санал болгож байна.
Word дээр зурагтай ажиллахад та тав тухыг мэдэрч чадна. Баримтанд зураг оруулсны дараа түүний хэмжээг гараар өөрчлөх эсвэл нэрийг нь оруулах шаардлагатай болж магадгүй юм. Даалгаврыг автоматаар гүйцэтгэхийн тулд макро ашиглах уу?
Бидний танд танилцуулах гэж буй макро нь дараахь функцийг гүйцэтгэх чадвартай:
- Нэгдүгээрт, энэ нь таны хуудас бүрт яг тодорхой зааж өгсөн зургийг оруулна.
- Хоёрдугаарт, зураг бүрийн доор нэрийг оруулна.
- Гуравдугаарт, оруулсан хэмжээнээс хамааран зургийн хэмжээг өөрчилдөг.
Одоо үүнийг хэрхэн ажиллуулахаа авч үзье.
Багцад олон зураг оруулах
- Юуны өмнө бүх зургийг нэг фолдер дор оруулахаар зохион байгуул.
- Дараа нь Word дээр VBA засварлагчийг дуудахын тулд “Alt + F11” товчийг дарна уу.
- Дараа нь “Хэвийн” төслийг дарна уу.
- Дараа нь цэсний мөрөнд "Оруулах" дээр дарна уу.
- Унтраах цэснээс “Модуль” -г сонгоно уу.
- Модулийг хоёр товшоод нээгээд дараах кодыг буулгана уу.
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
- Дараа нь "Run" дээр дарна уу эсвэл "F5" дээр дарна уу.
- Макро ажиллуулах явцад “Browse” цонх гарч ирнэ. 1-р алхам дээр зураг хадгалдаг фолдероо сонгоод "OK" дээр дарна уу.
- Дараа нь “Зургийн дугаар” гэсэн нүдэнд хүссэн хуудсынхаа тоог илэрхийлсэн тоог нэг хуудсанд оруулна уу. Үргэлжлүүлэхийн тулд "OK" дээр дарна уу.
- "Зургийн хэмжээг өөрчлөх" талбарт "Тийм" дээр дарж бүх зургийн хэмжээг өөрчлөх ба "Үгүй" товчийг цуцлана уу.
- Одоо “Өндөр ба өргөн” нүдэнд утгуудыг оруулаад таслалаар тусгаарлана уу. Эхлээд өндрийг, дараа нь өргөнийг оруулахаа бүү мартаарай. Таслалаас хойш зай байхгүй байна.
- Үүнтэй адил үргэлжлүүлэхийн тулд "OK" дээр дарна уу.
Одоо нэг хуудсанд 2 зураг байгаа бөгөөд дор нь тус бүр өөрийн гэсэн нэртэй байна. Үр дүн энд байна:
Мэдээллийн бүрэн бүтэн байдлыг анхааралтай ажигла
Өгөгдлийг алдах эсвэл ямар нэгэн байдлаар буулгах эрсдэл үргэлж байдаг. Энэ нь бид мэдээллийн бүрэн бүтэн байдлыг тогтмол шалгаж байх ёстой гэсэн үг юм. Нэгэнт бид ямар нэгэн шинж тэмдгийг олж мэдсэн Үгийн эвдрэл, өгөгдлийг сэргээх хамгийн сайн арга бол засах хэрэгсэл авах явдал юм.
Зохиогчийн танилцуулга:
Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. Excel сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com