ࡱ > 1 0 H txtNonImportColumns " * , p chkEnableTiers ( $ ! # Frame3X ! $ + # Frame4X
Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmImportExmaralda
Caption = "Import from Exmaralda"
ClientHeight = 7335
ClientLeft = 45
Clieni 1 4 ' 4 . n` ` @_@_ f o - / C o m p O b j p \ p Thomas Schmidt B a = ThisWorkbook = hx P(< X@ " 1 A r i a l 1 A r i a l 1 A r i a l 1 A r i a l 1 A r i a l 1 A r i a l 1 Q T a h o m a 1 Q T a h o m a 1 A r i a l 1 A r i a l 1 C a l i b r i 1 C a l i b r i 1 ? C a l i b r i 1 4 C a l i b r i 1 > C a l i b r i 1 C a l i b r i 1 C a l i b r i 1 C a l i b r i 1 < C a l i b r i 1 C a l i b r i 1 h 8 C a m b r i a 1 , 8 C a l i b r i 1 8 C a l i b r i 1 8 C a l i b r i 1 4 C a l i b r i 1
C a l i b r i 1 C a l i b r i "$"#,##0_);\("$"#,##0\) ! "$"#,##0_);[Red]\("$"#,##0\) " "$"#,##0.00_);\("$"#,##0.00\) ' " "$"#,##0.00_);[Red]\("$"#,##0.00\) 7 * 2 _("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_) . ) ) _(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_) ? , : _("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_) 6 + 1 _(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_) 3 # , # # 0 \ " " ; \ - # , # # 0 \ " " = # , # # 0 \ " " ; [ R e d ] \ - # , # # 0 \ " " ? # , # # 0 . 0 0 \ " " ; \ - # , # # 0 . 0 0 \ " " I " # , # # 0 . 0 0 \ " " ; [ R e d ] \ - # , # # 0 . 0 0 \ " " q 6 _ - * # , # # 0 \ " " _ - ; \ - * # , # # 0 \ " " _ - ; _ - * " - " \ " " _ - ; _ - @ _ - k 3 _ - * # , # # 0 \ _ _ - ; \ - * # , # # 0 \ _ _ - ; _ - * " - " \ _ _ - ; _ - @ _ - > _ - * # , # # 0 . 0 0 \ " " _ - ; \ - * # , # # 0 . 0 0 \ " " _ - ; _ - * " - " ? ? \ " " _ - ; _ - @ _ - { ; _ - * # , # # 0 . 0 0 \ _ _ - ; \ - * # , # # 0 . 0 0 \ _ _ - ; _ - * " - " ? ? \ _ _ - ; _ - @ _ -
+ ) , * a >
P P ` ff "
20% - Akzent1
20% - Akzent2
20% - Akzent3
20% - Akzent4
20% - Akzent5
20% - Akzent6
40% - Akzent1
40% - Akzent2
40% - Akzent3
40% - Akzent4
40% - Akzent5
40% - Akzent6
60% - Akzent1
60% - Akzent2
60% - Akzent3
60% - Akzent4
60% - Akzent5 !
60% - Akzent6 " Akzent1 # Akzent2 $ Akzent3 % Akzent4 & Akzent5 ' Akzent6 ( Ausgabe )
Berechnung * + , - . Eingabe
/ Ergebnis 0 Erklrender Text 1 Gut 2 Neutral
3 Notiz 4
5 Schlecht 6 berschrift 7
berschrift 1 8
berschrift 2 9
berschrift 3 :
berschrift 4 ; Verknpfte Zelle < Warnender Text = Zelle berprfen` ?0 Sheet1 H Sheet2 X Sheet3 j b ( 3 A @ @
Q Word Pos Lemma This is Das ist ein Satz . PDS VAFIN ART NN $. d. sein Spans a test
annotation NP Chunk SB PRED COP PUNCT asd issd ad war " ? m 6 c c | | C Yh[}A }
00\);_(* ef ;_(@_)0 }A }
00\);_(* ef ;_(@_)0 }A }
00\);_(* ef ;_(@_)0 }A }
00\);_(* ef ;_(@_)0 }A }
00\);_(* ef ;_(@_)0 }A }
00\);_(* ef ;_(@_)0 }A }
00\);_(* L ;_(@_)0 }A }
00\);_(* L ;_(@_)0 }A }
00\);_(* L ;_(@_)0 }A }
00\);_(* L ;_(@_)0 }A }
00\);_(* L ;_(@_)0 }A }
00\);_(* L ;_(@_)0 }A }
00\);_(* 23 ;_(@_)0 }A }
00\);_(* 23 ;_(@_)0 }A }
00\);_(* 23 ;_(@_)0 }A }
00\);_(* 23 ;_(@_)0 }A }
00\);_(* 23 ;_(@_)0 }A } !
00\);_(* 23 ;_(@_)0 }A } "
00\);_(* ;_(@_)0 }A } #
00\);_(* ;_(@_)0 }A } $
00\);_(* ;_(@_)0 }A } %
00\);_(* ;_(@_)0 }A } &
00\);_(* ;_(@_)0 }A } '
00\);_(* ;_(@_)0 } } (
???00\);_(* ;_(@_)0 ???- ; _ - ???? \ _ ???@ _ - @
??? } } )
} 00\);_(* ;_(@_)0 - ; _ - ? \ _ @ _ - @
} } ,
??v00\);_(* ̙;_(@_)0 - ; _ - ? \ _ @ _ - @
}U } -
00\);_(* ;_(@_)0 - ; _ - }- } .
00\);_(* }A } /
a 00\);_(* ;_(@_)0 }A } 0
e 00\);_(* ;_(@_)0 }x } 1 00\);_(* ;_( - ; ? \
@ _}A } 3
00\);_(* ;_( }- } 4
00\);_(* }A } 5
00\);_(* ;_( }A } 6
00\);_(* ? ;_( }A } 7
00\);_(* 23 ;_( }- } 8
00\);_(* }A } 9
} 00\);_(* ;_( }- } <
00\);_(* } } =
00\);_(* ;_( ???- ; ???? \
???@ _ - @
??? M
2 0 % - A k z e n t 1 ef % M "
2 0 % - A k z e n t 2 ef % M &
2 0 % - A k z e n t 3 ef % M *
2 0 % - A k z e n t 4 ef % M .
2 0 % - A k z e n t 5 ef % M 2
2 0 % - A k z e n t 6 ef % M
4 0 % - A k z e n t 1 L % M #
4 0 % - A k z e n t 2 L湸 % M '
4 0 % - A k z e n t 3 L % M +
4 0 % - A k z e n t 4 L % M /
4 0 % - A k z e n t 5 L % M 3
4 0 % - A k z e n t 6 Lմ % M
6 0 % - A k z e n t 1 23 % M $
6 0 % - A k z e n t 2 23ٗ % M (
6 0 % - A k z e n t 3 23֚ % M ,
6 0 % - A k z e n t 4 23 % M 0
6 0 % - A k z e n t 5 23 % M 4
6 0 % - A k z e n t 6 23 % A A k z e n t 1 O % A ! A k z e n t 2 PM % A % A k z e n t 3 Y % A ) A k z e n t 4 d % A - A k z e n t 5 K % A 1 A k z e n t 6 F % y A u s g a b e ???% ??? ??? ??? ???
B e r e c h n u n g } % $ D e z i m a l , D e z i m a l [ 0 ] y E i n g a b e ̙ ??v% S E r g e b n i s % O O G 5 E r k l r e n d e r T e x t % 9 G u t a % A N e u t r a l e % d
N o t i z $ P r o z e n t C S c h l e c h t % & S t a n d a r d = b e r s c h r i f t I}% O
b e r s c h r i f t 1 I}% O O
b e r s c h r i f t 2 I}% ? O
b e r s c h r i f t 3 I}% 23 A
b e r s c h r i f t 4 I}% U V e r k n p f t e Z e l l e } % $ W h r u n g , W h r u n g [ 0 ] C W a r n e n d e r T e x t % Z e l l e b e r p r f e n % ??? ??? ??? ??? X T a b l e S t y l e M e d i u m 9 P i v o t S t y l e L i g h t 1 6 B 4c
=_MA
$ ? E gF
d MbP?_ * + % & [4d2?' [4d2?( <~?) <~?M
K o p i e r e r C a n o n i R 2 2 0 0 - 3 3 0 0 P C L
4d X A 4 Canon
C a n o n i R 2 2 0 0 - 3 3 0 0 P C L 6 s dd d
d d
d
d d
d d@@ d d
d d d d" edd !'
) dd d
!"#$%&'()*-./089:1234567>?@ d!! d
d !"#$%&'()*+,- dA
A d
d @8 4 ( ( r 1 4 ( ( r 1AXX d
2 A r i a l \SRGBCO~1.ICM \SRGBCO~1.ICM \SRGBCO~1.ICM C O N F I D E N T I A L C O N F I D E N T I A L H A r i a l D e f a u l t S e t t i n g s @ @ " d ? ? U $
>
>
>
>
?
A
A
A
A A
A
A
A
>
>
>
>
>
@
@
@
B
B
?
? ?
?
?
A
A
2 ` 8 8 8 8 4 8 b 8 8 8 B 8 4 8 F 4 & * ! " #
A
!
"
# < & (
~
< w# X P P ? x ] 4 @w#
CCo{
< Amir Zeldes:
Tool=Treetagger< F ] Amir Zeldes > @ $ * 7 Sheet1g g D & r
W
d MbP?_ * + % & [4d2?' [4d2?( <~?) <~?M
K o p i e r e r C a n o n i R 2 2 0 0 - 3 3 0 0 P C L
4d X A 4 Canon
C a n o n i R 2 2 0 0 - 3 3 0 0 P C L 6 s dd d
d d
d
d d
d d@@ d d
d d d d" edd !'
) dd d
!"#$%&'()*-./089:1234567>?@ d!! d
d !"#$%&'()*+,- dA
A d
d @8 4 ( ( r 1 4 ( ( r 1AXX d
2 A r i a l \SRGBCO~1.ICM \SRGBCO~1.ICM \SRGBCO~1.ICM C O N F I D E N T I A L C O N F I D E N T I A L H A r i a l D e f a u l t S e t t i n g s @ @ " d ? ? U P H 0 (
> @ ? $ 7 Sheet2g g D &
Y
d MbP?_ * + % & [4d2?' [4d2?( <~?) <~? " ? ? U > @ $ 7 Sheet3g g D &
T h i s W o r k b o o k : W _ _ S R P _ a _ _ S R P _ b S h e e t 1
! " # $ % & ' ( ) * , - . / 0 1 2 3 4 5 6 7 8 9 : < = > ? @ A B C D E F H I J K L M N O P Q R S T U V W Y Z [ \ ] ^ _ ` b c d e f h i k l m n o p q r s t v w x y z { | } ~ rU x 3 3 / - # 8 / ` `
I
W
8 8 @ S S 0 <( rU
D $
` \ $ A
` ` $
` U $
` Y n " ` ' e # x ME ( SL S S < N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } @ ( % H @ 0 wN x Attribut e VB_Nam e = "She@et1"
Bast0{00020820- C $0046}
|Global!SpacFalse dCreatabl Pre decla Id Tru
BExpose Temp lateDeriv$Bustom izD2 ` ' eT> # x ME S h e e t 2 S h e e t 3 + m d l E x p o r t T o E x m a r a l d a * H _ _ S R P _ 3 ( SL S S < N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } @ ( % H @ 0 wN x Attribut e VB_Nam e = "She@et2"
Bast0{00020820- C $0046}
|Global!SpacFalse dCreatabl Pre decla Id Tru
BExpose Temp lateDeriv$Bustom izD2 ` A@$ o x ] ' e- # x ME ( SL S S < N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } @ ( % H @ 0 wN x Attribut e VB_N 8 7 E M er # @ 67+M*4'~ F p AŵBC x p AŵBC67+M*4'~ ME P SL S S 0 <( < , 6" < N 0 { 0 0 0 2 0 8 1 9 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } 0 % % % ` ` \ " ` ` ` T # # & % * ver % $ ` X ` % "4 @ ` ` ` D dT wN * \ R 3 * # 9 2 $ * \ R f f f f * 0 R 4 e 7 0 b 7 0 4 8 M N N P L . J ( H x H 6 @ L H P ` H P " X ` h " p x " ( ( H h 0 P X ( x " ( H This program is free software: you can redistribute it and/or modifya H it under the terms of the GNU General Public License as published by E the Free Software Foundation, either version 3 of the License, or ' (at your option) any later version. C This program is distributed in the hope that it will be useful, B but WITHOUT ANY WARRANTY; without even the implied warranty of A MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 0 GNU General Public License for more details. E You should have received a copy of the GNU General Public License I along with this program. If not, see . Z Exmaralda Import / Export and PAULA Export Excel Add-In version 0.9.5.7 by Amir Zeldes ] A@ o ` A@$ o x ] ] X Exmaralda .% 0 % 2 B@4 ( .% 0 . & 8 l &! 2% 6 . * Exmaralda *( : < l *! 2% 6 Import from Exmaralda...9 : ShowImportExmaraldaForm 9 >q p < l *! 2% 6 Export to Exmaralda...9 : ShowExportExmaraldaForm 9 >q < l *! 2% 6 Export to PAULA 9 : ShowExportPAULAForm 9 > q < l *! 2% 6 Transpose selection in new sheet9 : TransposeInNewSheet 9 > q 8 o 0 Exmaralda .% 0 % 2 B@4 o Attribut e VB_Nam e = "Thi sWorkbook"
Bas0{00020P819- 0C $0046}
|GlobalSpacFalse dCreatabl Predecla Id Tru
BExpose Templ ateDerivBustomifzD2' program is free softw I: you can Oisit a nd/or modify
% under th e terms ofGNU G eneral P ublic Licenas pish ^b% FEDSD Fo-a tion, eir vers 33, or$(at0r op)-y KF..@
BdF%
Exmada Import / CBExc el Add-InD0.9.5. 7 by Ami r Zeldes OBC itA Dim cContro s Comm BarButtonaa P`nA`o Sub _ inInsta0ll() Menu
End
UniDeleteA (
!
Az`bMainA AI
cC/ c On Err@GResbuNex% A,pp`'s.g%s(1)(s("&8").#
GoTo 0DSet cJ=
C- =
.((T ype:=mso Popup`8 Dcb .CaG@W` JK~sL%)
$`fromVb... OnAcAaShowcfFormQ +$$tto (O#o
onng
PApDoob b/h/om5O&I&/X%TasRle# hnewr set
vInNewShe P-pD DFE??n@UR?[?E?qN am e = "She@et3"
Bast0{00020820- C $0046}
|Global!SpacFalse dCreatabl Pre decla Id Tru
BExpose Temp lateDeriv$Bustom izD2 rU $ ` $ ` 8 ` a y 0P `$ a 1 a wN $ * \ R f f f f * 0 v 4 e d 0 d c 9 0 * \ R 1 * # 1 c 8 * \ R 4 * # 1 6 * \ R 4 * # 1 d * \ R 0 * # 1 c * \ R 1 * # f 1 * \ R 0 * # 1 b * \ R 0 * # f * \ R 0 * # f * \ R 0 * # e $ * \ R f f f f * 0 I 4 e 7 0 b 6 d 1 * \ R 4 * # 1 0 * \ R 0 * # 1 b * \ R 0 * # 1 4 * \ R 4 * # 1 0 * \ R 4 * # 7 * \ R 4 * # 1 * \ R 1 * # e 8 * \ R 1 * # 2 a c $ * \ R f f f f * 0 w 4 e d 0 d c 9 4 * \ R 0 * # 2 3 " ( " 0 8 H " P ` h p x
! 6 T 8 @ H j P ; < v l f } $$ % ;h eQ x ME ( @ (b ( >
He`@ `B olum`D sel `
` $ $ `b r
`
it
liv 3 \ C ( | 6 @ l \ S 8 H 3 2 \ \ E R H H X 8 6 J M S R p @ P ( \ @ X ` p H @ 8 ( @ 0 h
h > @\o8 , > p V < 0 ` 8 > V < X
`
h
P
T
6 S 0 h p x x # x
q
x
6 S . t ( '
J 5 H B P h p x
! ^ +
0
@ P X `
d :
( H P
X " , h @ p ! ! 8 0 H ` # ` $ Z ; f x T > ( ~ 8
z ( A
$v { $ # 0 $ $ P ( p , H 0 7 , 0 G , ( ,B ( 8 (j @ $
t R *H * " = p
P 0 J
H F 0 x & B
(
0 @ H
P C ` - B , ! " ! (! 0! P! X! p!
! p Z !
! * "
8"
@" H" B P" X" ( `" + " " ` " 3 # (# 0# 8# @# H# P# X# `# h# p# B x# #
# # # # 8 # # # # $ $
$ $ ($ 0$ " 8$ @$ H$ P$ X$ T `$ $ $ $ $ 4 % 4 8% p% x% % % % % % % %
% % % & & (& 8& @& H& @ P&
& & & & . `' ' D ' ' ( ( ( ( 8(
`( ( p( & ( ( ( (
(
) ) B ) * h) ) " ) ) ) ) ) ) ) * * (* 0* 8* @* H* P* `* x*
* * * *
* * + 4 +
P+ `+ h+ p+ + + + " + + + + \ + , (, 0, H, $ P, x, , ,
, , - ]$ h P LB@N o P X P TB@N o 0 ] p ] ] x h. d ] ] d! n' j # Assumed to contain annotation names d! p' l ! B Assumed to contain uninterrupted token stream with no merged cells ] ] ] ( ] ` [ this keeps track of what the last row is, to add a closing event to the timeline at the end d! z! | v Comments ~% ! ' r d 8 no header found or desired, use default EXMARaLDA header " & * : < @ D m ' r k ` d! ! |' f ` d `! n j '
Header Row `! p l 2 z Assume token column is first column in selected range, give this layer type="t" (transcription) if not otherwise specified ` id= $ \ `! p l + v d `! p l + v k d X Assume columns other than the first are annotations, type="a" by default, if unspecified ` id= $ \ `! p l + v d `! p l + v k k d
Tokens and annotations `! p l 2 9 Start of a new row, create time-line event for this token t ' t x / f
rows exported T( A@ k `! $ , ` Note that in spans, cells after the first one are empty - this avoids generating events for them Create event for this cell; for spans the expression 'cell.Rows.MergeArea.Cells.Count' gives the span length (one column spans are assumed) `! p l $ v
`! `! p l + v `! p l ^ e `! p l $ v
`! p l + v k k x `! n' x ` x / f
rows exported T( A@ ' Close and print all tiers and time-line ] t ' t r t ' v $ v '
XA@ o ] ( ] H x h. d ] h ] ] d! n' j L Begin pasting EXMARaLDA timeline from the first selected row for each column d! p ' ' Begin pasting EXMARaLDA timeline from the first selected column, minus 1 since it is incremented when the first tier is detected j' ] ] ] ] ] @ X % . ] X ] p vbscript.regexp $ . ( ( ( ] ] vbscript.regexp $ . ( ( ( ] ] vbscript.regexp $ . ( ( ( ] . ( T Store and serialize the labels of each time-line event, since IDs are not sequential ] ' ] ] 8 ] P ] p " + used to disable import of undesired columns ] ] ' ] ! a ! ' ' k d x : make sure every tier & event starts and ends in a new line < ( %*%< % ' ><(tier|event) ( >%*%<$1 % ' %*% $ ' ((.*)|(.*)) ( $ % . ! |
! | $ $ $ > $ $ j % ( j % ! $ j % ( k ; .* ( j % ! % j % ( k h
B
Span detected j % j % $ b . B@ k k k k r Comments ~% ( k ` ' d @ ! | ' k i % Get the Comments property of the file Comments ~% ! ' i ] ADODB.Stream$ . 9 l
adTypeText utf-8 9 C@ $ @$ h% 4 ! n h% 4 ! ! | > @$ $ b B@H
P N T R V X hB@L first block ' > 5 next block should start 3 rows lower than current one ' @d copy headers again h% 4 ! n' D $ 2 $ $ b B@H hB@J D $ D $ $ b B@H P N T R V X hB@L k B H ' H B ' H B@H ! ZB@\ A1$ b B@H * return to transposed sheet top left corner .( ^ $ turn off copying selection o 8 (
( ] h
' b b$ . d d! d$ a b$ . d b ' b ' f ' h ' j ' l l
a ` b h `$ . n nB@H n$ n! d F j ' j k ` j
d F l ' l $ h b $ $ b . p pB@H | p k h h ' h ' j H o @
] ] 8 ] P $ Excel (*.xslx; *.xls), *.xlsx; *.xls Export to EXMARaLDA Export .% ~ ' x z x z' | z % . A@` | | $ xml ' | OutputExmaralda File | t v ^A@V B@B z o r $ ' r @ - ٶ Attribut e VB_Nam e = "mdl ExportTo Exmarald a"
Publ ic Const BLOCK_SIZE b200
@Sub Sh0owImForm()Nfrm 6./ vbModal"End G
vUU $U@Output(( strFile As Sng, Optional boDoc MetadataBoolean! TrueTier%Inser`tSpac?,FPalse Dim Cell>Range
Rng1 lng RowCountLong On Error ResuNextLGoTo C zASet B= SelecG &intFirst@ IntegerColumVn=.A'As&d to contain @annotaA n@sD un errupteken eam wit h no merzgc@]D3
Pr bITimpeLin&s<()BnRe8ach @o ' this kee ps track of what the larow is,K add a cl osing eveQ
t@lADendcRea9`R@K. @I RGIf In (1, AAve Workbook .Builtinf KntProp`\ies("Comm@s").Valag" 0 &A/n= l ThenR'plausi!0XML header f]d D fzL'sc pyHd `+cx%use doc>}-oi>=_ IV &Lf _!e ""<@Ij-a>)vbLfxfrmEx portExma ralda.lb lProgress = lng PReachedv / NCoun& vbCrLFfi 4 3 0 8 6 n` ` 4_ 4_ f . o 5 7 " C o m p O b j p s e)eDd"8DoEsA End I OI f Not IsEmpty(Ct Value) T`hen 'hat } spanss aft"ee f oy ar Ɓ$ a voids ge nerating%sem^'C c ;
B!@zɀxpAPio *is.MergeJA .3s.O' givehe1 length (-colum
n7 0assumed)O'CB sKH+ 1)@v C=st@ en*+ }OBB B .@*}A+=B# Next @HI'Cl ose a pr! aller`cDim Output As StgtAmK&91 ("-E0B("vbsRQ.r 6xp"RE.v0BsGlobal`VIgnoreCar= 11CRE2 m ` գ 20 A] 2 . n. # 3 3; 3 REV3 3 3 Q ULabel"*:N\=Sw 'St ializQe lcF&c3 wR@IDnot sequ@0c "I2`9T/@1*TV~X EventEnd As Inte@ger
D im rngTemplRangedbolValidColumn@ Boolean 'used to disable import of undesTir ") Then8ZkFalslIf6? /D/I& DecodeUTF8( 5) & vbCĆB # 'make s ure every tier@ nt@arts a ends i n a new lT RE.Pa tternZ"</(|)?><<"K *
Re`place0A\/ $1>%*%<"r)Y>(.*)|lE)3A Set REMatches&@!ExecutA&(q)& / j .C`/t > 1va 5i5M8- 1O %@
In$(i)W8E 'Time!fAljdeclar ation, f e`aNLaba/!*.gene/e 9C l!.7='Check ife should b9eedBNonIs( m 72&=p&+ 2z,s !- 2))hA^piEn1T`9i = q!GoToextQ9a ^ oiz Ya-CurrpԖ=9+/. / '
D@o@utpuHt hЌeryf teatH5s f )ÙActi veSheet. Cells(lnBg4Row,.)z.!u! JOH.tr?H..2.m
J ).Font.Bo0A ?/ sC!9Metadata5;?# RE2(sdper|0Py -[Nn]ame |type|id)=([^\}
+ ?o s2ɉ2.ne}j@d}oHasCommpA(%%%Y"T8 ,
) Y
.Text "O^_
!
CurrentRow, int Column).Comm t.Te xt & Chr(10)
$ @End If'^A ctiveShe et.Cells0(lng(=?& RE2Match es(j).su$bm0) "=V"1$Nj !*ElseIf InSt , uti), " 0 A@nbo@lValidC = True T@hen 'E d eclarati on, writ@e to cÔ "cB ifFs desired> @A imeLineLabe@Mid(RE.U4@start= 4+x 7,=
3`4)) -O- 7)\E7AnTu7end656I
n6q- 5o Firs +:qNumberFor n>"@"D
t
[Y= D ecodeUTF\8(?Kbe>J1/ *" m.*_7
>aOB71 o%//tu$ ߏ
J-yKqB1pSpanltectl_Set rngTemp! Rang4s(OOE,?1Pc ?@J 7 D .Merge(qߞo"i5n Q:2q7Loop
5 ImpDocMetadata@5Workboo k.Builti
n`uaPropPertiP`"s").,strPreamblt@/eatHea0dersReturnFa&InputEx q$14|- @ Cda s
owcl
q :&0N%() )H{I:
aP R4.
0>U ~: qb//S`JBe)fR,e z 2 AS s PWExA Multiple Files(By! bolDoBcdata!0B o olean, B yVal bol ExportTi erMetada ta As Bo
InsertSpace@)
Dim Dats*Variant1(FilT
(snamString ):= App lication .GetOpen?-("Exce l (*.xslx; ls),", , ) to EXMARaLDA TrueY For Each SInb
T=
Set bk = Wo rkbooks. U(!+ ele ctAll'Left(., Len) - 3) & "xml"'Output Exmarald aF+Doc=,v bk .Close S avechang es:=FalsBe Next#E nd Sub
A X 8 (
5 0 pz 8 :dF NTT D
D6 Y@t6 TD ( 0lti h 0"lt 0 pz 0~q pz < " 0 t E T D 0 0 (
0
9 $
ll= pl paT "pj5T paT " ph5T kjqd +l P$
| ll= Ll T
T4<5T f(% rU ~| G ! I q - A Q i !! I! ! ! Y. ! . !" Y" " " $ % % & A& 9/ 0 Y& & & & & ' )' " " # q 1# i# # # ( 9( i( ( ( ) ( , y0 A, a, - - 0 P l % $ d $ 0 X 0 | K K !l $
ll= pl paT "pj5T paT " ph5T kjqd +l P$
| ll= Ll T
T4<5T f(%<
c(%< f(%<
T
T45T f(%
c(% f(%
T
T4 5T f(%
c(% f(%
p p L
$ k L
0 >1H lH R p k "llH #*# *12 :( %< !H@: % ` p @8P :8? @0( T:? ( "
& F%kjk D%h@l $
@ l+ C, /l6 TpP`@ $ kjk D(%h@l $
@ lT+ A, 5 @ A F%kjk D %h@ $
@ p+ C, /) l 6 Tp kjk D(%h@l $
@ lT+ A, 5 B A F%kjk D %h@ $
@ p+ C, /) l 6 Tp ( " :(C % kjk D(%h@l $
@ lT+ A, %:5 % %kjk D%h@ $
@ p+ C, ) l 6 Tp kk kjk D(%h@l $
@ lT+ kjkD %h@ $
@ + T $
Q) l 6 T
4 p~P ~ } : ClF%:(D % l $
H l
\ E T C, ) l 5T , Y khpz u
$ ' l pz m ( | v ` P p $ < 8 L P @ p Di n H t p p L H 4 l T p ` P @ 0 (** 0 0 K +l =X6 A87 :H5 ]/(6 X8 5 0 3 l =X6 A87 FH (6 X8( z pz pz pz d $ _ _ S R P _ 2 ; f r m E x p o r t E x m a r a l d a &
m d l C o n v e r t U T F 8
_ _ S R P _ 8 G
0$ ! ` , I ` 9 a 00, q ` Y q /, ` 00$ ` $ ` 0
` n rU ~| As Sng
= AppFation. GetSaveA
sn("un titled.x ml", "EX MARaLDA @XML (*)<, A² t\o
"@`If Not (!"B" Or+@ƀ") ThenKOutpu
\`MsgBox5-successful@ZIf
N
^l
UForm_In itialize K cCBool(A.ettinHg("Ex?P luginA'HK EY_CURRENT_USER)( -1)+#
O_
l_
i
Z f df-Termin~C-XS#*: m#?*b@+*CInt(N7, `6L) ) xC )% +<< < < < < <$ <( <, <0 <4 < 0 { 6 ( ) !
( & & 8 ` x x p I -------------------------------------------------------------------------
Constants I ------------------------------------------------------------------------- ]D ]D I ------------------------------------------------------------------------- API Declarations I ------------------------------------------------------------------------- 0
p H
& p I ------------------------------------------------------------------------- DecodeUTF8 I ------------------------------------------------------------------------- G z j $ ' $ ' i I ------------------------------------------------------------------------- EncodeUTF8 I ------------------------------------------------------------------------- G z j 6 EncodeUTF8 = StrConv(WToA(sValue, CP_UTF8), vbUnicode) $ ' ! x $ ' i I ------------------------------------------------------------------------- WToA 3 UNICODE to ANSI conversion, via a given codepage I ------------------------------------------------------------------------- p ] D ] D8 ] DP ] Dh G $ ' j $ ' $ ' $ \ ' $ ' $ ' $ ' i I ------------------------------------------------------------------------- AToW 4 ANSI to UNICODE conversion, via a given codepage. I ------------------------------------------------------------------------- ] D0 ] DH ] ` ] Dx G $ ' j $ ' $ ' $ \ ' $ ' $ ' $ ' i x Attribut e VB_Nam e = "mdl ConvertU TF8"
Op tion Com pare BinaryXExplicit
D'-E
' tnstants HX`Priva ts t CP_ACPq}0
65001qAPI DeclaraTu0e FunBc3 GetzL ib "kern el32" () As LongBMultiB yteToWid@eChar ByValodePhage_OB, dwFlag&s lpStrMcch +$SF,
!< To "<R&;E?+;IhJ I lppDefa 97lpUsedP$#}? }v#}Lod>en}
%XubW@'_ (Qs@UubT@0ingB CC~ If Len()A Then Exit [g WToAd,)Ah(a !
End ##g#' Enc._
,. . .` ' . 7
!(/*, vbUnia b1*2 'I; 6?)9? #UNIC ODE to ANSI c"s ia a givT pఠ dt6e?5r905, s@acpg]0-1,\\l*b09Dim cwch@( L
pwzUBufferFus A = -13A u(2&!= PP
N
t e X f
@7 oo UGLZ{>EG}'A4 byS]C* x byS]C*f
@7 o ME 8 SP S S S 6" << < < < < <$ <( <, <0 <4 < 0 { 6 F 1 F 6 A F F - 1 7 F F - 4 1 A 8 - A 5 F B - A 4 8 C D C C A E 0 D 6 } { 2 5 5 4 B 9 9 0 - 6 2 D F - 4 C 6 9 - B C 4 E - D 4 B D 5 F 5 F 0 6 0 B } @ ` ` `
` @ `x oken X ` T@ ` d@ % % % @ X H % Tx % 0
x l
( h T@ d Actu@ T 8 x Vr ` t ( @ d @ T @ D @ 4 @ $ @ @ ( @ @
p @ @ X X @ x @ h d @ X P \
wN $ * \ R f f f f * 8 m 4 e 7 0 b a 1 1 4 8 < @ D H L P , " " 0 " 8
@ P " X ` b I h " p + 0
8 H " P R 9 X T 9 P 9 X " ` L 7 h N 7 J 7 X h o p @ A@r o H A@r o ( ] untitled.xml EXMARaLDA XML (*.xml), *.xml Export to EXMARaLDA Export .% ' False A@V Export successful A@ k A@r o ExmaraldaExcelPlugin HKEY_CURRENT_USER ExpDocMetadata $ X,' % ExmaraldaExcelPlugin HKEY_CURRENT_USER ExpTierMetadata $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER InsertSpace $ X,' o X ExmaraldaExcelPlugin HKEY_CURRENT_USER ExpDocMetadata XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER ExpTierMetadata XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER InsertSpace XA@ o Attribut e VB_Nam e = "frm ExportEx maralda"D
Bas0 {6F1F6AFF-17 41A 8-A5FB-A 48CDCCAE 0D6}{255 4B990-62 DF-4C69- BC4E-D4B D5F5F060B}
dGlobaBlSpacoFalse Cre atabl Pr@edecla Ibd Tru
Bvse0Templ ateDerivCustomizDP Su b chkInsertf_Cli ck()
8End
md`Batch
Mul tipleFil es3 DocMPetad , Txier FY"C ancel!Unload MR/'
Dim C)tr5DQ% = ee(@, , ,, 0&3 Or
0$(+ vbNull^%
%
,RD #@ Lef(t$( , - 1 5g/* --s4AX a445 55.` &5aS mj/5/5a&/5X/5*54r2m 5(/3tC2-/3P/3/3 f)(3B- 1Aa1RA1
*=_ar_1p1b ?08?0]
\
@ e l GetACP 0 MultiByteToWideChar X WideCharToMultiByte x ME D ( >
( % +p p +p p i i i i 0 i P i + D p D i i i x i 0 i P i p i i + ` tk i +p ` tk P # i + ` 0 @k 1 i i i ` p `l `h `d + ` @k F i i i `h p `l `h `d B C p p p 0 ` x `t P h 8 x ` H 0 `x m `t v i \ B i \ g r m @` a \ @P 2 \ @@ g r 0 ` 0 x H 0 H `x C : X 0 i n \ a n n `t \ a h b i n \ r a @` o i @P C : @@ w a
`x e d
r o g
i l e `t 2 .
b i n I N D O W \ 0 wN $ * \ R f f f f * 0 I 4 e 7 0 b 6 d 1 * \ R 0 * # 1 7 * \ R 0 * # e * \ R 0 * # f W P ` P p P 0 P H H H H$ P P 8 B P 0 P H B < ( P 0 : P B
@
P
`
p
8 3 !
> 0 P h P p : P B `
) 1 I+ 1 1 1 q* L l Ct ltJ lt 1x lx 1x L , x t L l Ct ltJ lt 1x lx 1x L , x t l Ct l ' ^ q` ? @ A B C D G Z I J K L M N O P Q R S T U V W X Y F [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } H " P X ` h p
x d H h x
0 8 @ P h
n x *
X
8
H X ` h p $
0 " 8
@ P " X ` h p x
! d D
(
( @ 0 P 6
( 0 8 H 0 P 6 ; ,
( 8
@ P " X R 9 ` T 9 L 9 L 9 ` L 9 N 9
J 9 P
H 9
F 9
F 9 0 F 9 x \ 0 N 9 T & p J 9 N 9
@ h
< 6
"
L 7 N 7 P F 7 F 7 F 7 0 J 7 x F 7 B 7 B 7 X B 7 B 7 L 4 0 J 7 N F 7 H 7 h B @ 4 : 8 . x : . @ B X 2 :
8 H P X ` h p ! G ( j L ! G ( j o 0 @ ] t T ^7 e9 BwCGF.3R;%N7KيG}A s' P .=*C_H. x .=*C_H.BwCGF.3 ME \ @ SP S S S (b < 6" L
L L L L L <` @ < @ , @
* @ @(
@ h 8 P "$& @x @h @d
( @*T ( x X ( wN $ * \ R f f f f * 0 w 4 e d 0 d c 9 4 * \ R 1 * # 1 c 8 * \ R 0 * # 1 d * \ R 0 * # 1 e * \ R 1 * # f 2 $ * \ R f f f f * 0 v 4 e d 0 d c 9 0 * \ R 0 * # 1 3 * \ R 0 * # 1 0 * \ R 1 * # d 7 * \ R 1 * # e 8 * \ R 1 * # 2 a c * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ . . \ . . \ W I N D O W S \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y * # 4 4 * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ . . \ . . \ W I N D O W S \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y * # 5 5 * \ G { A C 2 D E 8 2 1 - 3 6 A 2 - 1 1 C F - 8 0 5 3 - 0 0 A A 0 0 6 0 0 9 F A } # 2 . 0 # 0 # . . \ . . \ . . \ . . \ . . \ W I N D O W S \ s y s t e m 3 2 \ F M 2 0 . D L L \ 2 # M i c r o s o f t F o r ] ] ] h. dx ] ] ] ] 0 ] H ] h ] d! p' d! n' * EXMARaLDA XML (*.xml; *.exb), *.xml; *.exb Import from EXMARaLDA Import .% ~ ' ! Office 2007 ! xlsx' 3 ' d h xls ' 8 ' k H d @ xls ' ' k ! txt ' > ' ! e csv ' ' k $ .! ! 6. ! ! .( k X $ X ' $ ' .( $ ! The file * already exists. Append .bkp to file name? File Exists $ '
K T $ bkp. ' K T A@r | ( K T The file was not imported! File not imported A@ B@B .( n k $ ' A@ ~B@ .( ! B@B k k A@r o A@r o ] ] 0 ] H ] ` h. d d! p' d! n' * EXMARaLDA XML (*.xml; *.exb), *.xml; *.exb Import from EXMARaLDA Import .% ~ ' $ " d! n $ d! n $ $ b B@H $ X $ ' d @ $ d! p$ d! p$ $ b B@H $ X $ ' d d! p$ d! p$ $ b B@H $ X $ ' k 8 d 0
G B@6 j $ X A@ k k k A@r o ExmaraldaExcelPlugin HKEY_CURRENT_USER ImpDocMetadata $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER ImpTierMetadata $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER chkCDATA $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER chkUDInf $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER Adjacent $ X,' " ExmaraldaExcelPlugin HKEY_CURRENT_USER Consecutive $ X,' $ ExmaraldaExcelPlugin HKEY_CURRENT_USER Separate $ X,' & ExmaraldaExcelPlugin HKEY_CURRENT_USER XLS $ X,' ( ExmaraldaExcelPlugin HKEY_CURRENT_USER TXT $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER CSV $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER XLSX $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER NonImportColumns tier1;tier2 $ ' ExmaraldaExcelPlugin HKEY_CURRENT_USER EnableTiers $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER OptSaveAsXMLName $ X,' * ExmaraldaExcelPlugin HKEY_CURRENT_USER CloseWB $ X,' ExmaraldaExcelPlugin HKEY_CURRENT_USER Overwrite $ X,' ! G ( j .! .$ , ' Office 2003 or earlier, not 2007 ( ( k o ExmaraldaExcelPlugin HKEY_CURRENT_USER ImpDocMetadata XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER ImpTierMetadata XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER chkCDATA XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER chkUDInf XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER Adjacent "XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER Consecutive $XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER Separate &XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER XLS (XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER TXT XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER CSV XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER XLSX XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER NonImportColumns A@ ExmaraldaExcelPlugin HKEY_CURRENT_USER EnableTiers XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER OptSaveAsXMLName *XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER CloseWB XA@ ExmaraldaExcelPlugin HKEY_CURRENT_USER Overwrite XA@ o @
: Macro Purpose: Function returns TRUE if the specified file . or folder exists, false if not. 4 PathName : Supports Windows mapped drives or UNC ' : Supports Macintosh paths 3 File usage : Provide full file path and extension ' Folder usage : Provide full folder path : Accepts with/without trailing "\" (Windows) < Accepts with/without trailing ":" (Macintosh) ] + Ignore errors to allow for error evaluation 0$ 4 ' 2 4 Check if error exists and set response appropriately 6! 8 R T ' S
' n
Resume error checking `
i X
P
Attribut e VB_Nam e = "frm ImportEx maralda"D
Bas0 {21F68AA C-8CBF-4 ED2-960B -7D1AE9A 6112B}{8 D478D8A- 1016-417 D-9F1E-9 073271EEB50}
dGlobalSpacAoFalse Creatabl Predecla Id Tru
BExpose0 Template DerivCu@stomizD
0
P S ub chkEnTiers_C lick()
If
.ValuiW Then @txtNonColumns.& k#l!$@
E nd,0 1mdB0atch"1Di m Files As Variant
AintCurre.Integer
RowNRng1!RangnSet = Selectionrrt
BooleastrExtens
S@ngForma
$XMLĀ3 NewWorkpbookFFinM@!AII
H=8.Cz>R@Hg]= (AppaAD.G@etOpenn ("EXMAR aLDA 6 ( *.xml; *.exb), @", , "; from f@ SWWoptXLSXLR#N'Offi x2007
U.]#6 xlsxACa $7= 51cEo6]I f^&xlN Gle!TXTx#
{
`5F8cC%CSV oncsv @ yIsArray:(F)4C i1 To UBounda+oi`Nas.AddO'Cl@W.Bue8 .[Visij z= C z(i)@X@3w= Left(, n ) - 3) & ):' DisȀyAlerts ,Ĭ"a1OrDiA ists(I) "AT'Overwrite' 9 UseBKPMsgBox("` f "vbCrLf w& v" al vdy exQ .!Fe@.bkp toE?@vbY esNoCancLelD!
E"H [ C3
w{
B9c"` .?aB Unload Mh;9 t#sY No;3 ??9was not iBed!OKOnlyU@I y58= Ad+( Go@CNextq a9# w: q=Ä9'InpuWa7,1@kDocMetadata%ᖛ7s, !ARCDATA UXDIn buAveN.SaveQ:= 65, ]:=s g
B(TУaao x: < im/QSub zmdC@סOQ3 cmd#///s R/"*>?'R>a q^ >= O~ 'O~ as8Z i AdjntPV q(e 2(Cel(ls(., /;)).
B
?` I@(|:pO@pO@ԲJ@ @) +
;Consecut0a5 P:%IR,DF/1%Mc
intCur rentRow = x+ Inp utExmara lda(CStr (Files(i )), chkI mpDocMet adata$Tier&txtNon RortColumns(Enable+ TrueCDATA UDInf, )
El se%Range(Cell , Rng1.A_ ).Select3Fand If4SIf i > 1 Then W orkbooks.AddODˊ /:38ENe@xt i
Unload M@ASub
E Private UserFor m_Initia lize(W
@CBool( GetSetting("Exc elPlugin ", "HKEY _CURRENT_USER@-1)CI@
i
Bq? " I 7b{_ _ k" F optAdjac@ % Consecutive ` 0A< Sep N= HH% XLS@
cR TXT
}
CSV_
]
H
X
}
~'~ "t 1; 2"E
:OptSav eAsXMLNam.LLL MCloseWB OSOSIS verxwri4 YYOs
q8.Valu1Ss?"s.dqf(Applic ation.Versp ) < 12 'Offi ce 2003 or earl ", notA7Sp 9a*ҁ'psqDpooTerminPqo"Dn OnOnOnpCInt(o`/?ttmHyo_T__0 n OOp?A@mE OOO(mB"%tlXxl%tP2% l k
X j Ns
;;/aJ!:s 1X Pi %t7i___Thf jxF(uncd qOr D DirExist s(PathNa me As St ring)PBo olean
'Macro Purpose: Functio n return s TRUE i f the sp ecified pfileo r folder e, falseCnot.59: Supp orts Win dows mapp hdrives TUNCq; intosh p}sF V usage5: Pr ovide fu lld andXtens d
5eAccepiwith/out trail "\" (w) : z!Dim iTemp|Int0eger'I gnore er rors to allow@on evalua! On EResu NextCC= GetAt trƞ$ 'Chxeck D^setspon~ropriatelyCSele`ct Ca !.0NumbE4Isp = 0 `A}Or TruC@ FE 'BC3c7@vKGoTo&
`\6 P|l@, M (P`!
`
Pc@]3`5P (@ ]3 i khD@%daP "i %` $
X `| khD %da "i% $
X l hl| $
h ) `h6 P|l @lP `!
`
|!
lh!
h
@d!
d
,`!
`
\!
\
kh+V+,V+*+<@V+>l`P|V+TV+VPKX ! $ ph2 XP) `hd`\6 P|l@, khD@%daP "i %` $
X `| khD %da "i% $
X l hl| $
h ) `h6 P|l @lP `!
`
|!
lh!
h
@d!
d
,`!
`
\!
\
kh +V+,V+* +<@V+>l`P|V+TV+VPKX ! $ ph2 XP) `hd`\6 P|l@, K (@ ]t P + '@%` $
`
( " ) ` @lP `!
`
|!
lh!
h
@d!
d
,`!
`
\!
\
+V+,V+*+<@V+>l`P|V+TV+VPKX
! $ 2 XP) `hd`\6 P|l@, ~ l `# $$
% ` hx8 l d H X P ` h d ` \ P | l @ , l ( 9(l% #hWTd!
d
/hd5T 9(l% #hWTd!
d
/hd5T 9(l% #hWTd!
d
/hd5T 9(l% #hWTd!
d
/hd5T 9(l% #hWTd!
d
/hd5T 9(l %
#hWTd!
d
/hd5T 9(l % #hWTd!
d
/hd5T 9(l% #hWTd!
d
/hd5T 9(l %
#hWTd!
d
/hd5T 9(l % #hWTd!
d
/hd5T 9(l % #hWTd!
d
/hd5T 0:l % FDd!
d
d5D 9(l % #hWTd!
d
/hd5T &(l% #hWT4/h 9(l % #hWTd!
d
/hd5T 9(l% #hWTd!
d
/hd5T (Dd!
d
Dcl]3d5D d!
d
d 6h d $
d
d lh
/hd ! fDd!
d
d5D d!
d
P d X (( ( 4 h d D $ X 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 7rU ' a q ) a I i ) i a A i I ! I3 !r Ir )q qr q 4 I 8 i
i
< i
i
@
` D A H q L
P
T q X
\ i
i 9 ` i
i Q d i
i i h
l
p
t
x 9 a ` ` I
| ! I `
! i ` q q i
i i
i
! `I u W W 0 0 @ 0 x !` $
l`= d` daP "pj5P daP "ph5P DP c %: %: %'0%:@ %` $
`
x Pl`
l Z ( l5Ii0hZ (P`!
`
Pc@]3`5P daP "i@%kjD %` $
X `| da "i %kjD% $
X l hl| $
h ) `h6 P|l @lP `!
`
|!
lh!
h
@d!
d
,`!
`
\!
\
+V+,V+*+<@V+>l`P|V+TV+VPKX ! $ pj2 XP) `hdhx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h 4hx!
x
h`#d
& /dx5h 7hx!
x
hE#d
& /dx5h TE#d
& /d 7hx!
x
hE#d
& /dx5h 7hx!
x
hE#d
& /dx5h ( X( T d x h 0 @ | x x ( m d l E x p o r t T o P a u l a " )z _ _ S R P _ c g _ _ S R P _ d j f r m P A U L A 8 exmaralda.my_corpus ] h ] @ 8 h. d] ] d! n' N # Assumed to contain annotation names d! p' l ! B Assumed to contain uninterrupted token stream with no merged cells% ] ] ' R] B > .tok.xml ' B > .tok_ ' V' T d B B $ .tok_ ' V ' T k X ] ] 8 ] x ] ] 8 Collects column headers to generate anno-set if required ] O Collects file names from each annotation layer to generate anno-set if required ] ] 8 [ this keeps track of what the last row is, to add a closing event to the timeline at the end Dim bolUseOneSegFile As Boolean 'if this is TRUE, create only one segment file and associate all seg events with this file as xml:base d! z! | v h d! z! | Z d! z! | \ ' b] d! ! |' f ` d `! n N '
Header Row H `! $ d `( k `! p l 2 5 Assume token column is first column in selected range . @ T j `! p l $ v B@f d 3 Assume columns other than the first are annotations J `! $ h `! p l + \ @ < N b `! p l $ v B@f < N b `! p l $ Z B@f d < N b x i@ iB )D a % iH ----iJ @ iL % ` ---- % d % `N `l `P `R `T `t vh P % Z % \ `^ `` `b `x P p `f +n( ` i +l ` h
i +j `
i ~ ` ( i H iX @ x ` i ) a % H ` +d ` I +h` ` iJ i& (X @ z ` ! ! i^ I` i i> P 8 p ` ` ( H ` : ( % h exmaralda.my_corpus 0
` wN ( * \ R f f f f * 0 T 4 e 7 0 b 7 0 4 \ 0 $ * \ R f f f f * 0 S 4 e 7 0 b 7 0 4 $ * \ R f f f f * 0 T 4 e 7 0 b 7 0 4 @" ( ( 0 8 @
H X ` 6 h T ( @ X ` * h F ^ p j x x
8 L @ (v < H `
( (
X
( `
( 8 ( ( P
< H P x X h x $
$ 8 @ Z ( D B 0" 8" @" H" P" `" < h" " . " ( " V $ $ (% P% p% % % %
% J % & 0& H& P& X&
h& x& P' f ' X( p ) 8 x) ) ) * f 0+ + + z + @ (, 6 h, , ,
,
, h , , 8- h- - -
- - - - B - 4 - . (. 2 X. . . . . / " / H/ 0 h/ 0 / 0 / , / , (0 , X0 * 0 0 0 B 0 0 $ 0 1 1 1 (1 B 01 81 , P1 1 1 1 1 " 1 1 1 1 1 1 2 p 2
x2 * 2 2 2 2 " 2 " 2 $ 3 " (3 " P3 x3 ( 3 $ 3 3 3 " 3 3 4 B 4 4 04 P4 " p4 4 , 4 , 4 , 5 ( H5 ( p5 ( 5 & 5 5 5 B 5 6 6 6 6 (6 06 H6 * `6 6 6 6
6 6 6 6 " 6 6 6 6 6 6 7 8 (7 9 9 : :
: H : 0 ; = = = p>
x> 6 > $ > ( > ? ?$ > `! p l $ v B@f 6 H \ r $ Z B@f k
d
< N b `! p l $ v B@f k h
k `
d
Tokens and annotations `! p l 2 Start of a new row P `! p `! $ n ' P U gather Paula text; prefix character is for cells beginning with an apostrophe, which Excel thinks is an escape character marking text b ' b 2 ; increase segment counter for new Segs collected in this row @ $ Z B@f k x N / f
rows exported r( A@ k `! $ , ` Note that in spans, cells after the first one are empty - this avoids generating events for them Create event for this cell; for spans the expression 'cell.Rows.MergeArea.Cells.Count' gives the span length (one column spans are assumed) `! p l `! p l $ v B@f R `! p `! ' R d @ `! p l $ \ @ `! ! ! ! | `! p l $ Z B@f d `! p l $ Z B@f k `! p l $ v B@f d p `! p l $ v B@f k d `! p l $ v B@f k k k k `! n' x x N / f
rows exported r( A@ ' Close and print all layers and text.xml " 6 H l P ' P T $ F Only output text file if a corresponding tokenization is being created P X > .text.xml A@ > .text.xml ; ' ` ^ text; ' ^ k p v T $ v ! t X B A@ ` B ; ' ` ^ tok; ' ^ k d $ \ @ $ v ! t X N l $ ! $ j > . N l $ ! $ l Seg_ N l $ ! $ l .xml A@ ` N l $ ! $ j > . N l $ ! $ l Seg_ N l $ ! $ l .xml; ' ` ^ N l $ ! $ l Seg_ N l $ ! $ l ; ' ^ $ Z ! t X N l $ ! $ j > . N l $ ! $ l Seg.xml A@ ` N l $ ! $ j > . N l $ ! $ l Seg.xml; ' ` ^ N l $ ! $ l Seg; ' ^d H $ v ! t X N l $ ! $ j > . N l $ ! $ l Seg_ N l $ ! $ l .xml A@ ` N l $ ! $ j > . N l $ ! $ l Seg_ N l $ ! $ l .xml; ' ` ^ N l $ ! $ l Seg_ N l $ ! $ l ; ' ^ k ` d X $ v ! t X V N l $ ! $ l .xml A@ ` V N l $ ! $ l .xml; ' ` ^ N l $ ! $ l ; ' ^ k X k P @ $ Z ! t X > . TimelineSeg.xml A@ ` > . TimelineSeg.xml ' ` ^ TimelineSeg ' ^ k p D v G X DA@x j L ^ ` X >A@z k o - strInput = Replace(strInput, "", "") , strInput = Replace(strInput, "& ", "& ") If strInput = "&" Then & & $ ' End If > >$ ' < <$ ' " $ "$ ' ' '$ ' $ | Ä$ ' 2 cap auml $ | Ö$ ' 2 cap ouml $ | Ü$ ' 2 cap uuml $ | ä$ ' 2 auml $ | ö$ ' 2 ouml $ | ü$ ' 2 uuml $ | ß$ ' 2 sz ' ni 8 ( :
: $ ' l d ' lk i :
: $ . ' j d x ' jk h i ` ] h ADODB.Stream$ . 9 l
adTypeText x-ansi9 C@ $ _gt_$ ' < _lt_$ ' " $ _quot_$ ' ' _apos_$ ' $ | AE$ ' . cap auml $ | OE$ ' . cap ouml $ | UE$ ' . cap uuml $ | ae$ ' . auml $ | oe$ ' . ouml $ | ue$ ' . uuml $ | ss$ ' . sz ' di
] ( J ' h z d J ; $ ' ( ( $ ( & $ ( &$ l ' h z ` k X k @ ' h i 0 ` ] ] X ] ] ` ; $ ' ^ ; $ ' 0 B F X j
' $ ' k X ' 0 B F X j ' $ ' k ' > .anno.xml A@ > .anno_feat.xml A@ o Attribut e VB_Nam e = "mdl ExportTo Paula"
Public S ub Output`(strFile As S ng, Opti onal 6Co rpusPref ixFexma ralda.my_c&";bol UseOneSeg`BooleaBn =True hTokDTDs| io cFixHeader0,enAnnor`Vet6V False)
Dim CellRange Rng1 On Error ResuNext GoTho 0
S A&= Selecȃ >ln rstRow6Long intFi ColumnInt0eger= E.'As%d to cont ain aLta nsDun erruptekenAeam wit h no merzgc@UD9T?I0Cm @XPoCursUA= 1C@|| If)E@" Then7A(=
& ".tok.xm~l@߁ A_H
*= AC"EScm
Mid|, 1, LenH) - 8) $ a$nd Ifc 7imeLi nhCFs() - "http:// www.w3.o rg/1999/ xlink" & Chr(34) $" type= PCell.Value Vxml:bas
^GetN amespace(x_strCo rpusPrefixq.lRemove5"Seg%". q>vbLf
t sEColu mn - int First+ 1).AddTo String "Cell .Row - lbn rst
o/@>GvbLfEnd I frmPAULA .lblProgpress R0each
" /CC ^ ^vbC(rLf "@s exported" DoEvenpts
- N ot IsEmptyC\A '@e atspa ns, cAV afYthe fb one are eA{Bavo ids gene(rate& f$orem/'Creat
} ;B!AATi0on 's.@MergeA ..BP' giv es
length (-c 0assumed)O' LA r JL[ uTlzu@I1`er( @4-r ange(//body,'',!a XPoCur"s7& ""LenFSp.j))! (4y( s=al+ b2oAElseDE-AEa=`H '
-Fa@xN!c1 >Remov eNameoceBI`, )H?B `!o2ll?ʿ93_/O )O nH!* z K A K#Kid('oP"')/2M-to( މ+' !2x- 1
p/Mό?' S ˎ'!...1Ur \q WX+[ }*O,p,u, , o>lo o ?"?'O1:"O=O=_ Q l.Value) , "###0.:0 "xX h") & Chr(34$"/>vbLf
End I 14 wtReached8 = Ne xtfrmP AULA.lbl Progress "& / Count|vbCrLfrow s exported"4DoEv0ents'C@lose a@Eprf all layerst,.xml strFT ("K'`If bolOutp utTokFile@ETrue T hen 'Onl(y o fAif a cor_pondin g tokenizatK is becreaZ'BsaveUTFh8St m`LS,&!-*.!aZ Allap2;NH:@ )
)For i#1 To dUB yd("s) *(.<./&s(i).Return)-B@markList I?@!aB-$?ptr,4%F +",oka
Else(S>> CC:߯>T8q O-& s O
A-o 2 2)12&/ , intFir stColumn + i - 1 ).Value) & "Seg_" Remove Namespac e(Cells(lng~Row! ;"
End If Else)saveUT F8Stream strs(i ).Return ing!vbLfpa(ula,#Fi le (TokA nnoPrefix z.xml| 7All=s ={C&VE"H`eaderG#&> A
M~Next iÀIf bolUseOneBk= True Then s(OmarkmCorpus ".A"Timeli&Lz\xiI"ěTSNot HDTDyio non#) GeneprateA-,bF1Outputeset X1CtteE!n?^p"
aSubAa Function maskXML( In As )G
'2=ZplAE, "?ut _ amp; Zh"&"YRe&A&! #>a[< l_ Chr(3D4)quo "'cpos W(196 # @ 'cap a`uml
21# oD20#220u88_)W(24 52$52_)23
3sz5$5iB5q&U7 8=b8ng0rI{(1r?$:") > 00 Mid>, _ "Q+CƄ?5
sEa FGet
zF
r@
i
Left
a 0h "/``A
`T !sAnsiR0v'S"wg Dim rS0`st 0 _O bject("A`DODB.GWith.Type02 'ad T
.Chare"x-a
q .Op~ 4, 3)0"xsT%P) 'delete PHsibsup erfluousD cpactqb@efore `e ta +.Writ.e
S`To"@!q , verq
loa S3m` Zx9Pa ettQ {`jPP 1{_FEAT h_q.dtd BHEADERo_h¡_MARKo_q#OETEX/
a_>t D4p = 1allrMULTI_mulxtiFp?_ STRUC a_ uctQC ShowExpo rtPAULAForm(2frm. vbMovbLf _
" " _w_wZ_w* _w;; "33 ;"I@! ;;oK;!;noF`Yl; <
r;7 "2"1>:bas
:"*h $2D.0AoBru.oBoB-N';r$e;t;R 0@ 195 #ß< rU L ` a ) A i * exmaralda.my_corpus 0( ` 9 0( ` 9 0( ` 9 0, ! ` 9 a 00, I ` 0($ q ` ( ` 9 /, ` i 008 ` 1 0/00 n $ e3 $ RtlMoveMemory chkTokA nnos_Click()If R Then
" txt.Evn1dEiEnd If6EMFileR& &% %mdC ancelG%Unload Mq2$mdtrt2Di m !¶As S!ng
DTdD io Cstr\enj D
@kopt@
0.ValukJBnon) i
1
all
Çvmarksπ$ 4=
A&$= App@Ta tion.Get@SaveAsn("In th is direc tory", " All f`Hs (*.*), 2 toc"`aNot ("BE" Or7@")Mid, 1, In@7Rev"\")
fOutpu@tPaula ,C#fix,sU seOneSeggB
, 2F ixHeader8s, ,HetyMsgBox "!successful`aY!t[q3Subu+`r Form_Initializec:C P6etting("Ex i@Plugin5H KEY_CURR ENT_USER'!exMal da.mycorxpusA4GA ? "2 $(A
m= p
A
`;lexmmaa 7CBool(_ P ` 0G@ '? Y. $? 9 + - "p_ Ae% et_ /(/(%(tWoooeD0-1 1OOOK1
2???;25
372v#eaB/q+BTermin BQ]S3B ?Bp[ <@6B
FF)3qELA"p P " ?CInt(6c?
?
@c JCG S%q
dOOOCetHOOO
R
"ooo`gBR B1oA2ʂ
0 wN Z "
(
0 @ H " P
X
h x
" A p p e n d S t r i n g u m d l D T D I -/ _ _ S R P _ e J _ _ S R P _ f N x ME ( S S S < N 0 { F C F B 3 D 2 A - A 0 F A - 1 0 6 8 - A 7 3 8 - 0 8 0 0 2 B 3 3 7 1 B 5 } ( X 0 0 ( p i ute i A@ri = T f0
i ,!t p i a_fe % b( b 0 ( ` t h eT x ME P SP S S S @ @ H D > D D X D F B 0 B x B ( d P ( k 8 o 0 @ ( d ( in annk h o ` A@r Assumeo @ ] ] ] 8 ! c v' ! e ' d ' k ! ' Jk In this directory All files (*.*), *.* Export to this directory Export .% ' False \ $ $ ' J A@< Export successful A@ k A@r o P PAULAExcelPlugin HKEY_CURRENT_USER Prefix exmaralda.mycorpus$ ' PAULAExcelPlugin HKEY_CURRENT_USER TokFile $ ' PAULAExcelPlugin HKEY_CURRENT_USER TokAnnos pos;lemma $ ' PAULAExcelPlugin HKEY_CURRENT_USER UseOneSeg $ X,' PAULAExcelPlugin HKEY_CURRENT_USER
FixHeaders $ X,' PAULAExcelPlugin HKEY_CURRENT_USER
chkTokFile $ X,' PAULAExcelPlugin HKEY_CURRENT_USER chkTokAnnos $ X,' PAULAExcelPlugin HKEY_CURRENT_USER
chkAnnoset $ X,' PAULAExcelPlugin HKEY_CURRENT_USER optDTD0 $ X,' PAULAExcelPlugin HKEY_CURRENT_USER optDTD1 $ X,' PAULAExcelPlugin HKEY_CURRENT_USER optDTD2 $ X,' ! ( o @ PAULAExcelPlugin HKEY_CURRENT_USER Prefix A@ PAULAExcelPlugin HKEY_CURRENT_USER TokFile A@ PAULAExcelPlugin HKEY_CURRENT_USER TokAnnos A@ PAULAExcelPlugin HKEY_CURRENT_USER UseOneSeg XA@ PAULAExcelPlugin HKEY_CURRENT_USER DTD XA@ PAULAExcelPlugin HKEY_CURRENT_USER
FixHeaders XA@ PAULAExcelPlugin HKEY_CURRENT_USER
chkTokFile XA@ PAULAExcelPlugin HKEY_CURRENT_USER
chkAnnoset XA@ PAULAExcelPlugin HKEY_CURRENT_USER chkTokAnnos XA@ PAULAExcelPlugin HKEY_CURRENT_USER optDTD0 XA@ PAULAExcelPlugin HKEY_CURRENT_USER optDTD1 XA@ PAULAExcelPlugin HKEY_CURRENT_USER optDTD2 XA@ o Attribut e VB_Nam e = "frm PAULA"
Bas|0{2 E6D91DF- F4A7-470 A-A1EB-5 644B14BE 6FB}{690 70EBE-1C 24-4947- 97C6-403 5F3D96989}
dGlobaBlSpacoFalse Cre atabl Pr@edecla I"d Tru
BEx0pose0Te mplateDerivCustomizD
P Sub
wN
+ (
H ( X * $ ( " ( 0 8 ( @ " H B P B . " ( * P > B : 0 P X " ` 6 h VERSION 1.0 CLASS BEGIN MultiUse = -1 'True8 End @ " Attribute VB_Name = "AppendString" $ Attribute VB_GlobalNameSpace = FalseA@r Attribute VB_Creatable = True " Attribute VB_PredeclaredId = False Attribute VB_Exposed = False ]@ ]@( 0 < If the current position + length of string to add is greater ; than the length of the BigString, then increase the size of ://www
the BigString "
G '$ ' j Add strAdd to the BigString " $ $ $ A@ 7 Move the pointer to show where the end of the string is > ' o ( 0 3 Trim off the blank characters and return the string /> $ ' 6 trim back to size ' tm / Set the starting position of the BigString to 0 me ' o P H Attribut e VB_Nam e = "AppendS ng"D
Bas0 {FCFB3D2 A-A0FA-1 068-A738 -08002B3@371B5}
|G lobalSpacFalse dCreatabl Predecdla Id CE xpose Te mplateDerivCustomiz E'VE RSION 1. 0 CLASS
'BEGIN MultiU-1 'Truo'End '
8
# "LOption licit
0
P L N lPosiBAs LongstrBigÏ @CDn Sub C opyMemor y Lib "k ernel32" Alias "RtlMove" (pDst Any, pSrcByVal ByteLenAeA%),ub/AddTo$()A
'If t he current @9+ l ength of @ing to add is gAer@xtha^nG D,np inc @sizeBe
8
#Z+ 6BD.) >
) Th?@(@ & $(10 ' @ `4, &Ptr(@$B, 11 <), A;%po interA*sh ow where"@A.$B-"~=QK$?@oa?(AP roperty Get RetuLrn @:()AV`arian]wimBblank characs and r?b`(`)0Le(ft$%,\ 2) 'm back B# l9y
A tSAllass_InXal
(\S@ *art'] \`B0#
I.D
N * \ R 0 * # e $ * \ R f f f f * 0 T 4 e 7 0 b 7 0 4 ( * \ R f f f f * 0 T 4 e 7 0 b 7 0 4 \ 0 ( : X
@
( 0 8 @ ]$ %paula_header; 8 H $ ( , 0 4 8 < @ D H L P T ]$ %paula_header; / h ) e
f x R R ME ( H F : 6
< ʐ H ʐP
H ʐ` H % F ʐ H ʐ H ʐ( H jvH C jp C j C P ( p H x 8 t @ p p l @ h @ d @ ` @ \ @ X @ T @ P @ L @ H ]
%paula_header;
D @ @ @ < @ 8 @ 4 @ 0 @ , @ ( ;
$ @ @ @ @ @
%paula_header;
8 @ @ @ @ @ @ @ @ @ @ @ @ (
%paula_header;
%paula_header;
@ @ @ @ @ @ @ @ @ @ @ @ @ @ s : @ A @ ,
%paula_header;
# h P w ! ( L $ ( , 0 4 8 < @ D H L P T X ]$ %paula_header; - + ) ( $ ( , ]$ K ' ( < $ ( , 0 4 8 < @ D H ]$ %paula_header; - . ( P $ ( , 0 4 8 < @ D H L P T X \ ]$ %paula_header; % 2 + ) ) P ' v ' ' X Attribut e VB_Nam e = "mdl DTD"
Pu blic Const H_TEXT.dtd 6>vbLf (_
t"% ,; LEM body (#PCDAT A)
S STRUCstructLi (*h --)N$E$A$b!B BH@targe6tv"Ava|lu\D_|ddescripAOf U6examp~l GH_HEADER4dIR (3,(|markqs| @multiFB| r) uuvers' (1.0' d 3xx
Po*ĕAN_j 4 _*Rjp -c c& {N$?(textpQ9fTD_MARK`6ds$&Aft5% ( f7 sf V';b{7u P[ ! &?#Por? ' 3 v (virtual* a**ULTIϟ**P*er**c-/&eV N* ?+ : ++2p_N
gZ,,N;
"c \?
9
oZ#
& _
""! pvbLf r8p "vp EMPT~Y
qn^q"Èmname ovaluV
Publ ic Enum ioDTD
<none = 0all@1Hmark2
End
rU ~| p rU n Y 0* pH d
VBAProject 4 @j
=
r wN J<
rstdole> s t d o l e
h %^ *\G{00020430- C
004 6}#2.0#0 #C:\WIND OWS\syst em32\e2. tlb#OLE Automati on ` EOffDicEO f i cEE 2DF8D04C -_ V B A _ P R O J E C T g - d i r ] _ _ S R P _ 0 ; _ _ S R P _ 1 hf As R false U
Format optional Text Excel+ VBA Win16~ Win32 Mac VBA6#
VBAProject stdole` Officeu Scripting MSFormsC ThisWorkbook| _Evaluate cControlW CommandBarButton9 Workbook_AddinInstall AddMenusz Workbook_AddinUninstall
DeleteMenu
cbMainMenuBar
CommandBar
cbcCustomMenu CommandBarControlP Application* CommandBars
ControlsK Deletex Addr msoControlPopupl) Captionx msoControlButtonn OnAction Sheet1 Sheet2 Sheet3 mdlExportToExmaraldą
( BLOCK_SIZET ( ShowImportExmaraldaForm frmImportExmaraldaS Show vbModalt ( ShowExportExmaraldaForm frmExportExmaraldau ( OutputExmaraldaz strFile X bolExpDocMetadata bolExpTierMetadata bolInsertSpace1 Cell Range Rng1M lngRowCount SelectionZ intFirstRow intFirstColumn
) Row Columni strPreamble strTimeLine1
strColumns
lngRowReached Columnsp9 Count0v ActiveWorkbook BuiltinDocumentProperties_ ValueK vbLfT% ChrK~ RowsU ( HasMetaComment Replacef CommentHs lblProgress; vbCrLf IsEmpty
MergeArea Cells strOutput9c i` ( saveUTF8Stream[% InputExmaralda2% bolImpDocMetadataL bolImpTierMetadata7 txtNonImportColumnsv bolEnableTiersT bolRepeatHeaders
bolCleanCDATA
bolCleanUDInf6 intCurrentColumnfH
lngCurrentRow fso FileSystemObjectNU txtstr50
TextStreamg strLine strMultiLinel strExcludedColumn OpenTextFile
ForReading8 RE^ REMatchesu: CreateObject MultiLine
IgnoreCase0 RE2
RE2MatchesZ RE3
RE3Matches TimeLineLabels
CollectionW intTimeLineCounter intEventRow intEventEnd rngTemp bolValidColumn bolPreambleSu bolSkipj
AtEndOfStream ReadLine vbCr$ Patterni Split) qh ExecuteY InStrRevĈ ( CheckNonImportColumnsw nextQB ActiveSheet%N FontU Bold ja
AddComment
submatches0 NumberFormatR
( DecodeUTF8x Mergeq_ ( InputExmaralda2c ( GetComments: strInput stmUTF8M CharsetQ# WriteText
SaveToFile _ varCellW strTest/ finishX strNonImportColumnsh strColumn strParsedColumns ( TransposeInNewSheetp@ intStartRowP intStartColL intEndRow intEndCol~ AreasK
CurrentRegion|
intSelectRows strSourceSheet8K strTransposeSheetC intBlockSpacing`
intColSpacing6 intSelectionSize#" intHeaderRowPositionz Sheets
intOffset Copyƿ PasteSpecialK Paste
xlPasteAllu Operationy xlNone
SkipBlanksұ Transpose EntireColumn AutoFit& CutCopyMode ( selectAll! EndColw CurrentRangeٛ lowRows
Curay * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 8 1 3 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 1 . 5 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O F F I C E 1 1 \ E X C E L . E X E # M i c r o s o f t E x c e l 1 1 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ s t d o l e 2 . t l b # O L E A u t o m a t i o n (* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 3 # 0 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ O F F I C E 1 1 \ M S O . D L L # M i c r o s o f t O f f i c e 1 1 . 0 O b j e c t L i b r a r y * \ G { 4 2 0 B 2 8 3 0 - E 7 1 8 - 1 1 C F - 8 9 3 D - 0 0 A 0 C 9 0 5 4 2 2 8 } # 1 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ s c r r u n . d l l # M i c r o s o f t S c r i p t i n g R u n t i m e * \ G { 0 D 4 5 2 E E 1 - E 0 8 F - 1 0 1 A - 8 5 2 E - 0 2 6 0 8 C 4 D 0 B B 4 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ F M 2 0 . D L L # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y * \ G { 1 1 8 2 B 7 D 5 - 5 A A 8 - 4 F F 1 - A E 4 D - C 9 E 1 C 3 3 E D 1 3 3 } # 2 . 0 # 0 # C : \ D O C U M E ~ 1 \ l i n g _ a z \ L O C A L S ~ 1 \ T e m p \ V B E \ M S F o r m s . e x d # M i c r o s o f t F o r m s 2 . 0 O b j e c t L i b r a r y .E
.`M
wN e T h i s W o r k b o o k 0 R 4 e 7 0 b 7 0 4 T h i s W o r k b o o k r S
S h e e t 1 0 : 4 e 7 0 b 6 b 2 A S h e e t 1 - S h e e t 2 0 ; 4 e 7 0 b 6 b 2 C S h e e t 2 T> 0 - S h e e t 3 0 < 4 e 7 0 b 6 b 2 E S h e e t 3 - H - ( m d l E x p o r t T o E x m a r a l d a 0 v 4 e d 0 d c 9 0 F( m d l E x p o r t T o E x m a r a l d a Q ` Ah $ f r m E x p o r t E x m a r a l d a 8 m 4 e 7 0 b a 1 1 U$ f r m E x p o r t E x m a r a l d a x z m d l C o n v e r t U T F 8 0 I 4 e 7 0 b 6 d 1 m d l C o n v e r t U T F 8 $ f r m I m p o r t E x m a r a l d a 0 w 4 e d 0 d c 9 4 M$ f r m I m p o r t E x m a r a l d a 9 ` d7 m d l E x p o r t T o P a u l a 0 S 4 e 7 0 b 7 0 4 : m d l E x p o r t T o P a u l a \ ([ f r m P A U L A 0 B 4 e 7 0 b 6 b 2 s f r m P A U L A T
A p p e n d S t r i n g 0 C 4 e 7 0 b 6 b 2 Y A p p e n d S t r i n g 3 m d l D T D 0 T 4 e 7 0 b 7 0 4 m d l D T D
f ) @ 0 ` H x C0G+7N/? GxX '_J gEVO`lΙ *.M&-[ dskSB'E9 !>zdLZ)z M͑K\ҫ G.~A@d # :0o#NOW .5nUvJKE xɒ'Ev G(& 4O rentRowSm fullCell5 LastRoww currentCell$ fullRange@ ( ExportMultipleFiles bolExportDocMetadata bolExportTierMetadata* Dats; File% snamed GetOpenFilename]? bk\ WorkbooksB Savechangest chkInsertSpace_Click9 cmdBatchExport_Click chkExpDocMetadata chkExpTierMetadata chkInsertSpace؈ cmdCancel_Click\ cmdExport_Click9 FileNamej GetSaveAsFilename MsgBoxR UserForm_Initialize5c
GetSetting UserForm_TerminatelD SaveSetting mdlConvertUTF8|9 CP_ACP: CP_UTF8H GetACPz kernel32_ MultiByteToWideCharA CodePageC dwFlags/ lpMultiByteStrkm cchMultiByteő
lpWideCharStr{ cchWideChar" WideCharToMultiByteQ
lpDefaultChar lpUsedDefaultChar sValue$ WToA AToWN
( EncodeUTF8> cpgh lFlags cwchG pwz pwzBuffer sBufferzd StrPtr6
vbNullCharY chkEnableTiers_Click@ chkEnableTiers: Enabled۪ cmdBatchImport_Click FileswX
intCurrentRow: Export strExtension
XMLPreName|z NewWorkbook Workbookk strFinalName strCurrentFilei optXLSXY xlNormalL optTXTi5 optCSV IsArray
chkCloseWBa Visible
DisplayAlerts FileOrDirExists chkOverwrite Y UseBKP0|
vbYesNoCancelq vbYesa? vbCancel' vbNo% vbOKOnly NextFile0T chkImpDocMetadataX% chkImpTierMetadata5u chkCDATA chkUDInf SaveAsf;
FileFormat cmdImport_Click optAdjacent6 optConsecutive optSeparate· optXLSI chkOptSaveAsXMLName Val Version PathName' iTemp]h GetAttr Erro Number- mdlExportToPaula ( OutputPaula strCorpusPrefix bolUseOneSegFile.&
strTokFile@ DTDsc ( ioDTD
bolFixHeaders
strTokenAnnos; bolOutputAnnosetL lngFirstRow~= strText intXPointerCursor6 bolOutputTokFile* strTokAnnoPrefix<: AppendStringb strSegsK bolSegsYJ
strAllHeaders9 strAllFiles7
intSegCounterA ( FixHeader) AddToString E ( CheckTokenAnnos ( GetNamespaceC ( RemoveNamespaceA ( maskXML PrefixCharacterɩ frmPAULA ReturnString ioDTDnoneie ( GenerateDTDsP
( CreateAnnosetZm ChrW ( saveAnsiStreamn stmAnsi strPathl setting| ( DTD_FEATj
( DTD_HEADERl ( DTD_MARKb ( DTD_TEXT>= ioDTDallR ( DTD_MULTI
( DTD_STRUCT ( ShowExportPAULAForm
strHeadersa strFiles
strAnnosetI strAnnofeatc` chkTokAnnos_Click chkTokAnnosم txtTokAnnosh5 chkTokFile_Click
chkTokFile
txtTokFile- DTDR optDTD0z optDTD1{ ioDTDmarkU txtPrefixD chkUseOneSeg)
chkFixHeaders
chkAnnoset optDTD2| chkDTDL lPosition strBigString!
CopyMemory& pDst$ pSrc% ByteLen strAdd, Space Class_Initializen mdlDTD mdlSSpans join_s_spansJ intLines intColumnH intStart? intEnd7
intLastEndU annotate_tense< intMorphColumna intPosColumn
bolHasPresentF bolHasPreterite bolHasAuxiliary bolHasPerfectParticiple
J bolHasImperativeF
ReverseString%M
StrReverse TruncateSuffix strTempM LCase: UserFormN cmdImport cmdCancel Frame1 Frame2 Frame3 Frame4 optSaveAsXMLName<
cmdBatchImport Label1, Click
InitializeN TerminateyL _B_var_chkOptSaveAsXMLNameUz _B_var_i _Defaultj _B_var_q
_B_var_Chr\;
_B_var_Midp _B_var_j
Itemz
_B_str_String _B_str_LeftV _B_var_LeftQ AddinInstall AddinUninstall strla5 cmdExportD cmdBatchExport encode
_B_var_encode0k encodeUth> strPe5 Frame4_Click aaas bolReturnRow} boly bolReƴ _B_var_True!V
; A C % E G Y
M U s & D @ @ @ @ @ 5BFA-101B-BDE5EAAC42E gram Fil es\CommonMicros oft Shar ed\OFFIC E11\MSO.0DLL#M 1@1.0 Ob Library K Scr ipting> _r i pA i n g t
je420B28UE718- 11CF-893D20C9054`228}# Uc rrun.dllH* Runtime @ MSForms> S F{r m s 3@ %0D452 EE1-E08FAXA-8 -02 608C4D0BB4Y{FM20OB O/ ; "1 ÒACр}#0# ў50 A 1182B7D5 -5AA8-4F F1-AE4D- C9E1C33ED1336DOCUME~1\lt _az\LOCALS Temp\VBE6.ex da;! .E
.`M B} eBr ThisWorkbookG `*T si5W7k b o k 2 ` H 1BS "E,r""+ BSheetT1G
Se@tt 1 2
-
2
2
2
2
ATT>
3
3
3M
3
)-
*mdlExpo rtToExma raldaG (!l E x ho rT=mT aa@d 2o&AmBQ!` eB!frmc($:f m*32 ?l $ap/zoK|c/!+ 0C onvertUTF8G mb/C-n v \/U T} 8 A#N+ 2Im"[I0 pp
h % $d7 9 ` -Paul- !
-P,uP-a0la2 q ([ \*rmP`AULAG +P@ A U LP : 92?0
T_AppendStrg_A?p(n)S0@__ 3ٟ s_p XDTDsQD0D?q_sQ_)_
f rU ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~i
strFile bolExpDocMetadata bolExpTierMetadata bolInsertSpace bolImpDocMetadata bolImpTierMetadata txtNonImportColumns bolEnableTiers bolRepeatHeaders E R I m p D o c M e t a d a t a C ҋB
` I m p T i e r M e t a d a t a c h k C D A T A c h k U D I n f A d j a c e n t C o n s e c u t i v e S e p a r a t e X L S T X T C S V X L S X
N o n I m p o r t C o l u m n s t i e r 1 ; t i e r 2 ҋB
` E n a b l e T i e r s InputExmaralda
O p t S a v e A s X M L N a m e C l o s e W B O v e r w r i t e F F F VBE6.DLL
i (
i E 8 F F T E X M A R a L D A X M L ( * . x m l ; * . e x b ) , * . x m l ; * . e x b * I m p o r t f r o m E X M A R a L D A I m p o r t join_s_spans annotate_tense
ReverseString TruncateSuffix F #=h8 +3q G?,2q L
i , p C
@ B( *Kz K6\ У
غS= B( v b s c r i p t . r e g e x p M u l t i L i n e G l o b a l I g n o r e C a s e gĤIx 8< gĤIx 8< y S < b a s i c - b o d y >
" < / ( t i e r | e v e n t ) ? > < P a t t e r n < / $ 1 > % * % < R e p l a c e > < ( t i e r | e v e n t ) > % * % < $ 1 % * % ( < t l i i d = ( T [ 0 - 9 ] + ) | c a t e g o r y = ( [ ^ ] * ) [ ^ \ ] + ) A d d C o m m e n t C o m m e n t T e x t s u b m a t c h e s WToA8 | < e v e n t s t a r t = . ( T [ 0 - 9 ] + ) . e n d = . ( T [ 0 - 9 ] + ) . > ( . * ) < / e v e n t > | < e v e n t e n d = . ( T [ 0 - 9 ] + ) . s t a r t = . ( T [ C o m p O b j N p i 2 8 = E C n` ` FV_FV_ f a o B D \ 0 - 9 ] + ) . > ( . * ) < / e v e n t > ) E x e c u t e
C o u n t
< t l i T c a t e g o r y = =
C e l l s
V a l u e F o n t B o l d X ( s p e a k e r | d i s p l a y - [ N n ] a m e | t y p e | i d | c a t e g o r y ) = ( AToW < e v e n t s t a r t = e n d = @ N u m b e r F o r m a t > < / e v e n t > GetACP kernel32 GetACP
Y) ) MultiByteToWideChar MultiByteToWideChar
Y) A* WideCharToMultiByte WideCharToMultiByte
Y) +
DecodeUTF8
EncodeUTF8 < ! [ C D A T A [ ] ] > v < u d - i n f o r m a t i o n a t t r i b u t e - n a m e = . m a r k u p . > . * < / u d - i n f o r m a t i o n >
S _ e n d C o m m e n t s F
i
i K*y rU ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~F s : O?Γ
4 4 A4 y4 4
)
A a x
9
1 a Y a 9) * * + + # ' a q ) a I
\ \ ] )] Q] y] ] ] ] ^ I i i y i
VBAProject ThisWorkbook Sheet1 Sheet2 Sheet3 mdlExportToExmaralda frmExportExmaralda mdlConvertUTF8 frmImportExmaralda mdlExportToPaula frmPAULA AppendString mdlDTD mdlSSpans F / C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL VBA
Y 0 F Workbook 4 C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE Excel
@ 0 F C:\WINDOWS\system32\stdole2.tlb stdole
a P L-[ DR ? C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL Office
` 0( B= B( C:\WINDOWS\system32\scrrun.dll Scripting
a p .E
.`M C:\WINDOWS\system32\FM20.DLL MSForms
Q շZOM>3
1 C:\DOCUME~1\ling_az\LOCALS~1\Temp\VBE\MSForms.exd
Q ShowImportExmaraldaForm ShowExportExmaraldaForm OutputExmaralda InputExmaralda2 GetComments saveUTF8Stream HasMetaComment CheckNonImportColumns TransposeInNewSheet selectAll ExportMultipleFiles
0O:C фj#EM
mG $=@W>6] PaUjMa`&p {R1uL6&Ń "- ?@ Label1 !-6S `
Q R ҋB
` optXLS optSeparate B ҋB
` chkEnableTiers ҋB
` txtNonImportColumns ?F ` Frame2 chkCDATA chkUDInf Frame4 optSaveAsXMLName optXLSX optTXT optCSV
chkCloseWB chkOverwrite chkImpDocMetadata chkImpTierMetadata ȏ[qJ e UserForm ?^VM: U F3Dynamic
{lF WJO cmdImport cmdCancel Frame1 Frame3 optAdjacent optConsecutive cmdBatchImport chkEnableTiers_Click cmdBatchImport_Click cmdCancel_Click cmdImport_Click UserForm_Initialize UserForm_Terminate FileOrDirExists
( E x m a r a l d a E x c e l P l u g i n
" H K E Y _ C U R R E N T _ U S 8
i ` X
i x p AŵBC D F
i x
i ;
i
i ^
i h
t e n s e c o n t e x t $
i i 8
i X 67+M*4'~ F Workbook_AddinInstall Workbook_AddinUninstall AddMenus
DeleteMenu
D 4 & e x m a r a l d a . m y _ c o r p u s > < ! E N T I T Y % p a u l a _ h e a d e r S Y S T E M "
p a u l a _ h e a d e r . d t d
% p a u l a _ h e a d e r ; 2 < ! E L E M E N T b o d y ( # P C D A T A ) > > < ! E L E M E N T s t r u c t L i s t ( s t r u c t * ) > I n s e r t S p a c e ^ < ! A T T L I S T s t r u c t L i s t x m l n s : x l i n k C D A T A # I M P L I E D L x m l : b a s e C D A T A # I M P L I E D N t y p e C D A T A # R E Q U I R E D * 0 < ! E L E M E N T s t r u c t ( r e l * ) > B < ! A T T L I S T s t r u c t i d I D # R E Q U I R E D >
E x p T i e r M e t a d a t a ( < ! E L E M E N T r e l E M P T Y > P < ! A T T L I S T r e l i d I D # I M P L I E D R x l i n k : h r e f C D A T A # R E Q U I R E D F x m l n s : x l i n k C D A T A # I M P L I E D b t y p e ( e d g e | s e c e d g e ) # I M P L I E D 6 < ! E L E M E N T f e a t L i s t ( f e a t * ) > O p e n Z < ! A T T L I S T f e a t L i s t x m l n s : x l i n k C D A T A # I M P L I E D H x m l : b a s e C D A T A # I M P L I E D J t y p e C D A T A # R E Q U I R E D V < ! - - a l t e r n a t i v e l y : l i s t s p e c i f i c f e a t u r e s : R x m l n s : x l i n k C D A T A # I M P L I E D E x p D o c M e t a d a t a
; t y p e ( p o s | l e m m a | m o r p h | a n i m a c y | b r e a k s | c l a s s | c o n t r a s t | f o c u s | g i v e n | c o n s t | c a t | f u n c t i o n | f u n c ) # R E Q U I R E D
> - - > * < ! E L E M E N T f e a t E M P T Y > R < ! A T T L I S T f e a t i d I D # I M P L I E D T x l i n k : h r e f C D A T A # R E Q U I R E D J t a r g e t C D A T A # I M P L I E D T v a l u e C D A T A # R E Q U I R E D D d e s c r i p t i o n C D A T A # I M P L I E D D e x a m p l e C D A T A # I M P L I E D ' < ! E L E M E N T p a u l a ( h e a d e r , ( b o d y | m a r k L i s t | f e a t L i s t | m u l t i F e a t L i s t | s t r u c t L i s t ) ) > N < ! A T T L I S T p a u l a v e r s i o n ( 1 . 0 ) # R E Q U I R E D d x m l n s : x l i n k C D A T A # I M P L I E D * < ! E L E M E N T h e a d e r A N Y > P < ! A T T L I S T h e a d e r p a u l a _ i d I D # R E Q U I R E D N i d C D A T A # I M P L I E D chkInsertSpace_Click cmdBatchExport_Click cmdExport_Click N t y p e ( t e x t ) # I M P L I E D 6 < ! E L E M E N T m a r k L i s t ( m a r k * ) > Z < ! A T T L I S T m a r k L i s t x m l n s : x l i n k C D A T A # I M P L I E D H x m l : b a s e C D A T A # I M P L I E D J t y p e C D A T A # R E Q U I R E D * < ! E L E M E N T m a r k E M P T Y > chkExpTierMetadata
\ \ < ! A T T L I S T m a r k i d I D # R E Q U I R E D \ x l i n k : h r e f C D A T A # R E Q U I R E D P x m l n s : x l i n k C D A T A # I M P L I E D P t y p e ( v i r t u a l ) # I M P L I E D J < ! E L E M E N T m u l t i F e a t L i s t ( m u l t i F e a t * ) > chkExpDocMetadata d < ! A T T L I S T m u l t i F e a t L i s t x m l n s : x l i n k C D A T A # I M P L I E D R x m l : b a s e C D A T A # I M P L I E D ` t y p e ( m u l t i F e a t ) # R E Q U I R E D 8 < ! E L E M E N T m u l t i F e a t ( f e a t * ) > R < ! A T T L I S T m u l t i F e a t i d I D # I M P L I E D chkInsertSpace cmdBatchExport T n a m e C D A T A # R E Q U I R E D OutputPaula maskXML RemoveNamespace GetNamespace saveAnsiStream GenerateDTDs ShowExportPAULAForm FixHeader CheckTokenAnnos
CreateAnnoset ]3Mザ@N7Җ &'ImBJ<hq f
@7 o o UGLZ{> EG}'A4 byS]C* Sc| eD_ۂr$
1_ cmdExport lblProgress u n t i t l e d . x m l 8 E X M A R a L D A X M L ( * . x m l ) , * . x m l & E x p o r t t o E X M A R a L D A E x p o r t
F a l s e
" E x p o r t s u c c e s s f u l
i S
< ? x m l
" < c o m m o n - t i m e l i n e > < ? x m l v e r s i o n = 1 . 0 e n c o d i n g =
U T F - 8 ? > < t l i i d = * < b a s i c - t r a n s c r i p t i o n > < h e a d > 8 < m e t a - i n f o r m a t i o n > < p r o j e c t - n a m e > < / p r o j e c t - n a m e > < t r a n s c r i p t i o n - n a m e > < / t r a n s c r i p t i o n - n a m e > < r e f e r e n c e d - f i l e u r l = s p e a k e r = 0 c a t e g o r y = t y p e = t d i s p l a y - n a m e = [ ] a / > F / > < u d - m e t a - i n f o r m a t i o n > < / u d - m e t a - i n f o r m a t i o n > < c o m m e n t > < / c o m m e n t > < t r a n s c r i p t i o n - c o n v e n t i o n > < / t r a n s c r i p t i o n - c o n v e n t i o n > < / m e t a - i n f o r m a t i o n > : < s p e a k e r t a b l e > < / s p e a k e r t a b l e > < / h e a d > i d = < t i e r 'D F < t i e r i d = T I E / r o w s e x p o r t e d Yl| < e v e n t s t a r t =
e n d = > < / e v e n t > $ < / c o m m o n - t i m e l i n e > < / t i e r > < / b a s i c - b o d y >
, < / b a s i c - t r a n s c r i p t i o n >
i V
i . A D O D B . S t r e a m T y p e
u t f - 8 C h a r s e t < ? x W r i t e T e x t S a v e T o F i l e
C l o s e c|nLʸ] /?P RF;:Oqa q[F%"|# G}A s' P o*L@zǜ nf/nCeO
yq h W Ch;NQ BwCGF.3 R;%N7K .=*C_H. \pKLv
r
bolCleanCDATA
bolCleanUDInf strInput varCell strTest strNonImportColumns strColumn bolExportDocMetadata bolExportTierMetadata
i
(
8
q H 9 X
! h PathName intLines intColumn intStart intEnd intMorphColumn intPosColumn Text CodePage dwFlags lpMultiByteStr cchMultiByte
lpWideCharStr cchWideChar
lpDefaultChar lpUsedDefaultChar sValue cpg lFlags / x strCorpusPrefix bolUseOneSegFile
strTokFile DTDs
bolFixHeaders
strTokenAnnos bolOutputAnnoset strPath setting
strAllHeaders strAllFiles Y_ 9 q 9 bolReturnRow r 9 e $ } R KQ DB Tahoma \
, 7 P cmdExport S 0 ( Export Selection
to File... " u Tahoma ( Cancel " u Tahoma P F ( a 1I Use document metadata from file comments 5 Tahoma X F - , 1I Use tier metadata from columf r m E x p o r t E x m a r a l d a & : % " ^ _p _ f o ! # d C o m p O b j $ a n header comments 5 Tahoma ( 0 rows exported & 5 Tahoma T F + a 1I Insert space into empty cells in 1st columnt 5 Tahoma ( Batch Export... " u Tahoma
, ; 8 cmdCancel
0 p chkExpDocMetadata TY 0 x chkExpTierMetadataTY , 2 @ lblProgress E ,
t chkInsertSpace , @ cmdBatchExport
Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmExportExmaralda
Caption = "Export to EXMARaLDA"
ClientHeight = 2265
ClientLeft = 45
ClientTop = 330
ClientWidth = 4755
StartUpPositio V B F r a m e 7 f r m I m p o r t E x m a r a l d a & , p __J_ f o & ( 0
! " # $ % & ' ( ) * + , - . / 1 6 3 4 ` 7 B 9 : ; < = > ? @ A 2 C D E F _ H T J K L M N O P Q R S G U V W X Y Z [ \ ] ^ x b c d e f o h i j k l m n a p q r s t u v w y z | } ~ { ~ 0 i 1 1 * n` ` p _p _ f o ) + l C o m p O b j p i 3 3 2 n` ` (_ (_ f o 1 3 C o m p O b j p C o m p O b j 9 ; a V B F r a m e = : f r m P A U L A G < _J_f_ f B C tTop = 330
ClientWidth = 4530
StartUpPosition = 1 'CenterOwner
TypeInfoVer = 120
End
$ ' 4 } ? * R KQ DB Tahoma
, 7 8 cmdExportme. ( ExportX
" u TahomaX ( CancelX
# u TahomaX P F % , 0I Use one Seg file for all span columnsse) 5 Tahoma T F * C o m p O b j Z p C o m p O b j F p a V B F r a m e r ) P R O J E C T w m I w 6
! # $ % & ' ( ) * + , - / 0 1 2 3 4 5 7 8 9 : < > ? @ A C h E F G H I J K L M e O Q R S T V W X Y [ ] ^ _ ` b c d f g i j k l m n o q s t u v x y z { | } ~ n = 1 'CenterOwner
TypeInfoVer = 26
End
$ 8 x } 6 2 R KQ DB Tahoma h
, 7 @ cmdImportxpo] ( Import File.... f # u Tahoma ( Cancel g # u Tahoma $ @
n` ` Microsoft Forms 2.0 Frame Embedded Object Forms.Frame.1 9q T F ) 1I Import multiple fileo ; A D i 1 4 ? n` ` _J__J_ f U o > @ P s in adjacent columns 5 Tahoma P F ' 0I Import each file in a separate workbooks 5 Tahoma h F > O 0I Import files under each other
(do not repeat column headers) 5 Tahoma @ H * ! } Multiple files. R KQ DB Tahoma
( t optAdjacentl (
p optSeparate 5% , ; 8 cmdCancelme. 5% ( p chkUseOneSeg ( t chkTokAnnosg , 2 D lblProgressg & (
p CheckBox2ssg ,
h chkFixHeaders me r $ # Frame1 $ # Frame2 ( & H txtTokAnnosr h (
' `
chkAnnosetsr l O , optConsecutive. =
n` ` Microsoft Forms 2.0 Frame Embedded Object Forms.Frame.1 9q P F & a 1I Put document metadata in file commentsks 5 Tahoma T F + , 1I Put tier metadata in column header comments 5 Tahoma 8 H } q MetadataR
n` ` Microsoft Forms 2.0 Frame Embedded Object Forms.Frame.1 9q chkImpTierM D G , 1I Save using original name 7 @ Tahoma @ F 4 0I Don't show workbook(s)me 5 Tahoma @ F x 0I Overwrite existing files 5 Tahoma 0 F { 1I *.xlsInf 5 Tahoma < F KQ DB Tahoma l
0 p chkImpDocMetadata TY 0 t chkImpTierMetadataTY O H, , tier1;tier2. 7 @ Tahoma P F ( a 0I Do not import tiers: (use ; to separate) 5 Tahoma
n` ` Microsoft Forms 2.0 Frame Embedded Object Forms.Frame.1 9q H F a 0I Remove in events 5 Tahoma P F & , 0I Remove ud-information markup in eventse) 5 Tahoma @ H # } q Clean up events R KQ DB Tahoma T
$ " h chkCDATA $ # p chkUDInf O R o o t E n t r y F g-܀0Jn2 g W o r k b o o k L PZ _ V B A _ P R O J E C T _ C U R " J e_`r_ V B A H e_^ _ { 0I *.xlsx (office 2007) 5 Tahoma 0 F { 0I *.txtInf 5 Tahoma 0 F { 0I *.csvInf 5 Tahoma ( Batch Import...n
# u Tahoma ( Format: 5 Tahoma: @ H 8 } Batch ConversionR KQ DB Tahoma
, - h optSaveAsXMLName (
1 ` chkCloseWBML { ( 2 ` chkOverwrite $ 3 P optXLS: { $ 4 \ optXLSX $ 5 P optTXTX q $ 6 P optCSVX 0 7 7 @ cmdBatchImportme E ( 8 2 8 Label1X - , ; 8 cmdCancelxpo" - $ # Frame1X $ # Frame2X
Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmPAULA
Caption = "Export to PAULA"
ClientHeight = 6105
ClientLeft = 45
ClientTop = 330
ClientWidth = 4680
StartUpPosition = 1 'CenterOwner
TypeInfoVer = 52
End
l m n a p ThisWorkbook T h i s W o r k b o o k Sheet1 S h e e t 1 Sheet2 S h e e t 2 Sheet3 S h e e t 3 mdlExportToExmaralda m d l E x p o r t T o E x m a r a l d a frmExportExmaralda f r m E x p o r t E x m a r a l d a mdlConvertUTF8 m d l C o n v e r t U T F 8 frmImportExmaralda f r m I m p o r t E x m a r a l d a mdlExportToPaula m d l E x p o r t T o P a u l a frmPAULA f r m P A U L A AppendString A p p e n d S t r i n g mdlDTD m d l D T D ID="{5778340C-32DF-4645-8867-CC6D6C715E57}"
Document=ThisWorkboP R O J E C T = P R O J E C T l k S u m m a r y I n f o r m a t i o n ( K D o c u m e n t S u m m a r y I n f o r m a t i o n 8 1I Export these columns as token annotations: 5 Tahoma $ ( 0
rows exported s q O 5 Tahoma L G , 1I Interpret ns:header as namespace 7 @ Tahoma H F , 0I Fix invalid column header names 5 Tahoma $ @ H,
n` ` Microsoft Forms 2.0 Frame Embedded Object Forms.Frame.1 9q ( Corpus prefix:meg 5 Tahoma H, , 7 @ Tahoma , @ H, , exmaralda.my_corpus 5 Tahoma < F C 0I Merge to tok file:s 5 Tahoma < H } Output FilesR KQ DB Tahoma
( 2 @ Label1nf (
8 txtTokFilefi ok/&H00000000
Document=Sheet1/&H00000000
Document=Sheet2/&H00000000
Document=Sheet3/&H00000000
Module=mdlExportToExmaralda
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=frmExportExmaralda
Module=mdlConvertUTF8
BaseClass=frmImportExmaralda
Module=mdlExportToPaula
BaseClass=frmPAULA
Class=AppendString
Module=mdlDTD
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="535194CD6DD16DD16DD16DD1"
DPB="282AEFF0F0F0F0F0"
GC="FDFF3A13DAE9DBE9DB16"
[Host Extender In q ( L txtPrefixefi { (
\ chkTokFilefi
n` ` Microsoft Forms 2.0 Frame Embedded Object Forms.Frame.1 9q 8 F u a 0I All PAULA DTDsme 5 Tahoma , F u a 1I None 5 Tahoma H F u a 0I Only general and markable DTDs 5 Tahoma @ H
} Generate DTDs meR KQ DB Tahoma |
$ X optDTD1f O $ L optDTD0f $ h optDTD2f , pos;lemmame. 7 @ Tahoma @ F , 0I Generate annoset files 5 Tahoma fo]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisWorkbook=44, 44, 1097, 683, Z
Sheet1=22, 22, 1075, 661,
Sheet2=0, 0, 0, 0, C
Sheet3=0, 0, 0, 0, C
mdlExportToExmaralda=88, 88, 1141, 727,
frmExportExmaralda=0, 0, 0, 0, C, 22, 22, 605, 383, C
mdlConvertUTF8=0, 0, 0, 0, C
frmImportExmaralda=132, 132, 1185, 771, , 44, 44, 627, 405,
mdlExportToPaula=0, 0, 0, 0, C
frmPAULA=0, 0, 0, 0, C, 66, 66, 649, 427, C
AppendString=0, 0, 0, 0, C
mdlDTD=0, 0, 0, 0, C
< +/I Oh +'0 @ H \ p
Amir Zeldes Amir Zeldes Microsoft Excel @ L<@ dH_ ՜. +,D ՜. +, P X d l t |
hub ' Sheet1 Sheet2 Sheet3 Worksheets ? G exmaralda_preamble @ abckkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
F! Microsoft Office Excel Worksheet Biff8 Excel.Sheet.8 9q C o m p O b j m