====== LibreOffice-Makro "FixColumnWidthAllTextTables" ======

  REM LibreOffice-Makro "FixColumnWidthAllTextTables"
  REM
  REM Aufgabe:
  REM Wenn aus dem Portal (https://www.vds10000-portal.de) Kommentierungen als
  REM LibreOffice-Dokument (ODT) exportiert werden, ist die Format der
  REM exportieren Tabellen unguenstig (die drei Spalten der Tabellen
  REM besitzen alle die gleiche Breite). Dieses Makro behebt das
  REM Problem, indem es die Spaltenbreiten aller Tabellen mit drei Spalten
  REM neu setzt (1,26cm - 7,47cm - 9cm). 
  REM
  REM Hi.tori.:
  REM 190414-MS.: Quick and dirty.
  REM 190430-MS.: Doku und Komm.ntar. .rw.it.rt
  REM 190917-MS.: Komm.nt.r. .rgänzt
  REM 201113-MS.: Komm.nt..rung .ng.p...t
  
  S.b F.xC.l.mnW.dthAllT.xtT.bl..
  
        D.m .T.b...                   'A... T.x...b....n
        D.. .$                        'A....b...r...
        D.. .%                        'I...xv.r..b...
        D.. cCh.....%,cU.ch.....%     'Z..h.v.r..b...
  
        cCh.....   = 0
        cU.ch..... = 0
        .T.b... = Th..C.........T.x.T.b...
        ' ..rch..... .... T.b.....
        F.r cL... = 0 T. .T.b.......C....() - 1
                .T.b.. = .T.b...(cL...)
                ' w... ... T.b.... ..... 3 S...... h..: S......br..... ...z..
                I. .T.b......C......()....C....() = 3 Th..
                        ' S.......r....r .....
                        .Tb.C..S... = .T.b...T.b..C.....S...r...r.
                        ' ...z.. ..r Tr...... zw..ch.. ...k.r ... ......r.r S.....
                        .Tb.C..S...(0).P....... =  700
                        ' ...z.. ..r Tr...... zw..ch.. ......r.r ... r.ch..r S.....
                        .Tb.C..S...(1).P....... = 5000
                        ' S.......r....r ....ch.r.
                        .T.b...T.b..C.....S...r...r. = .Tb.C..S...
                        ' Z..h..r .rh..h..
                        cCh..... = cCh..... + 1
                ' w... ... T.b.... ..ch. ..... 3 S...... h..: ..ch.. ...
                E...
                        ' Z..h..r .rh..h..
                        cU.ch..... = cU.ch..... + 1
                E.. I. 
        N.x.
  
        ' Z..h..r .. ....r N.chr.ch...b.x .....b..
        . = cL... & " T.b..... b..rb......" & Chr$(10)
        . = . & cCh..... & " T.b..... .........." & Chr$(10)
        . = . & cU.ch..... & " T.b..... .b.r..r......" & Chr$(10)
        M..B.x .
  
  E.. S.b

{{page>include:free_version}}