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

include:free_version