1

2 列のテーブルを作成するマクロがあります。テキストを中央揃えにしたい。

Microsoft Word 以外の特定のツールで複雑なマクロを編集しているため、これを行うための実際の機能/方法を知る必要があります (つまり、記録されていません)。

Function TableStyleApply(oTable)
  Const wdLineWidth050pt = 4
  Const wdLineStyleSingle = 1
  Const wdBorderTop = -1
  Const wdBorderLeft = -2
  Const wdBorderBottom = -3
  Const wdBorderRight = -4
  Const wdBorderHorizontal = -5
  Const wdBorderVertical = -6
  Const wdAlignParagraphCenter = 100

  oTable.Borders(wdBorderTop ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderLeft ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderBottom ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderRight ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderVertical).LineStyle = wdLineStyleSingle

  oTable.Rows(1).Range.Font.Bold = True
  oTable.Rows(1).Shading.BackgroundPatternColor = 15132390
  oTable.Rows.LeftIndent = 43
  oTable.Columns(1).SetWidth 280, 2
  oTable.Columns(2).SetWidth 157, 2

  oTable.Columns.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Function
4

2 に答える 2

4

テキストを中央に揃えるには、Range オブジェクトを参照する必要があります。したがって、このオプションを試してください

テーブル全体

oTable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

任意の 1 列(ここでは 1 列目と 2 列目)

oTable.Columns(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

oTable.Columns(2).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
于 2013-10-21T13:04:17.100 に答える