[求助]如何统计word内的图形个数？等回复

yourcells · 发表于 2006-5-24 21:20

我有一个word文档，里面有visio做的图和.tif图，这两种图都是粘贴进去的，我想分别查出文档中两种图的个数，哪怕是两种图总数也可以啊。请大侠不吝赐教。文件在此，请指教。

OaHSIxrY.rar (191.78 KB, 下载次数: 8)

[此贴子已经被作者于2006-5-24 21:48:19编辑过]

konggs · 发表于 2006-5-24 21:28

看不到文档不好判断啊。不知是嵌入型还是紧密型的或是别的？

yourcells · 发表于 2006-5-24 21:48

我已经把文件加上了，请帮忙看看。谢谢！

konggs · 发表于 2006-5-24 21:56

下了，匆忙做了一下。

yourcells · 发表于 2006-5-24 22:03

没十分看懂，我先试试。先谢过。您使用查找的功能？不行再讨教您，多谢！

yourcells · 发表于 2006-5-24 22:06

成功！

能否用vba代码实现这段功能呢？我有很多这样的文件需要统计个数。打开多个文件的方法我会，但是不知道如何用vba代码实现您的功能。

yourcells · 发表于 2006-5-24 22:29

搞定了！把msgbox换成输入语句就可以统计出来了！

Sub test()
Dim MyText As String
Dim Tim As Integer, Total As Integer
MyText = "^g"
Total = 0
Tim = 0
With ActiveDocument.Content.Find
Do While .Execute(FindText:=MyText) = True
Tim = Tim + 1
Loop
Total = Total + Tim
End With
MsgBox Total
End Sub

yourcells · 发表于 2006-5-24 22:30

十分感谢您的帮助，要是没有您的帮助，还想不到这个方法呢！

yourcells · 发表于 2006-5-24 22:59

补充一点：

For i = 1 To .FoundFiles.Count
Tim = 0
Documents.Open .FoundFiles(i)
With ActiveDocument.Content.Find
Do While .Execute(FindText:=MyText) = True
Tim = Tim + 1
Loop
Total = Total + Tim
End With
MsgBox Tim
ActiveDocument.Close wdDoNotSaveChanges
'MsgBox Total
Next i

		自动登录	找回密码
密码			免费注册