word如何放许多照片,照片

1.怎样把几张图片放在一个word文档里

方法：

1、打开WORD，再打开存放图片的文件夹。

2、选中要放入word的图片，直接拖放到word文档中，再进行排版即可。

3、也可以点击插入---图片，浏览图片所在位置，按Ctrl后鼠标点击图片，确定后也可插入到word文档中。

如下图，逐个选中图片后，插入文档即可。

效果如下：

2.word怎么在一个页面上插入多张图片

1、一般情况下，word页面为A4页面大小，除去上下左右的页边距，图片的高度在24-25厘米左右，宽度在14-16厘米左右。因此需要提前把图片大小设置在这个范围内。

2、先打开一个空白的excel，选择工具栏中的【插入】-【图片】，在电脑中找到图片，批量插入多张图片。

3、插入的图片默认被全部选定，这时候不要点击excel工作表中的任何位置，直接进入【图片工具】-【格式】，在下方中点击【大小】右侧的小图标。

4、然后将excel表格【另存为】，选择【其他格式】，对文件命名，保存类型选择【网页】。保存的文件中会单独生成一个文件夹，里面有插入excel的图片。

3.word怎么在一个画布里面放很多图片呢

例如上面效果的制作方法：

1、单击插入----形状----新建绘图画面工具；

2、在页面出现如图所示的绘图画布；

3、将鼠标指针放在绘图画布周围的八个控制点处，当鼠标指针变为对应的形状时，按下并拖动鼠标，即可调整其大小到所需要的大小；

4、此时在绘图画布上插入图片，用鼠标拖动，使其放在相应的位置即可。

4.怎么把许多图片放到word文档中

1、acdsee可以打印缩略图，带文件路径的 2、也可以用如下的word宏 Sub 宏1（) ' '成都豺狼 ' pth = "C:\\My Pictures\\" '读入文件的路径 fln = Dir(pth & "*.jpg") '文件类型，没有其它文件，可以只用路径 wdth = ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - ActiveDocument.PageSetup.RightMargin hght = ActiveDocument.PageSetup.PageHeight - ActiveDocument.PageSetup.TopMargin - ActiveDocument.PageSetup.BottomMargin a = ActiveDocument.Paragraphs.LineSpacing cnt = 0 Do While Len(fln) > 0 If cnt Mod 6 = 0 Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph 'Selection.InsertBreak Type:=wdPageBreak ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _ 4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed Selection.Tables(ActiveDocument.Tables.Count).Select Selection.SelectCell Selection.ParagraphFormat.Alignment = Selection.Cells.VerticalAlignment = ActiveDocument.Tables(ActiveDocument.Tables.Count).AllowAutoFit = False ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(3).Select Selection.Orientation = ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(1).Select Selection.Orientation = ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(1).Width = wdth * 0.05 ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(2).Width = wdth * 0.45 ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(3).Width = wdth * 0.05 ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(4).Width = wdth * 0.45 ActiveDocument.Tables(ActiveDocument.Tables.Count).Rows.Height = (hght - a - a) * 0.33 tablebili = ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(2).Width / ActiveDocument.Tables(ActiveDocument.Tables.Count).Rows.Height End If Selection.TypeText Text:=fln Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ pth & fln, LinkToFile:=False, _ SaveWithDocument:=True cnt = ActiveDocument.InlineShapes.Count bili = ActiveDocument.InlineShapes(cnt).Width / ActiveDocument.InlineShapes(cnt).Height If tablebili > bili Then '控制图形按纵横比例显示，要拉伸就直接用行高列宽 ActiveDocument.InlineShapes(cnt).Height = ActiveDocument.Tables(ActiveDocument.Tables.Count).Rows.Height ActiveDocument.InlineShapes(cnt).Width = ActiveDocument.InlineShapes(cnt).Height * bili Else ActiveDocument.InlineShapes(cnt).Width = ActiveDocument.Tables(ActiveDocument.Tables.Count).Columns(2).Width ActiveDocument.InlineShapes(cnt).Height = ActiveDocument.InlineShapes(cnt).Width / bili End If Selection.MoveRight Unit:=wdCharacter, Count:=1 fln = Dir DoEvents Loop End Sub。