サンプルコードでできること インデントを解除します。 Sub インデントなしに設定() With Selection.ParagraphFormat .CharacterUnitLeftIndent = 0 .CharacterUnitFirstLineIndent = 0 .LeftIndent = 0 .FirstLineIndent = 0 End With End Sub コードの説明…

インデント設定は、単位によってコード記述に違いがあります。くり返しコードを修正しても、思いどおりに動作せず混乱しました。ようやく理解しても、すぐに忘れるため、設定の基本を残しておこうと思います。 サンプルコードでできること ○字単位、mm単位で…

サンプルコードでできること インデントの単位○字をmmかptに変更します。変更される単位はオプションの設定によります。次のような単位が不揃いの時に使用します。 Sub インデントの単位_mmやptに変換() Dim para As Paragraph For Each para In Selection.P…

選択した2つのセルを処理するとき、次のコードを使用します。 Selection.Cells 次のコードは、Selectionの後にRangeが入ります。Selection.Cellsと同じと思っていたら、2列目の1行目のセルも含まれるようです。 Selection.Range.Cells セル数を確認すると、2…

サンプルコードでできること 選択した段落の段落番号の後にタブを挿入します（処理対象は自動番号ではなく、テキストの番号）。スペースが挿入されている場合は削除して、代わりにタブを挿入します。下記の番号の種類を段落番号と判定しています。 （数字の…

サンプルコードでできること カーソルの位置にタブを追加します。 ルーラーのタブボタンから、タブの種類の選択なしでタブを追加できます。 Sub 左タブを追加() AddTab wdAlignTabLeft End Sub Sub 右タブ追加() AddTab wdAlignTabRight End Sub Sub 中央タ…