Hoi allemaal, In een werkblad wil ik in 2 kolommen, in niet opeenvolgende rijen, cellen samenvoegen. De rijen die er tussen liggen zijn niet van belang. Dat zijn er niet zoveel en onnuttige informatie is eenvoudig handmatig te verwijderen. Beide kolommen selecteren en samenvoegen zorgt er voor dat alles samengevoegd wordt: denkfout. Dus een macro opgenomen: cel geselecteerd, shift-rechts, cel toegevoegd, rechter muisknop cellen samenvoegen, pijl omlaag om naar de rij eronder te gaan. Dit gaat eenmalig goed. Bij uitvoeren van de macro komt de melding dat reeds samengevoegde niet meer samen gevoegd kunnen worden. Code van de macro bekeken: cellen staan absoluut gedefinieerd.
rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = *"$F$18:$G$18"* dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "MoveContents" args2(0).Value = true dispatcher.executeDispatch(document, ".uno:MergeCells", "", 0, args2()) rem ---------------------------------------------------------------------- dim args3(1) as new com.sun.star.beans.PropertyValue args3(0).Name = "By" args3(0).Value = 1 args3(1).Name = "Sel" args3(1).Value = false Mhhh, hoe kan ik relatief maken t.o.v. huidige positie ? Iemand een idee, of een macro die dat al kan ? Bij voorbaat dank, René. -- Unsubscribe instructions: E-mail to [email protected] Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette List archive: https://listarchives.libreoffice.org/nl/users/ Privacy Policy: https://www.documentfoundation.org/privacy
