2,462
社区成员
发帖
与我相关
我的任务
分享
?"begin...";: _
Set fs = CreateObject("Scripting.FileSystemObject"): _
Set a = fs.CreateTextFile("c:\alltext.txt", True): _
for each page in ThisDocument.Pages: _
a.WriteLine("----页:"+page.name+"----"): _
for each shape in page.Shapes: _
a.WriteLine(shape.Text): _
next: _
next: _
a.Close: _
Set a=Nothing: _
Set fs=Nothing: _
?"end"
Sub aaaaaaaa()
Dim i%, s1$, s2$, strTemp1$, strTemp2$
For i = 1 To ActiveSheet.UsedRange.Rows.Count
strTemp1 = ActiveSheet.UsedRange.Range("F" & i)
strTemp2 = ActiveSheet.UsedRange.Range("M" & i)
If strTemp1 <> "" Then s1 = s1 & strTemp1 & vbCrLf
If strTemp2 <> "" Then s2 = s2 & strTemp2 & vbCrLf
Next
Open "c:\1.bat" For Output As #1
Print #1, s1 & s2
Close #1
End Sub