Wordで作成された様式を、1ページに収めて印刷したい

hidemune · December 16, 2024, 1:25am

Wordで作成された様式を、1ページに収めて印刷したいです。

添付のファイルは、Wordであれば1ページに収まるのですが
Writerだと2ページに別れてしまいます。

目黒さん作の、Gyokan＜行間＞ではうまく調整できませんでした。
こちらのバージョンアップに必要な知識をご教示いただけると
光明が見えてきそうな気もします。

その他、解決策やヒントを頂けましたら幸いです。

nobu · December 16, 2024, 2:16am

回答者の手間を少し省くため、
たぶん、元のファイルと同等のものがある場所は
https://www.keishicho.metro.tokyo.lg.jp/tetsuzuki/kotsu/application/shiyo_kyoka.html

印刷イメージは

のような感じにしたいんだと思います。

hidemune · December 16, 2024, 7:46am

自己解決しました。

ExtensionCenterで
Gyokan.oxtを入手して、
以下のような修正をしたら表の行間も調整可能になった気がします。

とりあえずWordは買わなくて済みそうです。

※ 目黒さんよかったらバージョンアップお願いします！

Sub SetPara(Ritsu)
On Error Goto ErrorHandler
Dim oEnum
Dim oPar
Dim nPars As Integer
oEnum = ThisComponent.Text.createEnumeration()
Do While oEnum.hasMoreElements()
oPar = oEnum.nextElement()
Spacing = oPar.ParaTopMargin
v = oPar.ParaLineSpacing
if Ritsu = “n” then
v.Height = v.Height * 1.1
else
v.Height = v.Height / 1.1
end if
oPar.ParaLineSpacing = v
ErrorHandler:

Loop

ResizeTableRowHeights(Ritsu)

End Sub

Sub ResizeTableRowHeights(Ritsu)
Dim oDoc As Object
Dim oTables As Object
Dim oTable As Object
Dim oRows As Object
Dim i As Integer
Dim rowHeight As Long
rowHeight = 2000

oDoc = ThisComponent
oTables = oDoc.TextTables

If oTables.Count = 0 Then
    Exit Sub
End If

For Each oTable In oTables
    oRows = oTable.Rows

    For i = 0 To oRows.Count - 1
    	if Ritsu = "n" then
          oRows(i).Height = oRows(i).Height * 1.1
  	else
          oRows(i).Height = oRows(i).Height / 1.1
      endif
        oRows(i).IsAutoHeight = False
    Next
Next
End Sub

jun_meguro · December 16, 2024, 12:19pm

パッチの提供ありがとうございます。
拡張機能サイトに申請しましたので公開されるまでしばらくお待ちください。