Mindjet Labs | Mindjet Labs Solutions | List of Samples

Reset Notes Font to Default

Written by Vivek Vishist Fri Jun 24 2005 | Last updated Fri Apr 21 2006

Download a free trial of Mindjet MindManager Pro 6.

This macro updates any Notes fonts on the active map to the default font.

Details

If you paste text into the notes window from an HTML page, you will get fonts that you will find difficult to reset. This macro resets all of the fonts in all notes in a map to the default notes font set from Format...Notes....

If the notes contains text in non-Western script, like Greek, Chinese, Japanese, Cyrillic, Hebrew, etc. then you should insure that the default notes font can represent those character sets. The default notes font for MindManager is Arial, which only has character representations for Western scripts. If you commonly use non-Western script, use a font like Arial Unicode MS that has a wide array of character sets for non-western languages.

Installation

Download the macro to your computer.
Start MindManager 6.
From the top level menu, select Tools...Macro...Macros.
Press the [Add...] button.
In the Macro Dialog, enter the following:

Name: "Reset Notes Font to Default..."

Path: the path to the Reset to Default Font.mmbas that you downloaded in the first step.

Menu: select "Tools"

Usage

Open a map that needs its notes fonts reset to the default notes font (See Format...Notes... to set it).
Select Tools...Reset Notes Font To Default...
Press [Yes] to proceed.

Reset to Default Font.mmbas (download)

'#Reference {F5078F18-C551-11D3-89B9-0000F81FE221}#4.0#0#C:\WINDOWS\system32\msxml4.dll#Microsoft XML, v4.0
'*******************************************************************************
'Copyright (c) Mindjet Corporation 2005

'Decsription: This macro Updates any Notes fonts on a Map to the default Font.

'Developed by: Vivek Vishist [vivek.vishist@mindjet.com]

'Date: June 24,2005

'Modifications(If any):
'*******************************************************************************
'*******************************************************************************
Option Explicit
Dim WithEvents myTransaction As Transaction

Sub Main
	If VisibleDocuments.Count =0 Then Exit Sub

If MsgBox("This will revert all fonts in the text notes for current map" + vbCrLf + "back to the default notes font." + vbCrLf + _
		"Would you like to proceed?", _
		vbYesNo,"Reset Notes Fonts")=vbYes Then
	    Set myTransaction = ActiveDocument.NewTransaction("Reset All Notes Fonts")
		myTransaction.Start()
	End If
End Sub

Sub TransformTopic(aNotes As Notes ,xslt As MSXML2.FreeThreadedDOMDocument40,xml As MSXML2.FreeThreadedDOMDocument40)
		Dim strNotesTextXHTML As String

If aNotes.TextXHTML <> "" Then
'			Debug.Print("Processing Topic: " & aNotes.Text)
'			Debug.Print ("----------------------->>>>>>>> " & aNotes.TextXHTML  )
'			Debug.Print ("")
'			Debug.Print ("")
			Dim result As String

result = Start(xslt,xml)

'			Debug.Print ("<<<<<<<<<<<<<<<<<<<<-----------------------" & result  )

aNotes.TextXHTML =result
		End If
End Sub
Function Start(xslDoc As MSXML2.FreeThreadedDOMDocument40,xmldoc As MSXML2.FreeThreadedDOMDocument40 )As String
	On Error GoTo HandleError
	Dim result As String
	result = xmldoc.transformNode(xslDoc.documentElement)
	Start = result
	Exit Function
HandleError:
	Debug.Print (Err.Description)
End Function
Private Sub myTransaction_Execute( d As Document )
	Dim aRange As Range
	Set aRange = ActiveDocument.Range(mmRangeAllTopics)
	Dim aTopic As Topic

'Xsl Document
	Dim xslDoc As New MSXML2.FreeThreadedDOMDocument40
	'Xml Document
	Dim xmldoc As New MSXML2.FreeThreadedDOMDocument40

xmldoc.async = False
	xslDoc.async = False
	Dim Asa As String

Dim xslString As String
	'Load the XSL
	'xslDoc.Load ("c:\temp\test\ImplementFont.xsl")
	xslString =	"<?xml version='1.0' encoding='utf-8' standalone='yes' ?>" & _
				"<xsl:stylesheet version='1.0' xmlns:xsl='http://www.w3.org/1999/XSL/Transform' xmlns='http://www.w3.org/1999/xhtml'>" & _
				"	<xsl:output method='xml' encoding='UTF-8' />" & _
				"	" & _
				"	<xsl:template match='/'>" & _
				"		<xsl:comment>Remove All Fonts</xsl:comment>" & _
				"		<xsl:copy>" & _
				"			<xsl:apply-templates select='*|@*|text()' />" & _
				"		</xsl:copy>" & _
				"	</xsl:template>" & _
				"	<xsl:template match='node() | @* | text()'>" & _
				"		<xsl:copy>" & _
				"			<xsl:apply-templates select='*|@*|text()' />" & _
				"		</xsl:copy>" & _
				"	</xsl:template>" & _
				"	<xsl:template match='@face' />" & _
				"	<xsl:template match='@size' />" & _
				"	<xsl:template match='@style'/>" & _
				"</xsl:stylesheet>

'"	<xsl:template match='xhtml:font'>" & _
				'"		<xsl:apply-templates Select='*|Text()' />" & _
				'"	</xsl:template>" & _
	'xslDoc.Load (MacroDir & "\ImplementFont.xsl")
	xslDoc.	loadXML(xslString)
	For Each aTopic In aRange
		xmldoc.validateOnParse = False
		xmldoc.loadXML(aTopic.Notes.TextXHTML  )
		TransformTopic aTopic.Notes  ,xslDoc, xmldoc
	Next
End Sub

Revision History

4/21/2006 Fixed issue with MM6 SP1 where notes were not being converted correctly.

Give us feedback - Digg This!

Updated on Thu Aug 24 12:48:49 PDT 2006 | RSS |