|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Option Explicit
Sub test()
Dim inLineShp As InlineShape, n&, k&
Application.ScreenUpdating = False
With ActiveDocument
With .Tables(1)
For k = 2 To .Rows.Count
For Each inLineShp In .Cell(k, 4).Range.InlineShapes
If Not inLineShp.OLEFormat Is Nothing Then
If inLineShp.OLEFormat.Object.Value = True Then
n = n + Left(.Cell(k, 3).Range.Text, Len(.Cell(k, 3).Range.Text) - 2)
End If
End If
Next
Next k
End With
End With
MsgBox n
Application.ScreenUpdating = True
Beep
End Sub
|
评分
-
1
查看全部评分
-
|