REM ***** BASIC ***** Sub MacroE1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ę", false) End Sub Sub MacroO1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ó", false) End Sub Sub MacroA1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ą", false) End Sub Sub MacroS1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ś", false) End Sub Sub MacroL1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ł", false) End Sub Sub MacroZ1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ż", false) End Sub Sub MacroX1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ź", false) End Sub Sub MacroC1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ć", false) End Sub Sub MacroN1 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "ń", false) End Sub Sub MacroE2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ę", false) End Sub Sub MacroO2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ó", false) End Sub Sub MacroA2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ą", false) End Sub Sub MacroS2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ś", false) End Sub Sub MacroL2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ł", false) End Sub Sub MacroZ2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ż", false) End Sub Sub MacroX2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ź", false) End Sub Sub MacroC2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ć", false) End Sub Sub MacroN2 Dim oDoc as variant oDoc = ThisComponent Dim oCurrentController as variant oCurrentController = oDoc.getCurrentController() Dim oTextViewCursor as variant oTextViewCursor = oCurrentController.getViewCursor() Dim oText as variant oText = oDoc.getText() oText.insertString(oTextViewCursor, "Ń", false) End Sub