Import and export - Revision history

Christianfoltin: /* VYM */

2013-11-28T05:29:51Z

VYM

← Older revision		Revision as of 05:29, 28 November 2013
Line 709:		Line 709:

	== VYM ==		== VYM ==

			There is a useful project at [https://sourceforge.net/projects/vym2fm/ Sourceforge: vym2fm].

	Conversion from VYM to FreeMind:		Conversion from VYM to FreeMind:

Dan Polansky: /* See also */ -spamming link

2012-04-08T13:46:37Z

IanEperson: /* Export */

2011-04-06T12:21:07Z

Export

← Older revision		Revision as of 12:21, 6 April 2011
Line 920:		Line 920:
	<pre>		<pre>
	Sub ToMap()		Sub ToMap()
	' This macro uses the currently active document as the basis for creating a FreeMind format (.mm) file		' This Word macro uses the currently active document as the basis for creating a FreeMind format (.mm) file
	' It creates an output file using the Outline structure of the active document to determine the nodes in		' It creates an output file using the Outline structure of the active document to determine the nodes in
	' the FreeMind file		' the FreeMind file

IanEperson: /* Export */

2011-04-06T12:15:51Z

Export

← Older revision		Revision as of 12:15, 6 April 2011
Line 920:		Line 920:
	<pre>		<pre>
	Sub ToMap()		Sub ToMap()
	' This ~~Word~~ macro uses the currently active document as the basis for creating a FreeMind format (.mm) file		' This macro uses the currently active document as the basis for creating a FreeMind format (.mm) file
	' It creates an output file using the Outline structure of the active document to determine the nodes in		' It creates an output file using the Outline structure of the active document to determine the nodes in
	' the FreeMind file		' the FreeMind file
Line 929:		Line 929:
	' Basic formatting (bold/normal and font size) is preserved in the node file		' Basic formatting (bold/normal and font size) is preserved in the node file
	'		'

	Set scrdoc = ActiveDocument		Set scrdoc = ActiveDocument
	Set nodedoc = Documents.Add ' create our output document		Set nodedoc = Documents.Add ' create our output document
Line 935:		Line 936:
	nodedoc.Content.InsertAfter ("<node TEXT=""New Mindmap"">" + Chr(10))		nodedoc.Content.InsertAfter ("<node TEXT=""New Mindmap"">" + Chr(10))

	~~curlevel~~ = 0 ' the assumed starting ~~outline~~ level		reflevel = 1 ' the assumed starting level
			newlevel = 1
	For Each para In scrdoc.Paragraphs		For Each para In scrdoc.Paragraphs
	~~magic = curlevel -~~ para.OutlineLevel + 1		If (para.OutlineLevel > reflevel) Then newlevel = newlevel + 1 ' only step down 1 level
	~~curlevel~~ = para.OutlineLevel		If (para.OutlineLevel < reflevel) Then newlevel = para.OutlineLevel ' step back to document level
	If (magic > 0) Then ' unwind ~~back~~ to ~~the~~ new level		reflevel = para.OutlineLevel
			magic = curlevel - newlevel + 1 ' then +1 ensures we get </node><node> when staying on the same level
			curlevel = newlevel
			If (magic > 0) Then ' unwind to new level
	For ncount = 1 To magic		For ncount = 1 To magic
	nodedoc.Content.InsertAfter ("</node>" + Chr(10))		nodedoc.Content.InsertAfter ("</node>" + Chr(10))
	~~Next ncount~~
	~~End If~~
	~~If (magic < 0) Then ' insert a blank node~~
	~~For ncount = 1 To -magic~~
	~~nodedoc.Content.InsertAfter ("<node TEXT="""">" + Chr(10))~~
	Next ncount		Next ncount
	End If		End If
	' create the new node		' create the new node
	txt = para.Range.Text		txt = Replace(para.Range.Text, """", "'") ' always single quotes
	nodedoc.Content.InsertAfter ("<node TEXT=""" + Left(txt, Len(txt) - 1) + """>" + Chr(10))		nodedoc.Content.InsertAfter ("<node TEXT=""" + Left(txt, Len(txt) - 1) + """>" + Chr(10))
	' preserve basic formatting		' preserve basic formatting
Line 976:		Line 976:
	End Sub		End Sub
	</pre>		</pre>

	=== Import ===		=== Import ===

IanEperson: /* Microsoft Word using Outlining */

2011-04-05T12:04:44Z

Microsoft Word using Outlining

← Older revision		Revision as of 12:04, 5 April 2011
Line 920:		Line 920:
	<pre>		<pre>
	Sub ToMap()		Sub ToMap()
	' This macro uses the currently active document as the basis for creating a FreeMind format (.mm) file		' This Word macro uses the currently active document as the basis for creating a FreeMind format (.mm) file
	' It creates an output file using the Outline structure of the active document to determine the nodes in		' It creates an output file using the Outline structure of the active document to determine the nodes in
	' the FreeMind file		' the FreeMind file
Line 980:		Line 980:
	<pre>		<pre>
	Sub xmltodoc()		Sub xmltodoc()
	' This macro uses the currently active document as the basis for creating a Word document with Outline		' This Word macro uses the currently active document as the basis for creating a Word document with Outline
	' levels corresponding to the node structure of the FreeMind (.mm) source file		' levels corresponding to the node structure of the FreeMind (.mm) source file
	' To load the source file, rename the .mm to .xml and open using Word		' To load the source file, rename the .mm to .xml and open using Word

IanEperson: /* Microsoft Word */

2011-04-05T12:02:06Z

Microsoft Word

← Older revision		Revision as of 12:02, 5 April 2011
Line 844:		Line 844:
	Warning: This does not work in Freemind 0.9.0 Beta 9, but has been tested in FM Scholar, which is based on the FM 0.8.1 release.		Warning: This does not work in Freemind 0.9.0 Beta 9, but has been tested in FM Scholar, which is based on the FM 0.8.1 release.

	~~[Help: I am unable to insert the following VBScript code cleanly formatted]~~		<pre>

	<~~source lang="vb"~~>

	Sub InsertLeadingTabs()		Sub InsertLeadingTabs()
Line 891:		Line 889:
	Selection.HomeKey Unit:=wdStory		Selection.HomeKey Unit:=wdStory
	End Sub ' InsertLeadingTabs		End Sub ' InsertLeadingTabs

	Sub RemoveLeadingTabs()		Sub RemoveLeadingTabs()
	'' Strip any tabs after a paragraph break, at the beginning of a line.		'' Strip any tabs after a paragraph break, at the beginning of a line.
Line 907:		Line 906:
	Selection.HomeKey Unit:=wdStory		Selection.HomeKey Unit:=wdStory
	End Sub ' RemoveLeadingTabs		End Sub ' RemoveLeadingTabs

	Sub FilterHeadings()		Sub FilterHeadings()
	'' Remove all paragraphs but headings.		'' Remove all paragraphs but headings.
Line 914:		Line 914:
	Next p		Next p
	End Sub ' FilterHeadings		End Sub ' FilterHeadings
	</~~source~~>		</pre>

	== Microsoft Word using Outlining ==		== Microsoft Word using Outlining ==

IanEperson: /* Import */

2011-04-05T12:00:37Z

Import

← Older revision		Revision as of 12:00, 5 April 2011
Line 981:		Line 981:
	Sub xmltodoc()		Sub xmltodoc()
	' This macro uses the currently active document as the basis for creating a Word document with Outline		' This macro uses the currently active document as the basis for creating a Word document with Outline
	' levels corresponding to the node structure of the FreeMind (.mm) file		' levels corresponding to the node structure of the FreeMind (.mm) source file
	' To load the source file, rename the .mm to .xml and open using Word		' To load the source file, rename the .mm to .xml and open using Word
	' The macro parses the node tree to determine the Outline level and then allocates the text for each node to		' The macro parses the node tree to determine the Outline level and then allocates the text for each node to

IanEperson: /* Import */

2011-04-05T11:59:46Z

Import

← Older revision		Revision as of 11:59, 5 April 2011
Line 1,001:		Line 1,001:

	End Sub		End Sub


	Sub xmllevel(nodes, outlinedoc, top)		Sub xmllevel(nodes, outlinedoc, top)

IanEperson: /* Import */

2011-04-05T11:59:20Z

Import

← Older revision		Revision as of 11:59, 5 April 2011
Line 984:		Line 984:
	' To load the source file, rename the .mm to .xml and open using Word		' To load the source file, rename the .mm to .xml and open using Word
	' The macro parses the node tree to determine the Outline level and then allocates the text for each node to		' The macro parses the node tree to determine the Outline level and then allocates the text for each node to
	' the appropriate level		' the appropriate level
	' The resultant document can be saved to Word (.doc) format		' The resultant document can be saved to Word (.doc) format
	'		'

IanEperson: /* Microsoft Word using Outlining */

2011-04-05T11:57:43Z

Microsoft Word using Outlining

@@ Line 917: / Line 917: @@
 == Microsoft Word using Outlining ==
-=== Import ===
+=== Export ===
 <pre>
 Sub ToMap()
@@ Line 978: / Line 978: @@
 === Import ===
-<source lang=vb>
+<pre>
-</source>
+End Sub
 ==Microsoft Project==

← Older revision		Revision as of 13:46, 8 April 2012
Line 2,177:		Line 2,177:
	* [[Accessories]]		* [[Accessories]]
	* [[Export using XSLT]]		* [[Export using XSLT]]
	* [http://www.examplesof.com/ExcelTemplates/organization_chart.html Example of Organization Chart]

	[[Category:Documentation]]		[[Category:Documentation]]