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，并将段落设置为微小的行高

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

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