當前位置：首頁 > 科技 > 正文

【代工案例001】Word VBA批量插入圖片

▎具體需求

手裡面有上千個文件夾，每個文件夾裡面包含2張照片，我們需要把這些圖片插入到word文檔的表格中。每3個文件夾作為一頁。

文件夾示意


文件夾内部圖片

最終效果

▎思路分析

首先需要獲取文件夾的個數，根據文件夾個數确定一下word文檔的表格總行數。接着插入空的表格，向表格裡面寫内容，并且插入圖片。

▎源代碼

實現功能的源代碼在下方，由于文件隐私，不再推送原始附件。可以從下面的源代碼中獲取思路。

Sub 執行() If ActiveDocument.Tables.Count = 1 Then '删除上次數據 ActiveDocument.Tables(1).Delete End If '//獲取文件夾，存入數組 Dim kr() Set fso = CreateObject("scripting.filesystemobject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then PathSht = .SelectedItems(1) Else Exit Sub End With Set f_num = fso.getfolder(PathSht) For Each fl In f_num.subfolders i = i + 1 ReDim Preserve kr(1 To i) kr(i) = fl.Path Next '//開始新建表格 tbl_rowcount = UBound(kr) + Int(UBound(kr) / 3) + 1 Dim tbl As Table Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=tbl_rowcount, NumColumns:=4) '新建表格 tbl.Style = "網格型" Set tbl = ActiveDocument.Tables(1) tbl.Columns(1).Width = 1.27 * 28.35 '設置表格各列的列寬 tbl.Columns(2).Width = 2.13 * 28.35 tbl.Columns(3).Width = 3.3 * 28.35 tbl.Columns(4).Width = 11.58 * 28.35 tbl.Rows.Alignment = wdAlignRowCenter '居中對齊 tbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter '文字垂直居中 '//開始插入圖片 For i = 1 To tbl_rowcount '對Word中的表格中的行進行循環。 If i Mod 4 = 1 Then '當表格的行号除以4的餘數是1的時候，就是标題行。 tbl.Rows(i).Range.Font.Bold = True '字體加粗 tbl.Cell(i, 1).Range.Text = "序号" tbl.Cell(i, 2).Range.Text = "發布形式" tbl.Cell(i, 3).Range.Text = "線路/車牌号" tbl.Cell(i, 4).Range.Text = "驗收照片" tbl.Rows(i).Height = 1.9 * 28.35 '設置标題行行高 Else p = p + 1 fod_index = fod_index + 1 tbl.Cell(i, 1).Range.Text = p tbl.Cell(i, 2).Range.Text = "司機背闆" srr = Split(kr(fod_index), "\") tbl.Cell(i, 3).Range.Text = srr(UBound(srr)) tbl.Rows(i).Height = 6.4 * 28.35 Dim shp As InlineShape pic = Dir(kr(fod_index) & "\*.JPG") tbl.Cell(i, 4).Range.Select Do While pic <> "" 'Do While循環插入圖片 Set shp = Selection.Range.InlineShapes.AddPicture(FileName:=kr(fod_index) & "\" & pic) shp.Height = 6 * 28.35 shp.Width = (10 / 2) * 28.35 pic = Dir tbl.Cell(i, 4).Range.Select '選中該單元格，為了下一步光标定位到單元格内部 Selection.EndKey wdLine Selection.TypeText " " '設置圖片間隔 Loop End If Next MsgBox "完成！"End Sub


