Script for removing all the images from a PDF

[pleaseplease11q]

I am on linux mint 21.
I am useing the code:

Code: Select all

Sub DeleteAllPics()
Dim oDoc As Object
Dim oDrawPage As Object
Dim oShape As Object
Dim iShape As Integer
Dim iSheet As Integer
oDoc = ThisComponent
For iSheet = 0 To oDoc.getSheets().getCount() - 1
oDrawPage = oDoc.getSheets().getByIndex(iSheet).getDrawPage()
For iShape = oDrawPage.getCount() - 1 To 0 Step -1
oShape = oDrawPage.getByIndex(i)
oDrawPage.remove(oShape)
Next iShape
Next iSheet
End Sub

From the post https://ask.libreoffice.org/t/writer-ho ... nt/14649/4. But when I try to run it, I get the error message:

BASIC runtime error.

Property or method not found: getSheets.

I looked at this post https://ask.libreoffice.org/t/missing-p ... s/77912/11, but I did not know how to interpret it.

[robleyd]

Also posted at https://www.reddit.com/r/libreoffice/co ... rom_a_pdf/

[pleaseplease11q]

That was my post. I just did not get the answers i needed.

[Zizi64]

Property or method not found: getSheets.

A Draw document has not any Sheets.

Please study Andrew Pitonyak's free macro books.
https://www.pitonyak.org/oo.php

You need some similar thing:

Code: Select all

	oDrawDoc = Thiscomponent
	oPages = oDrawDoc.GetDrawPages()
	
	iPageCount = oPages.GetCount() 
	For i = 0 to iPageCount-1
		oDrawPage = oDrawDoc.DrawPages(i)