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
    
  • 相关阅读:
    select,radio,checkBox,获取/设置选中项的值和文本
    前端自学习网站
    ECMAScript 6
    常见几种浏览器兼容性问题
    HTML+CSS
    高级程序设计JavaScript
    年龄显示0.5岁
    编译原理
    underscore.js常用的API
    python中的字符串
  • 原文地址:https://www.cnblogs.com/aozima/p/5515116.html
Copyright © 2011-2022 走看看