word宏命令需要将一段包含图片的文本进行图片在文字中的位置的记录，在将图片储存到临时文件夹，

Word宏命令可以用来自动化处理包含图片的文本，包括记录图片的位置以及将其保存到临时文件夹。你可以编写一个宏，通过以下步骤来完成这项任务：

1. **定位图片**：首先，宏可以遍历文档中的每个节或段落，查找所有的图片。利用`ActiveDocument.Range`和`.Find.Execute()`方法，结合条件判断`Range.Picture`是否存在。

2. **记录位置**：找到图片后，可以获取其位置信息，例如，使用`Picture.Range`属性获取图片所在的文本范围，或者`Top`, `Left`, `Width`, 和 `Height` 属性来记录图片相对于文档的坐标。

3. **保存图片**：接着，对每个图片应用`Picture.ExportAsFile`方法，指定临时文件夹作为保存路径。确保你有足够的权限访问该目录，并且文件名可以根据需求自动生成。

4. **记录信息**：将图片位置和文件名一起存储在一个数据结构（如数组或集合）中，以便后续处理或报告。

Sub RecordPictures()
    Dim rng As Range
    Dim pic As Picture
    Dim imgPath As String
    Dim imgInfo() As Variant
    
    ' 创建数组用于存储图片信息
    ReDim imgInfo(1 To 4) As String
    
    ' 设置临时文件夹路径
    Dim tempFolder As String
    tempFolder = "C:\Temp\" ' 替换为实际的临时文件夹路径
    
    ' 遍历文档中的图片
    For Each rng In ActiveDocument.StoryRanges
        If Not rng.HasText Then
            For Each pic In rng.Pictures
                ' 记录位置信息
                imgInfo(1) = rng.Start + rng.Font.Characters(Start:=1, Length:=pic.Left).Range.Text
                imgInfo(2) = rng.Start + rng.Font.Characters(Start:=1, Length:=pic.Top).Range.Text
                imgInfo(3) = pic.Width
                imgInfo(4) = pic.Height
                
                ' 保存图片并获取新文件名
                imgPath = tempFolder & Format(pic.Range.BaseOffset, "yyyy-mm-dd_hh-mm-ss") & ".jpg"
                pic.ExportAsFile (imgPath)
                
                ' 将信息添加到数组
                imgInfo(5) = imgPath
            Next pic
        End If
    Next rng
    
    ' 存储或处理图片信息（比如写入数据库）
End Sub