CodePudding user response:
Fyi: Set fs=CreateObject (" Scripting. FileSystemObject ") : _
Set a=fs. CreateTextFile (" c: \ alltext TXT ", True) : _
For each page in ThisDocument. Pages: _
Aleem walji riteLine (" page - : "+ page. The name +" - ") : _
For each shape in page. Shapes: _
Aleem walji riteLine (shape. The Text) : _
Next: _
Next: _
A.C lose: _
Set a=Nothing: _
Set the fs=Nothing: _