[已解决]感谢爱疯版主，问题已经解决。

爱疯

eliterwholly 发表于 2011-9-6 14:26
我也是03版：连续执行了三次，任务栏分别显示文档1、2、3、然后都结束了，可惜就是提取不了。

我看到版 ...

1. 
   
2. Sub test()    '将本document的所有shape对象中的文本，另存到文件夹abc中
   
3.     Dim doc As Document
   
4.     Dim shp As Shape
   
5.     Dim arr(1 To 9999) As String
   
6.     Dim i
   
7.     Dim p As String
   
8.     Dim n As String
   
9. 
   
10.     Application.ScreenUpdating = False
    
11.     Set doc = ThisDocument
    
12.     p = doc.Path & Application.PathSeparator
    
13.     n = "(副本)" & doc.Name    '重命名
    
14.     For Each shp In doc.Shapes
    
15.         i = i + 1
    
16.         arr(i) = shp.AlternativeText
    
17.     Next shp
    
18.     Set doc = Nothing
    
19. 
    
20.     Documents.Add
    
21.     For i = 1 To UBound(arr)
    
22.         Selection = arr(i)
    
23.         Selection.EndKey Unit:=wdStory
    
24.     Next i   
    
25.     If Dir(p & "\abc") = "" Then MkDir p & "\abc"
    
26.     With ActiveDocument
    
27.         .SaveAs p & "\abc" & n
    
28.         .Close
    
29.     End With
    
30. End Sub
    
31. 
    

复制代码

word 宏求解002——测试用d.rar (7.54 KB, 下载次数: 27)

2011-9-6 14:32 上传

点击文件名下载附件

eliterwholly

感谢爱疯版主，问题已经解决。

爱疯

我是依次安装了03,07,10
附件是1楼的，而生成的新文档，是在word2003内运行过程产生（abc文件下的副本....）。

eliterwholly

感谢爱疯版主，问题已经解决。

eliterwholly

感谢爱疯版主，问题已经解决。

eliterwholly

感谢爱疯版主，问题已经解决。

eliterwholly

感谢爱疯版主，问题已经解决。