uj5u.com熱心網友回復:
僅供參考: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: _
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/45221.html
標籤:VBA
