Hromadně odstranit zalomení stránky

[treperenda111]

Jak hromadně odstranit zalomení stránek v souboru? Nejde ani přiřadit klávesová zkratka. Možnost hromadného odstranění není v nabídce.

[KamilLanda]

Zkuste makro

Sub odstranitZalomeniStranky 'odstraní všechna Zalomení Stránky
	dim oDoc as object, oEnum as object, o as object
	oDoc=ThisComponent
	oEnum=oDoc.Text.createEnumeration()
	while oEnum.hasMoreElements() 'procházet elementy v dokumentu
		o=oEnum.nextElement()
		if o.supportsService("com.sun.star.text.Paragraph") then 'odstavec
			o.BreakType=0 'odstranit Zalomení
		elseif o.supportsService("com.sun.star.text.TextTable") then 'tabulka
			o.BreakType=0 'odstranit Zalomení
		end if
	wend
End Sub

[treperenda111]

Mockrát děkuji. Makra jsou pro mne velká neznámá a sama bych ho nevytvořila. Domnívala jsem se, že jen nemohu dohledat příkaz nebo klávesovou zkratku.