すべてのカテゴリ

Option Explicit Option Base 0 ' '【メモ】ツール(T)>参照設定(R）に '　　　　Microsoft OneNote xx.x Object　Labrary ' Microsoft XML vx.x ' のライブラリーにチェックを入れる。 ' '*スリープＡＰＩ Private Declare PtrSafe Sub Sleep Lib "KERNEL32.dll" (ByVal dwMillisconds As Long) ' ' Public Sub OneNoteページ追加サンプルマクロ()     Dim objExec As Object, appOne As OneNote.Application     Dim strSecI As String, strHie As String     Dim domDocu As DOMDocument60, objElem As Object     Dim intPgCn As Integer     Dim strPgId As String, strPage As String     'OneNoteプログラム起動     Set objExec = CreateObject("WScript.Shell").Exec("ONENOTE.EXE")     Sleep (1500)     '     'OneNoteオブジェクト設定     Set appOne = VBA.CreateObject("OneNote.Application")