4

特に、各列と行の幅と高さを 0.85 cm (0.335 インチ) に設定するために、テーブルで機能するいくつかの LibreOffice マクロに取り組んでいます。

MS Office では、これは簡単です。テーブルを選択し、マクロに以下を含めるだけです。

Selection.Rows.Height = CentimetersToPoints(0.85)
Selection.Columns.PreferredWidth = CentimetersToPoints(0.85)

LibreOffice 4.1 にはこのようなものはありません。各列/行を個別に調整する必要があるようです。これを行うには 2 つの方法があります。

  1. すべての列/行を反復処理し、各列/行を調整します

  2. 最初の列/行を慎重に計算された広い幅/高さに調整してから、 Distribute Columns/Rows Evenlyを呼び出します

コードの概要をつかむために、マクロ レコーダーを使用して、Table | テーブルのプロパティを変更し、テーブルが正常に見えるまでいじりましたが、私が行ったことのほとんどはマクロに記録されませんでした。

誰かがこのようなことをしましたか？

4

3 に答える 3

3

ついに私はこの問題の解決策を得ました...

しかし、Position プロパティの単位はまだわかりません。

Sub Main
dim tables as object
dim table as object
dim tid as integer
dim sep()

tables = ThisComponent.TextTables

for tid = 0 to tables.count - 1
    table = tables(tid)
    table.Width = 26000
    sep = table.TableColumnSeparators
    sep(0).Position = 1600
    table.TableColumnSeparators = sep
next

End Sub
于 2013-12-12T10:58:22.750 に答える