Sub しおりが見えるモード() 'http://pdf-file.nnn2.com/?p=105 Dim objAcrobatPDDoc As New Acrobat.AcroPDDoc Dim lRet As Long Dim lSetPageMode As Long Dim lGetPageMode As Long Const CON_FILE As String = "C:\ほげほげ.pdf" lRet = objAcrobatPDDoc.Open(CON_FILE) lGetPageMode = objAcrobatPDDoc.GetPageMode() Debug.Print "GetPageMode()=" & lGetPageMode lSetPageMode = 3 'しおりパネルとページ lRet = objAcrobatPDDoc.SetPageMode(lSetPageMode) lRet = objAcrobatPDDoc.Save(1, CON_FILE) lRet = objAcrobatPDDoc.Close Set objAcrobatPDDoc = Nothing End Sub