[[20220629194441]]　『余談マクロ記録』（nm）　ページの最後に飛ぶ

『余談マクロ記録』（nm）

 マクロ記録でIF文は記録されませんよね。
 ところがWord2013で印刷の向きを記録したところ
 何とIF文が記録されていました。
 他の操作も記録してみましたが今のところこの件だけでした。
 以下がそのコードです。
 Sub Macro1()
 '
 ' Macro1 Macro
 '
 '
   If Selection.PageSetup.Orientation = wdOrientPortrait Then
      Selection.PageSetup.Orientation = wdOrientLandscape
   Else
      Selection.PageSetup.Orientation = wdOrientPortrait
   End If
 End Sub
 余談マクロ記録でした。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 word2010で[ページ設定]ダイアログ開いてOKで閉じたら↓これが記録されました。

    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        ・
        ・
     ～ 略 ～

（白茶） 2022/06/30(木) 10:01

コメント返信：

[ 一覧(最新更新順) ]

[[20220629194441]] 『余談マクロ記録』（nm） ページの最後に飛ぶ

[[20220629194441]]　『余談マクロ記録』（nm）　ページの最後に飛ぶ