diff --git a/BulkExportOneNotePagesHTML.ps1 b/BulkExportOneNotePagesHTML.ps1
new file mode 100644
index 0000000..47c67f9
--- /dev/null
+++ b/BulkExportOneNotePagesHTML.ps1
@@ -0,0 +1,90 @@
+<#
+
+Original script from https://passbe.com/2019/bulk-export-onenote-2013-2016-pages-as-html/
+
+#>
+
+
+
+# https://stackoverflow.com/questions/53689087/powershell-and-onenote
+# http://thebackend.info/powershell/2017/12/onenote-read-and-write-content-with-powershell/
+# https://stackoverflow.com/questions/53639041/how-to-access-contents-of-onenote-page
+
+# Get export folder
+Function Get-Folder($initialDirectory) {
+	[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms")|Out-Null
+	$foldername = New-Object System.Windows.Forms.FolderBrowserDialog
+	$foldername.Description = "Select an export folder"
+	$foldername.rootfolder = "MyComputer"
+	if($foldername.ShowDialog() -eq "OK")
+	{
+		$folder += $foldername.SelectedPath
+	}
+	return $folder
+}
+
+# Spider and find each page, create directory for each group
+Function Spider-OneNote-Notebook {
+	param( $onenote, $node, $path )
+	foreach($child in $node.ChildNodes) {
+		if ($child.HasChildNodes) {
+			if ($child.isRecycleBin -ne 'true') {
+				$folder = Join-Path -Path $path -ChildPath $child.name
+				New-Item -Path $folder -ItemType directory | Out-Null
+				Write-Host "Section: $($folder)"
+				Spider-OneNote-Notebook -onenote $onenote -node $child -path $folder
+			}
+		} else {
+			Export-OneNote-Page -onenote $onenote -node $child -path $path
+		}
+	}
+}
+
+# Export page
+Function Export-OneNote-Page {
+	param( $onenote, $node, $path )
+	# Replace invalid file characters
+	$name = ReplaceIllegal -text $node.name
+	$file = $(Join-Path -Path $path -ChildPath "$($name).htm")
+	Write-Host "Page: $($file)"
+	# Export
+	$onenote.Publish($node.ID, $file, 7, "")
+	Export-OneNote-Attachments -onenote $onenote -node $node -path $path
+}
+
+# Copy embedded attachments
+Function Export-OneNote-Attachments {
+	param ( $onenote, $node, $path )
+	$xml = ''
+	$schema = @{one=”http://schemas.microsoft.com/office/onenote/2013/onenote”}
+	$onenote.GetPageContent($node.ID, [ref]$xml)
+	$xml | Select-Xml -XPath "//one:Page/one:Outline/one:OEChildren/one:OE/one:InsertedFile" -Namespace $schema | foreach {
+		$file = Join-Path -Path $path -ChildPath $_.Node.preferredName
+		Write-Host "Attachment: $($file)"
+		Copy-Item $_.Node.pathCache -Destination $file
+	}
+}
+
+Function ReplaceIllegal {
+	param ( $text )
+	$illegal = [string]::join('',([System.IO.Path]::GetInvalidFileNameChars())) -replace '\\','\\'
+	$replaced = $text -replace "[$illegal]",'_'
+	return $replaced
+}
+
+# Get export folder
+$folder = Get-Folder
+
+# Connect
+$OneNote = New-Object -ComObject OneNote.Application
+[xml]$Hierarchy = ""
+$OneNote.GetHierarchy("", [Microsoft.Office.InterOp.OneNote.HierarchyScope]::hsPages, [ref]$Hierarchy)
+
+# Loop over each notebook
+foreach ($notebook in $Hierarchy.Notebooks.Notebook ) {
+	$name = ReplaceIllegal -text $notebook.name
+	$nf = Join-Path -Path $folder -ChildPath $name
+	Write-Host "Notebook: $($nf)"
+	New-Item -Path $nf -ItemType directory | Out-Null
+	Spider-OneNote-Notebook -onenote $OneNote -node $notebook -path $nf
+}
\ No newline at end of file