ࡱ> PSOx!` ;bjbj\\+>>;  X%X%X%X%t%$ <V%J&J&J&J&%'r(t )<2 ;;;;;;$d=h?;G)%'%'G)G);J&J&;***G).J&J&2*G)2**V1@G2J&% BX%u) 1 2;0<1TR@)FR@G2R@G28G)G)*G)G)G)G)G);;)G)G)G)<G)G)G)G) D D   [Titel = Artname eingeben] 1 Beschreibung der Art 1.1 Aussehen [Texte des Internethandbuches einfgen] HYPERLINK "http://www.floraweb.de/pflanzenarten/foto.xsql?suchnr="Floraweb-Fotos der Art 1.2 Taxonomie [Texte des Internethandbuches einfgen] HYPERLINK "http://www.floraweb.de/pflanzenarten/taxonomie.xsql?sipnr="weitere Synonyme/Informationen zur Taxonomie aus FloraWeb 1.3 Herkunftsgebiet [Texte des Internethandbuches einfgen] 1.4 Biologie [Texte des Internethandbuches einfgen] HYPERLINK "http://www.floraweb.de/pflanzenarten/biologie.xsql?suchnr="weitere Informationen zur Biologie aus FloraWeb 2 Vorkommen in Deutschland 2.1 Einfhrungs- und Ausbreitungsgeschichte / Ausbreitungswege [Texte des Internethandbuches einfgen] 2.2 Aktuelle Verbreitung und Ausbreitungstendenz [Texte des Internethandbuches einfgen]  HYPERLINK "http://www.floraweb.de/MAP/scripts/esrimap.dll?name=florkart&cmd=mapflor&app=distflor&ly=gw&taxnr=" Verbreitungskarte aus FloraWeb  2.3 Lebensraum [Texte des Internethandbuches einfgen] HYPERLINK "http://www.floraweb.de/pflanzenarten/Oekologie.xsql?suchnr="weitere Informationen zu kologie und Lebensraum aus FloraWeb 2.4 Status und Invasivitt der Art in benachbarten Staaten [Texte des Internethandbuches einfgen] 3 Auswirkungen [Texte des Internethandbuches einfgen] 3.1 Betroffene Lebensrume [Texte des Internethandbuches einfgen] 3.2 Tiere und Pflanzen [Texte des Internethandbuches einfgen] 3.3 kosysteme [Texte des Internethandbuches einfgen] 3.4 Menschliche Gesundheit [Texte des Internethandbuches einfgen] 3.5 Wirtschaftliche Auswirkungen [Texte des Internethandbuches einfgen] 4 Manahmen [Texte des Internethandbuches einfgen] 4.1 Vorbeugen [Texte des Internethandbuches einfgen] 4.2 Allgemeine Empfehlungen zur Bekmpfung [Texte des Internethandbuches einfgen] 4.3 Methoden und Kosten der Bekmpfung [Texte des Internethandbuches einfgen]  HYPERLINK "http://www.floraweb.de/foren/viewtopic.php?t=" Ihre Erfahrungen zum Management knnen Sie im Diskussionsforum zu dieser Art eintragen.  5 Weiterfhrendes & Kontakte 5.1 Literatur & Links [Texte des Internethandbuches einfgen] 5.2 Kontakte [Kontaktperson(en) nach folgendem Muster einfgen:] [Vor- und Nachname], [Institution], [Postadresse], [ggf. Telefonnummer] [HYPERLINK "mailto:?subject=Internethandbuch%20NeoFlora:%20"Email] 6. Forum In den Diskussionsforen knnen Sie Ihre Meinung zu den Arten des Handbuches und ggf. Erfahrungen mit deren Management eintragen und mit anderen diskutieren. HYPERLINK "http://www.floraweb.de/foren/viewtopic.php?t="Meinungen und Erfahrungen zu [deutscher Name (wiss. Name) eintragen] Dieser Artensteckbrief wurde erstellt von: [Name eintragen], [Institution eintragen], [HYPERLINK "mailto:?subject=Internethandbuch%20NeoFlora"Kontakt] ij F G H A B C r s t T U ! " i 엫xhjh!h!0JUh!h!0Jjh!h!0JUh!h(0J'jhzhz>*B*Uphjh!h(0JU h(KH'jhzhz>*B*Uph h(0J'jhzhz>*B*Uph hz0Jjh(0JUh($3@Ai t u v $a$; + , T !   ! I J e f $a$i j k  BC-.ijkpqsWĻĢѕneaaTjh:h(0JUh8 hD^h*0J'jhzhz>*B*Uph hz0JjhD^h*0JUh*h:h(0Jh:h8 0Jj-h:h:0JUh:h:0Jjh:h:0JUh(h!h(0Jjh!h(0JU'j,hzhz>*B*Uph  $%MNop23[\BDEbxystu~;gd*$a$WXY/0189;ȿȦh-kvh(0Jjh-kvh(0JUh-kvh-kv0Jjh-kvh(0JUh(h:h(0Jjh:h(0JUjh:h:0JU +0. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% + 0. A!"#$n% . 00. A!"#$n% DyK yK http://www.floraweb.de/pflanzenarten/foto.xsql?suchnr=yX;H,]ą'cDyK yK http://www.floraweb.de/pflanzenarten/taxonomie.xsql?sipnr=yX;H,]ą'cDyK yK http://www.floraweb.de/pflanzenarten/biologie.xsql?suchnr=yX;H,]ą'c7DyK yK http://www.floraweb.de/MAP/scripts/esrimap.dll?name=florkart&cmd=mapflor&app=distflor&ly=gw&taxnr=DyK yK http://www.floraweb.de/pflanzenarten/Oekologie.xsql?suchnr=yX;H,]ą'cDyK yK \http://www.floraweb.de/foren/viewtopic.php?t=DyK yK xmailto:?subject=Internethandbuch%20NeoFlora:%20yX;H,]ą'cDyK yK \http://www.floraweb.de/foren/viewtopic.php?t=DyK yK Xmailto:?subject=Internethandbuch%20NeoFloraH@H StandardxOJQJ_HmHsHtHZ@Z berschrift 1$<@&5CJ KH \^JaJ \@\ berschrift 2$<@&56CJ\]^JaJ^@^ berschrift 3$<@&5CJOJQJ\^JaJJA@J Absatz-Standardschriftart\i\ Normale Tabelle :V 44 la 0k0 Keine Liste 6U@6 Hyperlink >*B*phRO"R Neo_berschrift 1 $ SOJQJ<O< Neo_StandardOJQJVO!V Neo_berschrift 2 $ S@ 6OJQJ6OA6 Neo_TitelOJQJV>@BV Titel$<@&a$5CJ KHOJQJ\^JaJ 2OQ2 Neo_Artname6@Ob@ Neo_Aufzhlung  & F6Oar6 Neo_Liste  & FJB@J Textkrper $a$CJOJQJaJ6O6 Neo_HyperlinkCJ\O\ Neo_Literaturverzeichnis^`Av,!Jf %Np3\Eyu  ; $-$Z$$$$%D%q%%%%+&[&&&&'B'r'''',(Y(((()C)p))))**Z****+A+q++3@Aituv+,T! !IJef $%MNop23[\BDEbxys t u ~   = 00000303030300000000000000000000v000v0v00000v0v00000v0v000000 000J0J00000000000 0 000N0N000000000000000\0\0\0\000E0b0b0b0E00000000u 0u 0u 0u 3@Aituv+,T! !IJef $%MNop23[\BDEbxys t u ~   = 0 0 000303030300000000000000000 0 0000000R0R0R0R00090909090000000a0p0a0a000a0a000a0a0 0 0a0a0Y0Y0a0a0000000000000W0W00000000000000 @0@00 0 000< 0< 0< 0i W;  ; ; iGBrT!jB- j p  X 0 8 ; XXXXXXXXX8@0(  B S  ? _Hlt32841822 _Hlt32841823 _Hlt32923000 _Hlt32923001 _Hlt32841949 _Hlt32841950 _Hlt32908382 _Hlt32908383 _Hlt38782101 _Hlt38782102 _Hlt32923053 _Hlt32923054 _Hlt38782199 _Hlt38782200RRpp  n n = @@@@@@@@ @ @@ @ @ @SSqqo o 9 9 = jr= = iT u  : = jGBT"jCs    X 0 : = 4a7Ps`!N-^h^`)h^`.hpLp^p`L.h@ @ ^@ `.h^`.hL^`L.h^`.h^`.hPLP^P`L.WW^W`o(WW^W`o(.WW^W`o(..WW^W`o(... 88^8`o( .... 88^8`o( ..... 88^8`o( ...... `^``o(....... `^``o(........h^`OJPJQJ^Jo(-h^`.hpLp^p`L.h@ @ ^@ `.h^`.hL^`L.h^`.h^`.hPLP^P`L.`!^4anj\ 8 r'&*-kv!z(:V++V++V++V++ NeobiotaNeobiotaLfXLfXLfXLfXLfX0(  Format whlenzeige FormatwahlThisDocument.zeigeFormatwahl(p(??( Formate prfenpruefe FormateThisDocument.pruefeFormate(p(??(  Exportieren Export XMLThisDocument.ExportXML(p(??!TemplateProject.ThisDocument.crap&TemplateProject.ThisDocument.ExportXMLTemplateProject.ThisDocument.hy,TemplateProject.ThisDocument.zeigeFormatwahlTEMPLATEPROJECT.THISDOCUMENT.HY!TEMPLATEPROJECT.THISDOCUMENT.CRAP&TEMPLATEPROJECT.THISDOCUMENT.EXPORTXML,TEMPLATEPROJECT.THISDOCUMENT.ZEIGEFORMATWAHL@t t t t ; P@UnknownG: Times New Roman5Symbol3& : Arialg& 'Officina Sans BookZurich Ex BT7&  Verdana"qff  !r4d6 6  2QHX?-kv*[Titel eingeben]Carsten Oberscheid Klingenstein   Oh+'0 , L Xdlt|[Titel eingeben]Carsten OberscheidNeoFlora neu.dotKlingenstein2Microsoft Office Word@B@B ՜.+,D՜.+,D hp   doctronic6 \ [Titel eingeben] Titel0 8@ _PID_HLINKSA6>8,mailto:?subject=Internethandbuch%20NeoFlora T.http://www.floraweb.de/foren/viewtopic.php?t= z00mailto:?subject=Internethandbuch%20NeoFlora:%20 T.http://www.floraweb.de/foren/viewtopic.php?t= x2 <http://www.floraweb.de/pflanzenarten/Oekologie.xsql?suchnr= 3b chttp://www.floraweb.de/MAP/scripts/esrimap.dll?name=florkart&cmd=mapflor&app=distflor&ly=gw&taxnr= ex;http://www.floraweb.de/pflanzenarten/biologie.xsql?suchnr= sg;http://www.floraweb.de/pflanzenarten/taxonomie.xsql?sipnr= ba7http://www.floraweb.de/pflanzenarten/foto.xsql?suchnr=   !"#$%&'()*+,-./0123456789:;<=>@ABCDEFHIJKLMNQRhUfWXYZ[\]^_`abcdegswjklmnopqrtuvz{|}~Root Entry F"BT@ Data 1Tablej@WordDocument+SummaryInformation(?DocumentSummaryInformation8GMacros!kBBVBA kBBdir__SRP_0 V__SRP_1 5__SRP_2   !"#%&'()*+,-./0123456789:;<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ\]^_`abcefgijkmopqrsuxz{|}~0* pHdTemplateProjectQH@  = | ? J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automation/DOfficDO>fic5D|D2DF8D04C-5BFA-101B -BDE5DAAB42DD:\apps\Microsoft 1\MSO9.DLL#  9.0 Ob Lib0rary?MSForms>SFrms3D452EE1-E08"FTA-8-02608C4D0BB4LFM20& XL&/;!1cIjAHj00}#0Bj# 50 iA6718360F-F28B-4BDA-BBB7-A428F2C 3A0296d:\tmp\VBE\M.exd[5.E .`M ThisDocumentGThsDfcuQeen 2E HB1ҠPB,!9"B+B 6atB`oxGaE!Bx2/6@-#R(@  BitteWart`enG#teWarm"n2oS`morU~~~~~~~~~~~~~~c    1c q K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ >l`O8Y  E !*y  5a   9 $a !  ThisDocument FormatBoxTemplateProjectF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ) Q` F +D:\apps\Microsoft Office\Office\MSWORD9.OLBWord !Ip0FC:\WINNT\System32\STDOLE2.TLBstdole AhyL-[DR (D:\apps\Microsoft Office\Office\MSO9.DLLOffice 1.E .`M C:\WINNT\System32\FM20.DLLMSForms )i6VRC[bd:\tmp\VBE\MSForms.exd ik F$uJ+u3 FLA(AN @xa FDocument isKillablezeigeFormatwahl pruefeFormatetestcrap @3Q)L?ޜ%sήJU~^\YF;.xN27<^*~ 9#DL7+9jbPa?G`qMj"ҋB `ListBox!-6S` I i{lFWJOOkBtn CancelBtnȏ[qJ eUserForm>rچC' F3Dynamic q  CancelBtn_Click OkBtn_ClickUserForm_activate L StandardyjFw 4 Neo_Standard Aufzhlung Neo_Aufzhlung Liste Neo_Liste .Artname (Zeichenformat) Neo_Artname#ҋB ` F FA^ F, F Neo_Titel "Neo_berschrift 1 "Neo_berschrift 2 <td> 0Ungltige Formatierung: VBE6.DLL S  2Hyperlink (Zeichenformat) Neo_Hyperlink+1w=D[M4u FfZ/H_m'NΔΜO_uf F  jhttp://www.floraweb.de/datenservice/foto.xsql?suchnr= Count <tr><td> rhttp://www.floraweb.de/datenservice/taxonomie.xsql?sipnr= Hhttp://floraweb.de/neophyten/gattung phttp://www.floraweb.de/datenservice/biologie.xsql?sipnr= < >] F </ <tab/> k  </tr>Rows/ http://gis.zadi.de/scripts/esrimap.dll?name=florkart&cmd=mapflor&app=distflor&ly=gw&taxnr= rhttp://www.floraweb.de/datenservice/Oekologie.xsql?sipnr= \http://floraweb.bfn.de/phpbb2/viewtopic.php?t= XXX   X FW F i   3{D^ 8LwEO8DKWC6ZKZDy<tr><td>M FQ FL FP FJ FN F </td> </table>k%HLYKzE3@V eZ ExportXML UserForm1 BitteWarten 2nJNj|H6f9d3_ErC!X8^%T+[@sDs!KK@ߴڃ$A̐됫S ! "-?@Label1 Label1_Click DnPDB X+fFœe1{C!)+FGo_Ua?f\D[O[ a#  d1F18mam/"Oy]rQQD?Cw%:E>AjT Y$ UserForm_ActivateUserForm_Click޷;I j\BNO,k : !M+pdu[GyN|LQK_Ë % `J Z)`@`G[6VKvQGbAǚIc@vt@U & ƏYl|b FYl|ݛ@%]%l MH}6p†#9F^:.#4JzDWշqqD mGեČP ( x <Neo_Dokument> </Neo_Dokument>P"MٯR"v"V"C[_zescapeb9^@#7?H*G A neo_escapelѐO+o=q ږ@@;:   _No 8_Gz޸tZdyGܤc ` H F FNamesearcpathSearchPath *.xmlsearchnamePatternMatchSearchNameText FormatFilenameInfo No file selected xmlp F2 FDisplay speichern unter Title C:\searchName HUHU' Vor dem Export wird Ihr Dokument gespeichert. Sind Sie damit einverstanden?O:Ae-piG #%˖F$qs \ .doc .xml   (Ihre Datei wird als  esportiert.     exportiert V<?xml version='1.0' encoding='iso-8859-1'?>OvWh7KL~!s E'%TDneo_textescape & &amp; &lt; &gt;%|^C}UgPB-ZNi.^("U`IAtoLC}:Bd[H:mN|wc`5` Iʅҕ 6  (<Neo_Enum_Container> *</Neo_Enum_Container>  href=' F 'RWZOLݳԁ;EF x D=uJOL-S,C3;vHj{Sy Document_NewgR@zfo-hMpAi, 0Neo_Literaturverzeichnis-ld"O_NWy,Nߵ}=r'">ƕgL̞ud#0NtD[֎,LB)@/mV_OYL A;  (LiteraturverzeichnisS F Hyperlinkf q ( ) 8 ) H !) X q 9"h #) x $)  %)  ')  () sty 6) txt i;) 6rU h5!6I6q654) Q ]`rU @nrU @,`//,A`//$`(__SRP_3B__SRP_4 i __SRP_5__SRP_6 $>rU X<iA  : q   0x 9 4q+))I 77 898a8yy)211q2393q* +8A5Y555 q<<9941aYWWx.  L\\:L2<,,(L]tT\,"?:3,(L]t \l/ `x0l,\<.K f\l[ \X ( HD (  40 (   ( 2XD0w c\l/ `(lXD0H$.$ `.K cLl/DH$ 4H QD[@`H<X,` ,h5,(,H` pH P,dH5,(d (l(90/(&:L N,,H` H 0:H5,(d (l(;0/(&:L N,,H` H 0:H5,(h (l(=$h (l$= h (l  =h (l;=h (l =h (l =h (l = h (l 9=h (l =h (l=h (l=d (l=d (l=d (l =d (l;=d (l =d (l =d (l =d (l9=d (l =d (l=d (l=2,($  I ` |8'''(h (l(*F, /(6, fLlFP|=|0  |:`]F0T)6P0 :`T):`$PT0:@'6P0:`"Pt l ( /:`)P.0t >FP06P0%0t >FP0D5PDP tdgPx HP@5P):`#P0:@"6P0C:`#P0x H0:@"l60P  P P05P ~c:`*P($ 4 >FP424P  P0 +0:`,]36P0&4P(`0"4  44:`-P4@'l'':`.4P:@/0^6 P0lp'P 0D@5P4#U]/U1 U=wy-'0'P$ 4 6P0$h\DhdT4x|tD0 P0l0   0   ,. :\l(L \ƕgL̞ud#0NtD[֎,LB)@x,LB)@Wy,Nߵ}=r'MESPSSS>"<8<<LLLL<<<0{3933BDCA-7540-44A5-8F1D-7FCABB0277E0}{A716B70F-F83B-4517-B7C7-22BEE7BB0919}`(0(%X0 %h%V% `Pk i X@hi Ne p`0kei `|kei P H@T @8D @P4 @h$ @ @ @ 8V0  b\`@X(XtV@px @h @d @T @D @4 @0 0hL0?$*\Rffff*083fb8b026*\R1*#129*\R1*#c1*\R1*#17b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4548<@"h  "8]H p@ "(  &*@*P,  3@   x X(jho]Pm(M b X,`eiArtname (Zeichenformat)+b Neo_Artname+b Aufzhlung+bListe+b Neo_Liste+b(Standard+b+b Neo_Standard+bo X!j X%` t(Hb VB@andardoX VB@HNeo_Aufzhlung+b@ Neo_Hyperlink+bHyperlink (Zeichenformat)+bhLiteraturverzeichnis+bNeo_Literaturverzeichnis+b4Attribute VB_Name = "FormatBox" " Bas0{3933BDCA-7540-44A5-8F1D-7FCABB0277E0}{A716B70F-F83B-4517-B7C7-22BEE7N919} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustohmizDP Sub CancelBtn_Click() B .HidKEnd OkSelection.StyQ}Lis.( Index, B17User&_Av@0C+Dim myArr(5A As Sng20, 0)Standard@v 1PNeo_1AufzhlungH@GR2@^e 3G teraturverzeichni^s  4AHrtn(ZenfB)  [SHyperlink CfX BAhA>blAF80 R6D<-ZNi.^("U`IAtoLC}:Bd[H:mN|wc`x[H:mN|wc`-ZNi.^(MEPSPSSS6"<<<0{DC4F0580-9260-41C9-A4BD-ABCA10C2B723}{770AED29-19A8-416E-927A-46BC8BB50BEE}p0(%X0 %80ei %(%i i i osH`|hX0@h?$*\Rffff*113fa38ad04x`Attribute VB_Name = "BitteWarten" Bas0{DC4F0580-9260-41C9-A4BD-ABCA10C2B723}{770AED29 -19A8J6E^7A-46BC8BB50BEE} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDID="{40013AC1-AADB-4D44-8C21-204420209F4E}" Document=ThisDocument/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=FormatBox BaseClass=BitteWarten Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="A6A4033F0FC381C781C781C781C7" DPB="1C1EB9B5592A5A2A5A2A" GC="92903hP9#<gR@zfo F-hMpAi,x-hMpAi,gR@zfoME 4[LS[<LLLL(L0JLLL(LH(L>"LLLL"L"LLLLLLLLLL<<<<<<<<<<<<<<<<<<<<<<N0{00020906-0000-0000-C000-000000000046}(% `` o  0%@%@% I(h i  I H0% (thp0`  hp x4% x` % % h`|J77 :\X %  `|k %i `r  (` `  `hP "0`x+   H @l (L i  `k ,I  i   P@X@( @$ @  @ @ @ @ @  d@x @ @ @ @ ``@ 0@ @ P` @ @ @ @ ( @ @ #h V  P h H  P h P 8 B"8@h ` @ P @ @ ( ' `lh &&i  @ 0 @8 @P  @h @ @ @ @ @ P@4 @8 @ @   ' @ @ @| "@l @ h K@dO 0 K@ T @D P @ s@ |@z4 @$ @  HhH @Pl hP@\ @X @H 0@0D @H4 @`0 @ @ 0 0HH" @"l X0`@*\ @L @< @4h, (@ 08H ` k>xH @l @\ @4L @ < p hpx@, @ @ @ P@ @(  `( (L '98phx@  `?$*\Rffff*073fb8b025*\R1*#d4*\R1*#c1*\R1*#e2*\R1*#107*\R1*#d4*\R1*#dd*\R1*#d4*\R1*#c1*\R1*#107*\R1*#de*\R0*#11*\R0*#f*\R1*#151*\R1*#150*\R1*#d4*\R1*#dd*\R0*#f*\R1*#91$*\Rffff*113fa38ad0*\R1*#c1*\R0*#2*\R0*#1$*\Rffff*083fb8b026*\R0*#14*\R1*#dd*\R1*#c1*\R1*#17b*\R1*#dd*\R1*#107*\R1*#e2*\R1*#c1*\R1*#d4*\R1*#dd*\R1*#107*\R1*#e24; B   `        B 8 0H[ @X` "    B  (  0 X x   P  P/8  (  Jp! \! L "(!&H!x"%@!     8T" ,8`  H    "h  \ 6 bh b4 0H    @    b@ .*  !  b `px  Z `@"   .B88 %  R"=&( *    P 0  (  :6% .-h  (0-80  \p &(C  0,0 @( D N ) $H   @  H 0 ` 'K    $) :X    ` .0p F`.@ %8 P  4`)p "p(C @(    x (0 2`&@`   .`B@  x     X  (-   X  "  @ X D H@ 2 F h Hp < / h 6   H  P  8  " (  F8 X0RH  P$e p.0 x  h(  (X p    $e   .   0H*{P  .  08@  H(` x  =F L 0 B  h! %0 k '' 'kip]0 mit dem gleichen Namen, aber der Extension .xml abgefragt.b As Rk  "B@ "B@ct(wdN 4$"!$!2! 4$"%$. TABELLE ANFANG?%''kk !J!z |!z !J! |![ ZEILE ENDE?k 4o ($ ($  ($  ($  !H'Prin (!d$)) !J!z ! [ NEUE ZEILE?z   |!!2 >  '2  $"%r%!J.ble>   $"%r%%!J.[
able><  $"%r%!J.k'   $"%r%%!J.blk ZELLE ENDE?!r! !J!z ! [
 NEUE ZELLE? d@   $"%r%!!2   '  !Hd !J!d' ' '   $"%r%%!J.(X["kHk@k8 TABELLE ENDE?$ !J!z |! 8[
r>'0kX $"!r!2   'Ce $"%r!J.|%kko?''''''''''''''''''''' TABELLEN ''''''''''''''''''''''''''''''''aF'''''''''''''''''''''''' ENDE TABELLEN ''''''''''''''''''''''''''''''' I(p]H (!H'H kkU Das XML-Dokument soll in denselben Pfad wie das Originaldokument gespeichert werden,curr\ Deshalb erstmal das Originaldokument speichern, ggf. wird dabei automatisch der Speicherortm inta' (!H  (  !H >'k: Debug.Print "XXX " & cp.Range.Characters(c) & " XXX" (!d$ 'hi' ' '!Hpik_  i ]] ( "! ]@Ungltige Formatierung: !A@B! (!H. (B@H "ky `o VB@^ ] o  "! ]k]8   .http://floraweb.bfn.de/phpbb2/viewtopic.php?t=+ !  vb[ XXXn5http://www.floraweb.de/datenservice/foto.xsql?suchnr=+9http://www.floraweb.de/datenservice/taxonomie.xsql?sipnr=+$http://floraweb.de/neophyten/gattung+8http://www.floraweb.de/datenservice/biologie.xsql?sipnr=+Zhttp://gis.zadi.de/scripts/esrimap.dll?name=florkart&cmd=mapflor&app=distflor&ly=gw&taxnr=+9http://www.floraweb.de/datenservice/Oekologie.xsql?sipnr=+[ !XH k0 "!  B@^ B@P ( !J!@sn = "" * '4t>Dim sn As String> < !H$">' 4 4 tab _ * 4g.PrinP '* *'" sn = st.NameLocal.End If''0p$0XkP (!$!H.'~ Debug.Print sn~ '~If st.NameLocal <> sn ThenXP "B@Dk8P z$$.doc8dpKVor dem Export wird Ihr Dokument gespeichert. Sind Sie damit einverstanden? $B 2-43AXk   "!'z z z $'z)) = " z.xml 'z V  Debug.Print outtxtichert z d0kIhre Datei wird als z exportiert $B  '  $8'.0' P  !H 'bkH@ (&=k (<e = (>e?8 MsgBox fn@+ $8'`\ Schreibschutz heisst bei Bill auch Leseschutz, deshalb muessen wird selbigen vor dem Export v' aufheben. Wird am Ende wieder gesetzt."[ Die verwendeten Formatvorlagen pruefen, nur Neobiota-Vorlagen sind erlaubt. Sonst Abbruch.04' Puffer fuer Stylenamen0= Document Element Speichernamen ermittelnnn' Dokument wird absatzweise verarbeitet.>K Am Absatzende stehen moeglicherweise boese Zeichen, die sollen rausfliegen'F$ Leere Absaetze geben wir nicht aus.jQ0`_Q Absatzformat merken!V Jeder Absatz wird mit seinem Formatnamen getaggt. Achtung: Formatnamen immer escapen,s- um Leerzeichen rauszuschmeissenE) Der Absatz wird zeichenweise verarbeitet   $'isKill neuen Style merken und taggent  Paragraph style schliessencter= Neue Styles (im Absatz: Character Styles) werden neu getaggt04G wenn vorher schon ein Character aktiv war, wird dessen Tag geschlossen( Tabs werden als Tag rausgeschrieben ...@ ... alle anderen Characters literal, falls sie nicht boese sind3- eventuell offenen Character Style schliessen>1 Dokument schliessen9tT In outtxt wird das Ergebnis gepuffert. Wir beginnen mit der XML-Deklaration und demu-' Sicherheitsabfrage vor XML-Speicherung! Schreib(Lese)Schutz wieder drauf]'X Flag flag flag flag ...b'' H$"k ek  $8 '  $8 '] Neo_Aufzhlung  Neo_Listeh4 Aufzaehlungen/Listen in Neo_Enum_Container klammernrte * Extrawurst fuer Hyperlinks: href-Attribut < '5  Neo_HyperlinkA5   $$ (%!$'XP &' <' >'p (!d$'  ' 4   4$'(d  (' kd '  href=' ''Debug.Print csisDebug.Print cshu 3Debug.Print neo_textescape(c.hyperlinks(1).Address)ich (!!2 Be8<bo$}-9M  If (((st.NameLocal <> "Neo_Artname") And (st.NameLocal <> "Neo_Aufzhlung")' And (st.NameLocal <> "Neo_Hyperlink")' And (st.NameLocal <> "Neo_Liste")' And (st.NameLocal <> "Neo_Literaturverzeichnis")' And (st.NameLocal <> "Neo_Standard")' And (st.NameLocal <> "Neo_Titel")' And (st.NameLocal <> "Neo_berschrift 1")' And (st.NameLocal <> "Neo_berschrift 2"))' Or ((ps.NameLocal <> "Neo_Artname") And (ps.NameLocal <> "Neo_Aufzhlung")' And (ps.NameLocal <> "Neo_Hyperlink")' And (ps.NameLocal <> "Neo_Liste")' And (st.NameLocal <> "Neo_Literaturverzeichnis")' And (ps.NameLocal <> "Neo_Standard")' And (ps.NameLocal <> "Neo_Titel")' And (ps.NameLocal <> "Neo_berschrift 1")' And (ps.NameLocal <> "Neo_berschrift 2"))) Then# !Standardk# Neo_Standard (!(H#C Notnagel: Neue Absaetze, die sofort komplett mit dem Zeichenformatt mindV "Neo_Hyperlink" formatiert werden, haben im Hintergrund noch Absatzformat "Standard",Um dF ohne dass der Anwender das sieht und bewusst etwas daran aendern kanne Be8# ! Hyperlinke J%L))")*)2):)B)J)R)[l)t)|))))))) ! Neo_Artname !Neo_Aufzhlung ! Neo_Hyperlink ! Hyperlink ! Neo_Liste !Neo_Literaturverzeichnis ! Neo_Standard !Standard ! Neo_Titel !Neo_berschrift 1 !Neo_berschrift 2 ! Neo_Artname !Neo_Aufzhlung ! Neo_Hyperlink ! Hyperlink ! Neo_Liste !Neo_Literaturverzeichnis ! Neo_Standard !Standard ! Neo_Titel !Neo_berschrift 1 !Neo_berschrift 2)H% Neo_Hyperlink ((H%Attribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 Function neo_escape(sty) O FDo  i InStr(1,, " B" If> 0 Then Mid(ne, i)"_b EndLoop Whii  EnT Ptx ^isKillm(cB#On Error Res@~ Next IB.AscA7 Or F1z23:W  :M0Sub zeigeFormatwahl(.Box.Shoxw  A=F;pfDe Dim st- StylL pscARang ;* F'n ridngM AUG oTo 0'sn@N"w '@EB6 Each c &I@ve.Character"sSet3= c.3 A@4AP graphs ' Notn agel:>ue AbsaetzPdie sof@ort kofett mit dem ZeicW'2% "NbHyperlink" iewerden, haben /Hin gru[no tzC "Standard", ohne dass0nwender! sieht ! bewus@;eDn an kanm`ops.!Local1 qc.F'CM'AcE@ stK "i}5e G ~I 'm @Ig ' =`A Debug.`nE 'e0If z((O b:Ar@Dm`e") Atufzhlung}_d ~w ") _  W ListO ]LiXa@turver@chnisH @LJ 7 TlKO !bPHchrift 1ok_ ot 2")f((;5<*?A?*/  ?0?*/ ?*G?*/ ?* C%?*  ?*NO_ //1*)cZT "1cTwh m* B? _*A "Neo_Literaturverzeichnis") _ %An@d (ps.StandardB+JL}T}luberschrift 1*2"))@) Thenc.SelectMsgBox "Ungltige Formatierung: " & stj @pruefe e = FalseaExitE{IfNexFunctio% Sub ExportXML() Dim cp As ParagraphA0RangB inEnumBoolea: ' Das -Dokument soll in denselben Pfad wie d Originald gespert we*r ,Cm@8dem gln n, at@r@4t8 .xml#eshalb y}tm@ԒgHgf.&rd'bei autof;S&NabHgefLt.If w("Vor @ mYIhr CF:. SilSD9ein@}s!sen?", vbOKCancel.)@?hLA;veDoc"..Sav"5ECGoTo UEBERHAUPTGARNIXE Bit teWar).Showaa' Puffer fuStylenI>cs ""F lag f../b#FWCSqeib ,utz he isst a/Bi Gauch Le4se,`*#:muessIwi5!K1 in v. aufheO. Wa"a`2nde 2edc0etz7l)Prot`wJTypewdNo0xUnpc,CD =ChRc (' Y*0"XXXRs(cb M' cue /s (] :p ) neu5 "-~Qo-!kvh 1`on p(aktiv war,5dzT0wchlo{sd;*2 ) ^&'!P BBriq% XyCQW 'C!4PpU S' H'rawur}H0rlinks: href-Attribugct:{U.h63l > 0@H1ti1(1).Addr6cQ}"v+Q"=''G1O VO @Sճ(0n q+' T8@z Tag rausgeschrieben ... If Asc(c.Text) = 9 Thenx ou0ttxt0& ""FElse^' alle andernCharacters lial, f!s sie nicht boes2endJNot isKill0able xneo_tĹap*MexEnd IfN* c ' eventuell@ offen o Sty{lie ssccs <> cp. _/" &  H' Pgraph s9*IH5D#)"Chr(10) N`IXDA:ADiDA' DokumE >!Ni #CSpeerna ermittel¡fn@wActiveDoc.FullN WLCase(Right(f n, 4)".0doc"ȳBLe"f Len ) >- X + ".xmlB'MsgBox f$ ' S,heitsabfrage vor XML-3ung (("Ihre Datei wirds {{ exportiert", vbOKCancel'3AH3nrEFr eeFilOp F@!Output@ #nraA}Print,{ClooyGoTo GAR@?$ ' Debug. = CbE!%@eib(L|)Schutzre dn, ^s\4cPhs48 ' TABELL\EN3 ' ANFANG?cpTPtRanget" >= curvr A|6 <wnMle>- K ">" ElseH neo_textescapeD = @& cnPd IfN\  EFunction _VBA_PROJECT&PROJECT[7FormatBoxBBfdam *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.1#0#D:\apps\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#D:\apps\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{6718360F-F28B-4BDA-BBB7-A428F2C3A029}#2.0#0#d:\tmp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  ?ThisDocument073fb8b025ThisDocument9 @PFormatBox083fb8b026WFormatBox 6BitteWarten113fa38ad0BitteWarten@` @i„׮HZ&)`<d5KZH6qHeQb@O |_And As.Debug=Dim@doCEachDelseEElseIfHendifOExitRFalseTForYFunction_IfbinyLoopNotOrOutputPrintresumeSetSubThentoTrueWendWhilewithWrite Wordk VBAWin16~Win32MacVBA6#Projekt1A stdole` TemplateProjectE ThisDocument< _Evaluate OfficeuDocumentjtest4pg _B_var_forjLpo^ActiveDocument\ ParagraphsfItemzcZ_B_var_c ctivedocument  tivedocument ivedocument(Count0vi`_B_var_i  Application* messageboxO_B_var_messageboxLmsgeboxe_B_var_msgeboxMsgBoxRactived3ParStylepRange acti _B_var_IfPTabStopsBja_B_var_j Before _B_var_On6Index _B_var_Indexރ _B_str_Index _B_str_inxstrpos5 _B_var_strpossind1IndexesIndexe _B_var_IndexeYins@activ TablescoutnwTables8PactrStartcurrtab_B_var_currtabfale]currrowcurrcell6currr EmphasisMark intab _B_var_intabcp\ _B_var_cp|the'ct\ _B_var_ctRange0e _B_var_Set Paragraph isKillableAsc!uRight  _B_var_Right9RowsUcurrceeCellscr\ _B_var_cr~cc\ _B_var_ccocurrowkg _B_var_currowenfi+D _B_var_printcurrtag_B_var_currtagcurrrpw6_B_var_currrpw _B_var_TextrangtetxtLengthYstrlen _B_var_txt _B_var_LeftQ _B_var_Length>ofcx\NIXDA' _B_var_whileIfresum\@amsStCellcrmcrapt1*_ _B_var_t1InRangeFields7Italic! ListFormat4J StoryLengthWords8 Charactersrgcs\ _B_var_csouttxt _B_var_outtxtebug( _B_var_ebugkendifd pruefeFormate ActiveDocumen%_B_var_ActiveDocumencStyles pst(_ _B_var_sttsL_ _B_var_tsBuiltIna NameLocal _B_var_inXFindn _B_var_FindUActiveS _B_var_WithYContentlClearFormatting)ExecuteYbreak _B_var_breakbedug _B_var_bedug MoveStart}fimv _B_var_fimKer ]riMoveStartUntilw UserForm1)MSFormsCUserFormNListBox1CommandButton1|CommandButton2} CancelBtneOkBtnUserForm_ClickClickUserForm_Initialize5c InitializeN FormatBoxKListBoxlisAddItem ShowList*myArra _B_var_myArr$SelectedY Selectedŗ ListIndexQ_B_var_t OkBtn_Clickactivedo SelectionZSelecte׳ _B_var_Listlistbos_B_var_listboslistbo+ _B_var_CloseformHide9zzeigeFormatwahl8CancelBtn_ClickCUserForm_ActivateZsActivate| hyperlinks:hl] HyperlinkwAddresshy]knownHL_B_var_knownHLkn]nhlknokl]khl h_vb_ vbTextCompare Q _B_var_kl _B_var_khlfctext _B_var_ctextstrcopy'_B_var_strcopystrcpy _B_var_strcpyk_B_var_currrow_B_var_currcell7ProtectfwdNoProtectionwdAllowOnlyFormFields! Unprotect? ExportXMLn;dsdadsb. _B_var_dsdads wd_wdnopܦProtectionType BitteWartenLabel1, Label1_ClickbittbittewNseld _B_var_seldIself _B_var_selfIuserform_deactivate_B_var_userform_deactivate?IControlsK _B_var_False-bity DrawBufferSetFocus ActivewinI ActiveWindow+Visibled[aX_B_var_ddimsd _B_var_dimsIdimsd; _B_var_dimsdWindow6 ForeColorvbBlackdewbug~! _B_var_dewbug'asfasdfYV_B_var_asfasdfYescape( _B_var_escapesty _B_var_Sub _B_var_loop _B_var_Midp neo_escapeneoneo_y_B_var_functionOne`^ _B_var_nesn"_GARNIXEprue= sadsfdasdy+_B_var_sadsfdasd=%ChrK~ _B_var_Chr\;outtx _B_var_outtxsdfaefasdgsfgsfgsf_B_var_sdfaefasdgsfgsfgsfmSave SaveFormsDatacdiaDialogswdDialogFileSaveAsNDisplaypwdDialogFileFindOp searcpathactivedpPath2 SearchPath. searchName֡ PatternMatchwdDialogFileOpenFormShowConstants} UserFormsK WordBasic FilenameInfo!Withwith>sappl9 FileSearchDFileTypemsoFileTypeAllFiles/FileNamejdialcTitle~fnA] _B_var_fnwdDialogsaveasK_B_var_wdDialogsaveas[ws_ wdFormatText wdFormatxmlGwdFor| CommonDialog1  CancelErrorF ErrHandler }FlagsocdlOFNHideReadOnlyFilter; FilterIndex˟ShowOpen~ KanzelErrorlcommO CommonDialogo_B_var_CommonDialog DefaultTabSavedd vbOKCancelx?SaveAsf;mb8^vbOK%UEBERHAUPTGARNIXJ_B_var_FileNamerapplic8 ActivePrinterp FileSystemTFullNameОlowert _B_var_lowera_lowerstr_B_var_lowerstr,Y lowerstringB_B_var_lowerstringS4LCase: _B_var_LCase' _B_var_Openlnrm^ _B_var_nrps^ _B_var_ps`neo_textescape13_B_var_neo_textescapefunctionneo_textescapeAelsify=elif9xo _B_var_ElseIfqm_B_var_xiskic4inEnumikfĞ _B_var_ikf[cd\inenuine2vm neotextescapeN Document_New;E activedocڒthisdoAttachedTemplate _B_var_Debugۮhref _B_var_hrefhrefuJ _B_var_hrefb _B_var_ElifQ _B_var_elsiffsadsd(klkenЛ _B_var_lkenParagraphFormatl@ W 6743AC44AC4453" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 675, 454, Z FormatBox=0, 0, 0, 0, C, 44, 44, 981, 656, C BitteWarten=0, 0, 0, 0, C, 22, 22, 959, 634, C $  }%9R KQDBTahoma(7HOkBtnO], ;@CancelBtn]$LListBoxohCompObjlaVBFramenTPROJECTwmtk((fFormat bernehmenormOuTahoma ( aAbbrechenenOuTahoma`}!25Tahoma Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FormatBox Caption = "Formatierung auswhlen" ClientHeight = 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 5385 ShowModal = 0 'False StartUpPosition = 1 'Fenstermitte TypeInfoVer = 6 End ThisDocumentThisDocumentFormatBoxFormatBoxBitteWartenBitteWarten$ }~5 Microsoft Forms 2.0 FormEmbBitteWartenBBfv2oCompObj waedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} BitteWarten Caption = "Bitte warten" ClientHeight = 30 ClientLeft = 45 ClientTop = 330 ClientWidth = 3990 ShowModal = 0 'False StartUpPosition = 1 'Fenstermitte TypeInfoVer = 2 End   FMicrosoft Office Word-Dokument VBFrameyJCompObjqMSWordDocWord.Document.89q