Macro to select all Annotations and dimensions in current sheet

I am looking for 2 macros.

1. Macro to select all annotations in current sheet and change font size to 2.5mm

2. Macro to select all dimensions in current sheet and change font sizr to 2.5mm.

Thank you

SolidworksApi macros