1、打开Word2010文档。

2、切换到插入选项卡，找到图片命令。

3、在弹出对话框中选中想要插入的图片。

4、被选中的图片就会被插入到文档中，点击图片，菜单栏就会出现图片工具“格式”。

5、切换到该选项卡，我们就能看到众多的图片工具，可以对图片进行简单的编辑，如调整、样式、排列、大小等。

6、选中该图片，图片旁边也会浮现一个图标，对日夏养花网图片布局做设置，如嵌入型、文字环绕等。

扩展

一、启动Word 2003 的三种方法：
　　⑴单击“开始”→“程序”→“办公软件”→“Microsoft Word”命令，启动Word 2003。
　　⑵双击桌面上的Word 2003的快捷方式图标 ，启动Word 2003。
　　⑶单击“开始”→“运行”命令，在弹出的“运行”对话框中键入“Winword”，单击“确定”按钮（或者按Enter键），启动Word 2003。
　　无论用上面哪种方式启动Word 2003，都创建了一个空白文档，文档默认文件名为“文档1”，
　　二、新建空白文档：
　　⑴单击“文件”→“新建”命令，打开如图2.1.2所示的“新建”界面，单击“空白文档”图标。
　　⑵单击“常用”工具栏上的“新建空白文档”按钮。
　　⑶利用模板和向导创建文档。单击“文件”菜单中的“新建”命令，单击下方“本机上的模板”链接，打开“模板”对话框。单击一个文档类别选项卡，从中选择需要的模板样式。有些模板中还带有向导，可以根据向导的提示完成文档的建立。
　　三、保存文档
　　将已录入文本的文档以文件名“文件1.doc”保存在“D:\Word练习”（若此文件夹不存在，请在D盘根目录下日夏养花网建立名为“Word练习”的文件夹）中。
　　操作方法如下：
　　①单击工具栏上的“保存”按钮，或者单击“文件”→“保存”命令，打开如图2.1.3所示的“另存为”对话框。
　　②在“文件名”框中输入文件名 “文件1”。
　　③在“保存位置”框中选择文档的保存文件夹：D:\Word练习。 ④单击“保存”按钮，关闭“另存为”对话框，完成保存文件操作。
　　提示：命名可根据文档的内容和自己的意思随意命名。
　　四、关闭文档
　　将文档“文件1”关闭。操作方法如下：
　　⑴单击“文件1”文档窗口，使其成为当前窗口。
　　⑵单击“文件1”窗口右上方的关闭按钮，或者单击“文件”→“关闭”命令。 ⑶如果在上一次保存“文件1”后一直没有对“文件1”进行任何修改，将不会有任何提示就关闭该文档，否则，会弹出如图2.1.4所示的提示框。若保存对文档所做的修改，单击“是”按钮，放弃修改单击“否”按钮，取消关闭操作单击“取消”按钮。

Sub 选择重命名文件夹()

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框

If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0

End With

If Right(myPath, 1) <> "" Then myPath = myPath & ""

'返回的是选中目标文件夹的绝对路径,但除了本地C 盘、D 盘会以"C:"形式返回外，其余路

径无""需要自己添加

Getfd (myPath)

Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

On Error Resume Next

Dim strPath As String

'插入两行

Columns("A:B").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'设置B 行内容

Range("B1") = "目标名称"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '设置B 行内容为目标名称

Range("B2").Select

m = Range("C65536").End(xlUp).Row

Selection.AutoFill Destination:=Range("B2:B" & m) '填充B 行

'设置A 行内容为所选文件下所有图谱名称

Range("A1") = "原名称"

strPath = pth & "\"

f = Dir(strPath & "*.jpg")

k = 1

Do While f <> ""

k = k + 1

Range("A" & k) = f

f = Dir

Loop

'调整AB 列宽

Cells.Select

Cells.EntireColumn.AutoFit '调整AB 列宽

'重命名

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A 列最后可见单元的行号

For b = 2 To a

c = Range("a" & b).Value

cc = Range("日夏养花网;b" & b).Value

Name strPath & c As strPath & cc '重命名

Next

MsgBox ("重命名完成")

End Sub

批量插入图片是可以的
要显示图片名称是不行的
只能一张一张的标注

从哪里复制？

先插入文本框---再插入图片 ---输入文字

假如要一次性在word中插入如下多张图片，应该如何完成呢?

方法1：先打开一个word文档，利用工具栏，在文档下面的工具栏中找到“插入图日夏养花网片”按钮点击，在弹出“插入图片”对话框中选择存放图片的位置，此时按住 Ctrl 键，就可以用鼠标选择多张图片了或者你也可以按 Shift 键，然后单击选择多个图片，最后“插入”即可，当然如果想要路径下全部是需插入的图片，那么直接按快捷键 Ctrl+A 全选，全部插入即可

方法2：先www.rixia.cc打开一个word文档，利用菜单栏，在打开的文档中，选择“插入”----->“图片”----->“来自文件”，在弹出“插入图片”对话框中选择存放图片的位置，此时按住 Ctrl 键，就可以用鼠标选择多张图片了即可，实际上在弹出“插入图片”对话框中做法跟上面方法1一样。

方法3：利用直接复制，利用鼠标右键想插入的图片的图标，打开存放图片的位置，然后选中插入的全部图片，跟着按下鼠标右键，选择“复制”，最后在打开的文档中，鼠标再按下右键，选择“粘贴”，即可快速想插入的多个图片.

方法4：利用菜单栏右键调出“图片”工具栏，然后点击“插入图片”，下面做法跟方法1，方法2一样，大家可以试试。