zoukankan      html  css  js  c++  java
  • 批量导入图片到word并添加文件名

    Sub InsertPic()
        Dim myfile As FileDialog
        Set myfile = Application.FileDialog(msoFileDialogFilePicker)
        With myfile
            .InitialFileName = "F:"
            If .Show = -1 Then
                For Each fn In .SelectedItems
    
                    Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
                    '按比例调整相片尺寸
                    WidthNum = mypic.Width
                    c = 10         '在此处修改相片宽,单位厘米
                    mypic.Width = c * 28.35
                    mypic.Height = (c * 28.35 / WidthNum) * mypic.Height
                    If Selection.Start = ActiveDocument.Content.End - 1 Then  '如光标在文末
                        Selection.TypeParagraph    '在文末添加一空段
                    Else
                        Selection.MoveDown
                    End If
                    Selection.Text = Basename(fn)    '函数取得文件名
                    Selection.EndKey
    
                    If Selection.Start = ActiveDocument.Content.End - 1 Then  '如光标在文末
                        Selection.TypeParagraph    '在文末添加一空段
                    Else
                        Selection.MoveDown
                    End If
                Next fn
            Else
            End If
        End With
        Set myfile = Nothing
    End Sub
    
    Function Basename(FullPath)    '取得文件名
        Dim x, y
        Dim tmpstring
        tmpstring = FullPath
        x = Len(FullPath)
        For y = x To 1 Step -1
            If Mid(FullPath, y, 1) = "" Or _
               Mid(FullPath, y, 1) = ":" Or _
               Mid(FullPath, y, 1) = "/" Then
                tmpstring = Mid(FullPath, y + 1)
                Exit For
            End If
        Next
        Basename = Left(tmpstring, Len(tmpstring) - 4)
    End Function
    
  • 相关阅读:
    PHP0002:PHP基础1
    NodeJS_0001:关于install的方式
    JN_0018:运行窗口不显示
    事务、事务操作、事务隔离级别
    MySQL 常见的两种存储引擎
    8:二叉树的下一个节点
    链表
    文件压缩
    MapReduce--Shuffle原理
    volatile关键字
  • 原文地址:https://www.cnblogs.com/aozima/p/5515116.html
Copyright © 2011-2022 走看看