Word宏：从文件夹导入/格式化图像并删除额外的页面

Question

我是全新的宏，我正在尝试执行以下操作：

将硬盘驱动器上的文件夹中的所有图像导入到Word文件中 - 每个文件都有自己的页面并调整大小以填充页面（A4纵向），同时仍保持其比例。

我已经设法做了“导入”部分，每个图像都使用以下代码获取自己的页面：

Sub BilderImport()
    Dim Path As String
    Dim Img As Object
    Dim fs As Object
    Dim f As Object
    Dim fc As Object
    Dim i As Integer
    Dim fsize As Integer

    Path = "C:\tmp"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(Path)
    Set ff = f.Files
    i = 0
    fsize = ff.Count

    For Each Img In ff
        If Right(Img.Name, 4) = ".bmp" Or Right(Img.Name, 4) = ".jpg" Or Right(Img.Name, 4) = ".gif" Or Right(Img.Name, 4) = ".png" Then
            i = i + 1
            Selection.InlineShapes.AddPicture FileName:=Img 

            Selection.InsertBreak Type:=wdLineBreak 'Add file name below every img
            Selection.TypeText Text:=Img.Name

            If i < fsize Then 'No line break after the last img
                Selection.InsertBreak Type:=wdPageBreak 'Inserts line break after every img
            End If
        End If
    Next
End Sub

我现在遇到的一个问题：Word还会在每个图像后添加换行符，如果图像已经非常高，则此换行符跳转到下一页，由于我已添加的中断，这会添加一个额外的空页。

我该如何预防或检查呢？

Answer 1

尝试：

Sub BilderImport()
    Dim Path As String
    Dim fs As Object
    Dim ff As Variant
    Dim Img As Variant
    Dim i As Long
    Dim fsize As Long

    Path = "C:\tmp"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set ff = fs.GetFolder(Path).Files
    i = 0
    fsize = ff.Count
    With ActiveDocument
        For Each Img In ff
            Select Case Right(Img.Name, 4)
                Case ".bmp", ".jpg", ".gif", ".png"
                    i = i + 1
                    .Characters.Last.InlineShapes.AddPicture FileName:=Img
                    .Characters.Last.InsertBefore Chr(11) & Img.Name & Chr(12)                End Select
        Next
        'No page break after last pic
        .Characters.Last.Previous.Delete
    End With
End Sub

Answer 2

如何解决它有两种方法。我希望两者结合：

• 如果要调整图像大小，请将它们调整为小一点（考虑额外的换行符）
• 将字体大小设置为0或1，并在添加图片之前将段落设置为细线高度

根据图像大小，第二点就足够了。

还有第三种可能性：您必须在输入图像之前和之后检查页数。但这会降低整个宏观的速度。