Function getfol()'該函數的作用：彈出對話框提示用戶選擇文件夾，并且返回該文件夾路徑。'如果用戶選擇了取消，則返回空值 Dim PathSht As String With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then PathSht = .SelectedItems(1) Else PathSht = "" Exit Function End With getfol = PathSht & IIf(Right(PathSht, 1) = "\", "", "\")End Function

▎知識點

  • 獲取子文件夾

    利用FSO對象，獲取子文件夾，這個代碼很常用。

Set fso = CreateObject("scripting.filesystemobject")Setf_num=fso.getfolder(PathSht)ForEachflInf_num.subfoldersmsgboxfl.nameNext

  • Word VBA新建表格

Word VBA中很大一部分代碼，都可以通過錄制宏獲取。比如下方的代碼。

Sub Add_table()'新建一個3行4列的表格 Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=4) tbl.Style = "網格型"End Sub

  • Word中的單位

    行高列寬默認是磅。如果是厘米，需要轉化一下。轉化關系如下：

    1磅約等于0.03527厘米,1厘米約等于28.35磅。

你可能想看：

批量将圖片插入到Excel中，且自動調整圖片大小以适應單元格的大小！

如何将一個文件夾内所有的圖片批量插入到Excel工作表的B列中，并且圖片可以自動适應單元格的大小，現在我們想要将文件内的圖片按照從左向右的先後順序批量插入到Excel工作表的B列中，并且每一張圖片自動...

文章中插入圖片，圖文混排的簡明操作

調整圖文環繞方式，插入圖片步驟，将插入光标移至文章需插入圖片位置，插入圖片，在對話框中選取所需圖片。或直接雙擊圖片“改變圖片大小步驟。圖片四周出現8個控制點，将光标移動到任一控制點，光标則變為雙箭頭形...

文字中如何插入圖片

我們在使用WPS文字辦公時常常遇到需要在文檔中插入圖片的情況，那麼如何在文檔中插入圖片和設置圖片呢。在彈窗中可以選擇本地圖片、網絡圖片、掃描儀、手機傳圖等。選擇圖片路徑并插入圖片圖片就插入到文檔中了在...

Word技巧使用大全，原來Word還有這些功能，太好用了吧

在圖片工具的格式界面中點擊[删除背景]。在背景消除界面中利用方框選中圖片，二、将圖片裁剪為形狀 将圖片插入到Word中，在圖片工具的格式界面裡，然後在彈出頁面中選擇一種形狀就可以了。點擊菜單欄中的[屏...

word操作技巧問答集錦：輸入對号方框、名單聚在一張、批量删除漢字、制作作文紙

我們點擊【插入】選項卡，找到帶方框的對号，點擊【插入】按鈕。為這個符号設置一個快捷鍵，可以使用查找替換法、表格法……不過最簡單的還是分欄法。點擊【布局】選項卡，然後點擊【分欄】-【更多分欄】，最後點擊...

神奇的VBA系列-003：報表插入空白行

下面介紹的是一個職場中經常使用的功能，代碼示例在标準模塊中加入如下代碼即可實現上面的演示功能。OnErrorResumeNext;Forn=Range("B65536").End(3).RowTo2S...

Word文檔中如何快速統一圖片大小

很多時候我們也都經常會在文章中插入想要的圖片進行解釋說明，會截取相關圖片做演示，又該如何統一文檔中圖片的大小呢，　　2、在【選項】彈出的對話框中。并在右側菜單欄中的【插入類型】修改為【四周型】，　　3...

僅利用Word編輯圖片？效果很是驚豔，分享6個編輯小技巧

其實我們隻需要插入圖片，點擊頁面中的删除背景就可以在背景消除界面中摳圖了。可以看看下圖中的摳圖效果，二、調整顔色 我們在圖片工具界面中可以看到一個顔色選項，我們可以點擊其他變體修改圖片色調，三、三維旋...

VBA常用小代碼102：批量合并相同值單元格

我們今天分享的VBA小代碼内容是批量合并相同值的單列單元格，需要将相同的班級單元格修改為合并單元格……：'用戶選擇數據列，'intersect語句避免用戶選擇整列造成無謂運算,Application....

華工案對賭糾紛3大争議焦點，再審判決并未給出完美答案

《會議紀要》首次提出了對賭協議的效力及對賭糾紛的審判指導規則。就《對賭協議》在交易安排中的角色及其與公司章程的關系、《對賭協議》原則有效的原因、《公司法》第142條的理解與适用、投資人在交易中的身份轉...

PS日常實用小技巧：3秒批量修改圖片尺寸

今天的【PS日常使用小技巧】課堂，和大家分享的是——照片尺寸的批量處理方法！當你想要把圖片發布到朋友圈的時候，領取更多免費視頻教程↑。把圖片導入PS中，在PS軟件中“依次勾選或填入下面的内容！PS會根...

如何用photoshop批量處理圖片大小

打開一張你要處理的圖片，另存完後關掉圖片。文件－自動－批處理在彈出的對話框中要選填的選項有，選擇你要處理的圖片所在的文件夾覆蓋動作……包含子文件夾……禁止顔色配置警告這三個都勾選上目的，這個動作隻能讓...

Word批注妙用，給文章加注釋，既方便實用又不影響排版

批注内容默認顯示在文檔的右側。先用鼠标選中要添加批注的文字。然後再點擊【新建批注】即可：即可為選中的文字新建批注：選中要添加批注的文字，再點擊【新建批注】。也可以為選中的文字新建批注：點擊【新建批注】...

用了這麼多年電腦，總結出10個最實用Word技巧！用了就戒不掉！

當我們插入Word文檔裡的圖片大小不一時。想要導出Word裡的圖片，其實隻需要把文件改個後綴名就可以一次性提取全部的圖片，将鼠标定位在需要選擇的格式文本中，然後點擊【開始】—【編輯】—【選擇】—【選擇...

超良心！這個資源網站，所有PPT、Word簡曆模闆都可以免費下載！

辦公資源網不需要注冊會員！就可以免費下載模闆了！人人都可以免費下載，以下模闆統統免費下載！30000+原創精品PPT模闆，總之網站上的所有模闆資源都可以免費下載：如何免費下載，1.電腦端打開辦公資源網...

這3個PPT、PDF、Word互相轉換的方法，99%的人都不知道！太實用了！

經常遊走于PPT、Word和PDF之間還不夠，PPT、Word互轉！隻需點擊【文件】-【導出】-【創建講義】-【隻使用大綱】- 然後就轉成Word了，之後保存Word文檔即可，點擊【開始】-【新建幻燈...

2021中考數學必會的57個易錯點(140頁word)

解方程組即可求得交點坐标，(2)由三角函數定義求出BF=4/3CF=8，得出∠BAF=∠DAF即可.

三角形知識大全：八大專題（48頁word）

利用等量相加和相等可得∠ABC=∠ACB，可證Rt△BME≌Rt△CNE，可得∠ABE=∠ACE.，證明Rt△BME≌Rt△CNE是本題的關鍵.，先證明△BDC≌△AEC得出∠CBD=∠CAE，【解析...

word分段編碼的小技巧

word文檔(2003版)任意分段編碼，一、不留空白頁的分段編碼：用拖黑的辦法删除新出現的空白行。即需要重新編頁碼的起始頁，二、需留空白頁的分段編碼：增加空白頁的處理“删除新出現的空白行，2.光标移到...

在Word中畫直線的操作

打開Word。單擊畫面右上方“在出現的菜單中選擇，工具“在右側出現的菜單中選擇，繪圖“則在文檔下方會出現繪圖工具欄，在繪圖工具欄中，點擊，直線“不管橫線·豎線·斜線就都可以畫了”在出現的。按住鼠标左鍵...

辦公小技巧：神奇高效 Word文檔中的“安全模式”

我們選擇文本時用鼠标一劃即可搞定，表示已經開啟了擴展選擇模式，2. 如何按需選擇不同内容 當按下F8進入擴展選擇模式後。若再按Shift+F8則變為選擇當前光标所在的段落（相當于連續按下4次F8的效果...

壬竅全手打成word版

貴人後空白常元陰後六位為靜，而陰神助之愈吉，制之則其吉不終。陽神兇，而陰神助之愈兇，制之則其兇自散。正時上所得天官為值事門，則亦非我宅中事。若墓之遁幹木旺，辰戌醜未皆土也，戌中有金火，未中有木火，辰之...

最全的word使用方法

然後打開替換對話框“批量轉換全角字符為半角字符 首先全選“3、單擊格式刷按鈕。若在第3步中單擊改為雙擊。直到再次單擊格式刷(或按Esc鍵)為止，方法如下 1. 在Word文檔中輸入。右鍵單擊輸入法狀态...

如何讓Word快速轉化為PPT演示文稿(2圖)

如何讓Word快速轉化為PPT演示文稿 要把一篇長的Word文檔搬運到PPT演示文稿，如果你趕時間而且是要手動一段段文本的複制粘貼，其實有個簡單的辦法可以讓你很快的完成這個工作的。步驟或方法[編輯本段...

Word中的萬能鍵，用好效率提升200%！

要說Word中哪個快捷鍵十項全能，word裡插入圖片形狀至少需要三步，Word表格中的計算雖然也可以通過函數完成但無法使用Excel的自動向下填充功能其他空單元格按F4也能快速計算

建議收藏！一定要會的15個Word神操作，讓你效率提升10倍不止！

在Word中F4 鍵的功能是重複上一步操作，全選标題右擊，有時候需要拆分表格。接着鼠标點擊文本前8.快速給文本加下劃線選擇需要加下劃線的文本即可給文本加下劃線

三角形的高線、中線、角平分線、内外角和等應用剖析（61頁word）

三角形的高線、中線、角平分線、内外角和等應用剖析：從三角形的一個頂點向它的對邊所在直線作垂線。頂點和垂足之間的線段叫做三角形這邊上的高，3.三角形高的交點位置，銳角三角形的三條高的交點在三角形的内部。...

表格圖片'文件夾kr

上一篇
名家山水畫《青綠山水》

下一篇
關于企業内部個人承包中保險待遇問題的複函 (勞險字[1992]27号)

有話要說...

最新文章

取消
掃碼支持 支付碼