将image控件换成了word里面的自带的矩形形状了。
- Sub chaifen()
- Dim DocApp As Object, Mydoc As Object, sht As Worksheet
- Dim tb As Object, myname As String, i As Integer
- Set DocApp = CreateObject("Word.application")
- Application.ScreenUpdating = False
- Set Mydoc = DocApp.Documents.Open(ThisWorkbook.Path & "\模板.doc")
- Set sht = Sheets("File")
- arr = sht.Range("A2:BY" & sht.Cells(Rows.Count, 1).End(3).Row)
- Set tb = Mydoc.Tables(1)
- With tb
- For i = 1 To UBound(arr)
- myname = ThisWorkbook.Path & "" & arr(i, 3) & ".doc"
- If Dir(myname) <> "" Then Kill myname
- .Cell(1, 2).Range.Text = arr(i, 3)
- .Cell(1, 4).Range.Text = arr(i, 7)
- .Cell(1, 6).Range.Text = arr(i, 8)
- .Cell(2, 2).Range.Text = arr(i, 56)
- .Cell(2, 4).Range.Text = arr(i, 57)
- .Cell(2, 6).Range.Text = arr(i, 36)
- .Cell(3, 2).Range.Text = arr(i, 41)
- .Cell(3, 4).Range.Text = arr(i, 14)
- Mydoc.Shapes(1).Fill.UserPicture ThisWorkbook.Path & "\照片包" & arr(i, 3) & ".jpg"
- Mydoc.SaveAs2 myname, 0
- Next
- .Parent.Close 0
- End With
- DocApp.Quit
- Application.ScreenUpdating = True
- Set DocApp = Nothing
- Set Mydoc = Nothing
- Set sht = Nothing
- Set tb = Nothing
- End Sub
复制代码
VBA批量生成审批表.rar
(67.59 KB, 下载次数: 83)
|