From 1ac447c94e0cb17b2389704f73ac417776337e2c Mon Sep 17 00:00:00 2001
From: csh <caoshenghui@tinysoft.com.cn>
Date: Fri, 19 Jan 2024 17:37:26 +0800
Subject: [PATCH] =?UTF-8?q?=E5=A2=9E=E5=8A=A0range=E6=96=B9=E6=B3=95?=
 =?UTF-8?q?=E6=94=AF=E6=8C=81?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 TSVbaDocxHelp.docx                            | Bin 41634 -> 41630 bytes
 docx/TSDocxApplication.tsf                    |   7 +-
 docx/TSDocxDocuments.tsf                      |   2 +-
 docx/TSDocxRange.tsf                          |  32 +++++-
 docx/TSDocxTable.tsf                          |  14 ---
 docx/font/TSDocxFontRange.tsf                 |   4 +-
 .../paragraphformat/TSDocxParagraphFormat.tsf |  11 +-
 docx/shading/TSDocxShading.tsf                |  16 +--
 docx/shading/TSDocxShadingRange.tsf           |  36 +++----
 docx/utils/TSWdRange.tsf                      |  94 ++++++++++++++++--
 10 files changed, 152 insertions(+), 64 deletions(-)

diff --git a/TSVbaDocxHelp.docx b/TSVbaDocxHelp.docx
index 0cee57fa9c995b0bd5b3a11c686e5ede58c33bff..d50a77c9542331c8d7997949b9bd9da93f5f9061 100644
GIT binary patch
delta 5533
zcmaKw2{=^k`^U$=jL|{{V^`KJku4%JN|G%__Q*bCtfSDNNQ^QjWZwyqv5$QnM2N^T
zWSI<2Mn$~V{*&JK_kVxa^}qh-y5`*X{ha4H&wb7{&*yueC$EP-tA`$BYQ(_E4Pa$u
z1&E`SaiDBE2AZvYLnrsg`9z=e$3Ze8|2W^7oc}ntSq%O-IjrN1sC4U>X&S$Ncz^%A
z*qK|XbkWh{*c<U<LjA@w7k^P?K733G^foqVzc?Cyp{$h8eS}+O3Vc81i=lgn0;KEn
z-D_0dr!%)=yX7U`LdDk<4!?99v>B?DD-fRYKfHW8VtT_M;ij$oJm<72^;Ttp-uT6X
z!E*;2_SV->TfON$x{Qqq860!zlvXeva+u}+p!%@o^MKo~1NQs2y=*bca+WSr;obJz
zxDZ$&vxK&qrZTEpoYU$msv@?5F!~k2GbE;#@w3l5EEB;q7->ynt`_QDF~GFWrJtiC
z3USqsIe$eyq8si5keKlrsR1Q3o=vA06HLKdo%W>Y7VKRg!_@8|I*t%0g|ATfq^9Ur
zs|@tQR<eZsBrpU6*}9R?LW!&dZ${dam|KSFTI83bnh;>Bm>P<hc^oO|zv|4;91h0Q
zt)ET_d!>FNTwbFYKnp8+J$Ob9t5o%a2iahl1QGCZr|rv-7oP(X+uQG00lhGgi3d!C
zY4#kZns6RGUHNUt*8|2z%Jkh)4SgVANjmg^67E?Y#m~k-Bqd7;5l5V#fSgrD6JHSe
zzNN9l1m{npmgwzB%#B=+<u#nb!QaHx=6~u$Rg{i<3^U<Hz<6D%ez;i$(A~&Fz5oip
zN=d0PK5^;J;vM%m;>d(1Z0tU_qulGL+CGq13w^#=DaO{!fcch(s|RD_B``jM%9u02
z;Z!q2e}}|eBcxk)R*sFawvq?$RPHnJMPk(f0G>yQskLV^D%!`57pa2WX{i@LsriYj
zVI>B8_ip;G1VQ?ZLly>Yb3;zgR$*d4?*@I)S-iges9}5sb}D|?TaLIfw>iSxqFhd$
zks86M9&9fISKAK2njzuSmgV*Qo!&|1iW6ZPJRowan#_fln(1#}=^=I9LMnL4(gGtn
zO`ahJWvK;Cz1dXRhv8qVqZk4ev~{-^8v+!#muH8019a3z4u~fLQE3)eYpJ38#$>g6
zP2t(K&~HKH%=9&6+l6M1AyA6$8|H?TIr%cP<gig4my8>7!c#TDO>RrABag<8r|J)U
z(N2rr!nSbmqCSh_MiNzX&l_&*jd`T*6~p2^8<n%Z^rx}kk$Q2BA(RuQ9==8-vQA#u
zp)jbaFlbr`OnU@PQHPCB-Me>71|+x`^Y~$&;I%@t@k(`+Ix_oyeM!2#!yWH7WSjrq
zoEhBd#XJ4CMdm?;V>=}H-UQi>1HH!PT(GP#xybJnj6%PH?RU0Fnavcd`L6T2`PEiM
zgqb9V9Yd|CtGr*|(cKK0v)G(D{82q*gM7wwkcDb}?}I}e5@S}jgMD<`tnRyX>2IGM
zFg~%a{CVq)hbMzs{B`qcbnJXA%M}C=I504q=F6W?8SE3E_a&+3_CH?Y{^i2(*V443
zKp1-nJ4!mHK#_%KbkuuSdG!(n$6VIyBiN&XIx&ek))qqc{IvURAv0vj6I_&|#r=XJ
z!RMTP9!e^Xk;=vnHcE~QKWKTrd$aAe4X$uFU3)#W{)vd%6!a_)0ABK|fERQ3#U6M5
zj;`~s=8xR@vgyxsCh+UhiSf%0uUzt@blJ{k<e*&gnG)l#x{FT5xQLIcTvZkO?R*XS
zaVMm5T{fkvay(5?E2I9(%GeJ^WZeiVQqx9VgU#O!czO_X4%#WuW6~*Lc>469nJKM7
z@ybqu;+0MTK7j)6gbrOUnaZn{XA5CE;mP=85psT5`R(qa!&F_1U+CfhJjhA^U5qO#
zj4}C2-Ntb9)hR!>xJUF-SsC8=YG~ExzCJOVXWkkoRXJhfPXojpyb>#P3AXmi%Znp+
zLw<HIy<}<vGtgN7HBzF|Q#<4_CM$j;^6cpCG^N(NtV-W}55v$A=MZpEsHMc{qQic=
z#joUau>@saUIy}XyPK~f=TP;dI9^^913B=XwON>Dx5}xHjdC!nRNsl6S|uUZjGzAR
z4pIe4hl5!;z7y5xYS$dOrPtCA3D(M63BD8D+)J<d+>Cb=hb~;%xa}%eZZvA2q9o5&
zokrE-1n0ZjDat4KM!dcgNz`s)2M{`r+ncHM%zKM)JjOs+L!uD{p1zlrD94*oQT2Tw
zpRkPym2kOe9rrU^rKRI*I4+KalQfXhP?;^nYb1tQ&2hME-vC5nAk-T%O|xGm-3OWp
z2|W1JkCUISI|n-H&sUIZt=4Y%T^48PkY_c3N6s3G2iw6%yMbZ33VxSAJsnFCQvC*e
zh=J_ifFCqUoqVSsZKNsdXMw5_YX=6?Dfltix3ycD8D8ixn4aD%z1}q!pa-PQ@1)?@
zW#9G{rXqfdRdzv+jgv+zL&P`cxH*x9^Fww@=H7U@^7ki5XGWu1`-}@HDXlIqbnRZn
z5lxYi?ZKA%=~MhkkaG1(Ij5v&Z@N#-Hdm!q@v>ibl0p+rCzYeBQI^Khyd1Oy=ArO*
z3b<MGT_ajl{tvDX7?$?TRb?9`V0QcoKtEl1zel#~eJw@a2UX3w_56KI_&$)|0sSL9
zA3(kx3J=$mo-eg30v<NlpN|3hipu+4CK{gD_LLQ~;P|3vM~ZGdEJ?qiQ`g|Js`Ci1
z2*x{6AHPI3omQ(A9br1cbA^MWtvSJcZ0)jhpzuqeKL)bA%S5=B8Qqv-6E6b;ihxOC
zYJERB(6Vw6jpd2~SiipW-)%rN$c!?yel<k?LsVlQC{PlBE;D~DQ(<R#+lz%J9JGNO
zse4d)qnmoRF>ypjJQuwIK8p#D8cD8wAR_0-HM1)YvtUfrJ^r|kCUk5tNj73n^7tk2
z%8?u$<{G8_BVtCji?*+Tff&e_-QtQ_C+2g1>mIWKbgt4eEI(1=iJfvDTTqAmBotmr
zImP?&=BqbNZ*21UR{nm8!+qltr#qSI=Xvn*9p%5Gnat#DW?iZb5Fza5KQMdu(cxDe
zO5Z=^vlM8YHSim=S69BhB4oHNF*J>xGncctb@^p^)hR-wLT}!J)`kI;#f@yvXBoVJ
z-h(|r^=oZN2axgS@|HV4?b?g2XN`MGP^cQ$w=H!p?M`(@OoOv?!hCI~!R#AUH;(CS
zL3h+v%rrK~N&w~dWFY4@kZ9zSGA>0qy(X+QQ6wrRTZ;Lb6~Cu<%=B`=Nx8DUVE*Yb
zXnyDB$FvZ;2{U9hKDD}f)-FCY<iT+A6Go`fh0JB~Rr^=9jqi0}UN^@wzuz>OxH+Pi
zdy`)zz`ctOL0&cheC&4+ZYbfKOkEtgQ9TfZf|p9kR-2<dR*qjO*yLI>m5DEn?b+#?
z+8b;#p55FXy}Q@4mpQZj%ny?9En%*jR3)1^B#E4<*IvKt=>42uTm^-T{M@6cWk6DW
zxDaegXt{!1PfG%QjSKVl{Pg*%<d0ej&LJ|1PW`W>Q+&MjO>S0-0+LH4t`pa~)%hf|
zIVFYtv-CJn=m?W%5h;{TTZ`QCC6|m0FUgb_hTe@ryvc-7yn}0r^pb3JGB7j)CG70T
zkwN}R4Ib+1*m1!5LRD*${^AwRW){A^naGJmD8q;9)78+-1H2j^DWo%r-*|s5KcMg7
z<3LCF!{)2id0EI)9Z*`dp_#aEdE(<uTX9)dSrmEpZLoT__&bw#2(tg9g(0#Q2nk2+
zSd+^&uRy4w)E!QwJkL-z<Q#G5xAb+q7kA5F$tnagEQJ*jTTdIqL`pG+p2=pHgW_0@
zP1#vl*;6ObW9k_flz*@W3)~k==ts8|{Uxb+cdtQ}x7XV|g#F**=Z>P_tgi{R1#*-3
zqnxg2?^83&!YEx&kW@i&{rnsWOVj7nhiZgXoRpXjRDUPKW#VGVq2i|nOm7Ee0w+Yl
zz%vSRE<V10&%~D|Ji%umG0biYXEUI1bqa`wLQkt<72}AG6YIpn7ARpYP<km*v21l{
z331MIf(hXIoskD+atSW7A1czE=NT)-%gW$HV(!cm6)3qwObE#9unCSMew$G9vAL!2
zzntzpBXZ_zR7)jzOZ%c?vcA|@f56lG3-UxLyg^fx8pL9(Yx9Gjwz@ChL3N3K>5OT&
z8}`CY+i67_Fh|-QM-xSYM_KJt($9a_b6AN(5l4`Vn}tt6`;iVL<~A;y4|Zo(HxVBB
zU1dszJ{JTbM>FA_-h7hgZ(Ncz-;(E(t|KN-tg!C>9!?zj_=`~^pzd$_ntw1ZE?}u^
z=b02!tNaN>--g!QH;$@neILs(bMn^eU)OBkzmrY(m<LAXDsmgZrM{*zc24DmVz+E{
zQM^v!Km-Ode}lb2CV91!s{#yKJi^v-q<MGCbZj5@qefFOKDPq(rD$yaEd0*yu%rAS
z6#i0EbXmUN7{(e9AwL3z=TN}BDS@%G1LX!u>R?i&E$vewE5f(%o_H@Y5HFYN#PO%?
zVFXUpbM~pAhfVm=ZBbOla9_(<)1F${RrX{WJC8;_#0*qjJPuwIQ|rz=uK4!n*}kYc
zi?bt~9vH~zgCll6w$-x<k0Sz*iS2gY)}Viq5N<4xzVsWq$B|XtXNIEwNqt(-wL0QY
z_3h?(Q@_?bP??T~M536sTEkCvv={9IZT4gNdya2^3jYc>k|&ov4Xp4Exdte8Y5xDL
z$<sUTVP&ke^)oJJzkSsSbR+tV?HMhnn&fIOM4nLTUD_2IN1Ax5SOji!7wzQ<=j?kg
zTw0AYNoZA<Uj;_p-&ST`C9{kU3!Cj0YhWEMz^JYP$A=9Z50ctjHiN9=s|dS?qRudW
zv8p`&e(F?%!scJ+86_7Q&G!QSKQ4Cb8(k2DX9XyHxHG$wU8hpIIuu+g=_TWyYbpa`
zy->3dUhnTO9!w#<IY#`z@%6f|d-2r0CLJ})7pNrblJfyE;(EJJgQSuS#=95y7goZS
zXN%wu!aQ&Xa|c6fAy@EmW~yA$>DQ)`ZjiA}Yc|=)bBcA6@tCwWM=n<(pTObovfFw3
z@a(znR_6@1fj(HF4I2-kQ=|49uDHIvT`~uElA-N~<eeUhOh>1cdYe~ZgI&~&7^e$#
z3FRD`@d@9+CV@a4x?vqKAlMmgLT_<L@2Qr8E<qwXePeAIl;5FbF!WPk?kUOem^c~L
zoQrmGeBLr5s7fG6b`gx79w*fZlg~wb`%r+B;~1Uf(JI8%w(Y;(n8?g8#K~!WI$w8p
zVIP0O!@D<RZ|6)){B<R2);+xRA`NTT|HZWutDZ*|I3AwllqQv>^F{sl420;Oi<6Ni
z5^tU@W_wG_`N9;R>FWJA*1{<`(#D^f9)rc1Ku}!&F5jbZLO)kqUua`1{lJf`Omy!m
z`(=}~{KCJ#rD6GHL_%QG{8>L`wKyHChN88r=ehVAA2I?FZ1B`vCVT{~TzSnqYwN0g
zw$tWn95G>njMzLSVssVgj)9EqGQko*um4nXR4EJRn)$PWig#8xQK|U5H;sEDe{zKX
zUZWBpwcXtZ@p>rQDYCe~R@lUrSA~Dsb^)4ZwMQJhw3Uig#%<yGBqm&cxYAB{VFs!?
zur${EwA57fH<?tW#KEmc5&l}WL1OWC#F{}&WSl>B@eIBMq(~rW)Z;LBf#9V@+os^n
z2jMiWBTu0E_4_AxxTjJPd^+Um;aN8ObBfGEB@tjdg=w5*ct`i3NvPO^@A}*|V!8^f
zLPKw!P?RPc-SzWDgWJ0Z_&Q&_bpF*Il~D9^|Fxw|t6ojegj{d$jxoaPyv?nmYLSxe
zQh>tJ=lus7b3x_3Z(<uJVtJNE4t_91WPkT>J+MW+PYT#%G9dKfRs67l{y3kkwWgQe
zuiEQY(1hNdpT2Q7w20}Se6QbP4!RiDz@?&y#%y?!#?_mvo}#|{*dK)COD`U0aGu}i
zw}RAHCpL;+PMkq(c=-FD&~zr-&fs12%NOK<;?ATD{++y<1Fd?$vRl}vmT()6_}mRo
zcRSSkN$}qCWNTUOTh}Trs!UlhpF%dbf<v+z>vJ3;ORm|8R5vOYdDlB*hE10L{B1{)
z#kmc3-E*AUOdH(>r98!FD`I3^34=ST{sUjwhwt-htQ*+#ysOz`5MEje-J4uFjh9g?
z#Q0vSL}zZm$fp(>FEb9zIFj}u*0*jlh&!W5p%8ol@9OiX{_w>gH}Xrxz0vXhuqB<Q
znrBbGBj6Wp>!uag**S;GA7RJa+}Rdc1u|~4yzy!o_q68$;hh4;qPVXmevQuD@FW{u
zxS6h5=6ihgaY-e@FDtV-KJ4gyz7;sDuD;IsP_8bPMaw(GAL39p273~}0b8m%g^Jd9
z*2)Mu#$`c!GAEZjc60_(yjYPyTlc*@%w56i!$PikB45+}_mXYKO<ClMtUCHNf__BL
zoQhyPd{>JCJ11Xn?<?-;dsl?MoIKI<cBkIY&$<yjh)&(`SssT(pb<(phFY)##(Yu)
z1*fI`>4pkt4@(5DP!B=-&rp<|CDM93i@Q1lqUM+Pn|4ak0U|4)j!t|n!g@L|X_6*P
z_q)3Y8g=J@D8~g`8!Kf58`i;-_k;z+V5k~%`?Nlx@4lMfh1gAOjHe*|k~X&3GmC}u
z;#2Q5!RhMjUITRWvdPtaFf0q76!v4$q89+L$;J)%uPw#uo&X@j?>$9q4l7UfDst^8
zsGbVpWIt-1NApxg&oUqFI?kheKu6B2v~tFyt5(_CM>aKE^~jE9YaZF-Ia){7B<Iid
zgq$lN+8kE@NdrsDQ9A0umkXh*!K&nn9!1u)s1qBQD`NY*_cMinm=A0KK!h&<a18M8
zqb~#iK>GN(DEJ55_rB*Z9}M$0HKL;j0RFR8YV|@_tf8720BDi{08agTEMN-zJ@>T8
u?+L(Xa4(`j0Kj+J@4x#Dqp|B~F!p*L$5CE3c@Vl3EHdv5Gc^16z5WMM@Ox(f

delta 5624
zcmZu#2|SeD_aAG*h^!M4lPoc|LUuwVL@A72L>M!cgqV<h&@`beS@WvwW0|opnH0vp
zW$ZF`Wh^Q3pLl=2|NH(w|L600o^$TK=iGDd{XF-3&bhDKX>;3Yfj5ol=(zw)OiTbb
zQ*b#ji-wL$v86Q9$IKLM@-Y)YA8^ckXK+4d?w-&;X0n-v=#dw@Ot^XMG*k~aZNB%K
zzY;8~j2=OsNSZHLdwuB7y}Z(?QhfnDEx4qgX)(ll$t^BzHNM_x`+Q|XYQl_<oM-^*
zgV#kpCtl94x#%5U<o5LMsr<BI-Z@=hlkjt`wLq|eB;*qOgqL{0MN9LX<=3GLFMkJ?
zO1;tiHP=0Rj@DMjgmI(We=42?MD|>1usWRF{HkzJ`sqh-Y4SkRyY(l;)P>-$?G4rD
zbeuh}ZIy$uU^Ytwq#}y+g3$3TjoIt$v>+#Lz}fTN6I!iZuB7vHe7~}x2pxc3Gs`11
z|F<9pf(6HjgLE-7oCoi2@vXxuB$EJ@WpPFGcLimjFT`zaPwqQRr|>-8R{-F(VI~E9
zYYXC1vC8KMBOA(i@s1n$qfqk;<+gw}yHS>4H2;oCOhYO1I+}RtDyPh9WJ3oqSgd2x
zUwf1#NL$7yVv_vCj+fGEi(?5u^RJu4)FtA#%4zJH<4I2fp2ug%NhJu_J&7j)Mkx7C
zOE1d!Mbs8Hfd&T8SbQBJUFx4_(S{BV(nXO~9YBu;T4yhYURrA{s_yVb+2OARZ$LD&
zIyUoBI3xx@aCv2UZQLI(4Sr^13c~5Z;49wdau)A7XHL(A+srfKIcfCqkZkD|>3lty
z!AfeSF^87*thHM_sdre_YXI$1#xvY%Js(wN7iPvWWKbdwrh9*hG7PZIjwfja(Du3z
z>A!f<Nc+%PCuLitq|k?3TgH>hhLt@0F<UZxPgvk+{%I3hzS8ywx6&Cash;(V?3x*3
zn66nWcV!y8+|H@X#;V^%QMlOLdMDKLhHmsv%$e?TYijL`wT9L5W@QH>Y-)L#DeL!H
zYqR(lL)T+!F#`4iNODwX_FX!Xk$38lc&Emaki3c5ILgzyegccIUu<!YxsmJQFJyc*
zxYq6V%iq?%rJX9vFhwQbht+lO(cY#TW1G(`-3-%jrsW6cEb00m3{>l1o&cF{-!o>A
z=DPldMk88Lp!p#TM(>%qza5sI7M3Z&wsxt`bC+BYS0R5f85zZf(AClGV|&wI_`otl
zGo!AjetgilR7Sdbs%{D&vLRk0``J~*<(5QU|I%ZhnvfL=gpsiGRL-2j>sdP^tENAw
z7&>G3qHt{>9T$M|g<6d@H;Q#OMr-<Iq%H35pZlr4A@S1-xo1T#R=pM<+M_wOSYxS-
zgz0Vt*Vkm(Ba7539CL$Hz81vnzVi9?{8Cj|q5g%pR{DDI_6RU8GV<$JShsRQpTFxo
z$2Vo4^xk`|h&W^g%|60QHc=x|J(5e;{3RWWySw7SE5Gb*%ZQ=5n#9?RCZ^Sn=&1(Z
zD({dV--r!}DwbO}1(`qlV^HO$X(F4qbYJusx=vu0Pazv7uZ6s`A1)s4CmUx4G>%_=
zmcA-dV9HQ4h%`qT$bAlp>)X#RM^1Xg^(7mB6j~wea(&XL$lR{zYt5$TF}YdMNBc?t
zeC0Dw-3pGSGw1oyf0!Nhz+&~$-DD%H(FfgZg2Zv~mV02hDs)k^B~v;h<0&4?aC)KR
zrHEr9a#qYS@%-u23*zFZ7YttJJvMj=c1&btGiUCY&OXU)nJ<~rUoE87Ns4af!5gLq
zJKZ|$%6^L^+^Qu-$>zH1Vl`+x!Q*@P?eabG*mi9iE>n|g(wNAY&%JwS>1)*jC;6kR
zmvvRprI!sy&N)L$LB5DZ$bCGd>oWHj6%)cIB>tg~;j0fNb<wm^32!K{rHjTOdpUa0
z59LD*LNlLo4P&Dur~7xA-`#JKoyHs;AXZeEuh%qInePO7tVNI7qSRIt6*fxFrp0+o
zq$n13DX;8XgH9<Bf8rN@cd_{(T}^wHSF8wD3cV?aVJ^+NB2aLLvIlb<Vi<)jc#Pz`
zpP9FJ5t}kB>RxIDN_}c&93U7SZ-#~N@pj;}?nrCHvTPXua}G?Ug=tQ3MRvy44&YPu
ztIFn8IN?|ROp~q9`KX%4z?C!2JZ(air-LnqmUl)^G8&u=cKicZrl(M%=nlVL895nJ
zWL*a^K<vW=Y=^Vb#m?Cvp48=mT=gy}uay;nk5H_O9*W^}&|wa|^kAiy^?Z(ch?4tk
zWMeNcK4;^@lF=#t9}G<$z)-Q8P+P88SCO_incR2@YmRA#`X{`2no@g*qQdi;4q&gf
z5Q_pwZ<QPds{KEZT57*jorY$9n*1$={sa|O&MQBP(DQx<KSPFqbR?=tDZ`6Qo2Qp_
z?B_4^ZyVXmf6j&s>cI+CwH@jubGtngJ}2A}7)>d={_*Z?9L#R)h81gMjx3ixOnmiK
z>)5*sm?|f2B#9NkJ1wHroXG{ZkQ!h>+Q^*w5Q$^w#S5?J#{^e#qa_&qb09ufZ4U>H
z{}O_dDz~y)Y+lBbWCL`%Y@erpVPB*@Lc$RlS%`#l<<d@0dF`pLNPGv-_keb;!sO~i
zXR&^AHN!I&A2k1b5F;TuB|*S<<ZJc4TsdkVlG^!`fe=;bPY%de=UvvZosX*J1Q0AF
zbht-K^50iQ*!<B<-|IRMNfnh8hJ4V2g_BOw<k|Fu+qiXFt3Ttx$9f&0t0ibZonz90
zQbWemY7G6lQ|E(h7QZlv51s8{uc-0g;Q%8FK|ls0Yde7c2e(GnWh3~I$00<WE>FaJ
z^j#wrnA=J~ee`t>ysIKgqub0V56QuiiIL(y)-4A7IbOVW$^H2UoYcqxg~yYohmmdJ
zg(<}_c`GnZok3!+<3LScD_>^FtqCQ`HUR_U-DNUfUGz)J59Yk@b?pF5^wW%iCQRPx
zE9@C=Ro^f^<)z!JI<VZBKzr7G0O{TM?Dsgb9DAbBb|~n*aMztNX6K1i=RWxBz`WcD
ztnXWtWIdd4pxDrK@AV#6ErrBq<~!pZB7??c7@tG-uvKaX>#k)jaG4jY3Lyvfy4Q%;
z0#t?SCj!Z?za~oAWFoL_F1_y=*5A~0K6v5(eCHI%V}KpaJ!J5(hY*r;qEJ{RHf1P8
z4Y;<HYv%aVqq_mJQdl=e>KYqcFVSyQZ@AxiH9S`|(}aTdlNq$0Sj?)v{BDW(=$)8{
zq+1U1rX-MErE&&<^YsNkS(z_AMH*yXy@7E1Ys{riQ_12*veny5elcM4pRo_cll3jy
zXZL4TLl!0qU_l}7<p+}o#I@jS_yjXWPKosEW636DOx+qZD?m=R`dR`yt;w=w(}_<I
z?8Dy#R}-I`%&QCN{>-@3-gu>I!zZ6}&zci?g6z8q5ZM15$BG)CP>|wF#2_|fnM9p3
zP#Du_OwtuoVMao;*vIBhf5(!yy~7B36Jiy{=<|6++f%GY&Pya2?BI*<+*dmpG>A<}
za<Ys>N>G3rd1iXQbQCAT|K<8)RFY{#(#0UdXjL3Yi9FuTuOH!p%2@H=JZ<<0g+%(Q
zht0B5P2d&3SqY#bD67*V)Yjfv!{6^>JS0od+)tA!Fc-Cq9`wRrt~d(51y1&T9i>{+
zv|mIS&ddV_XzV_YR^??O_ayMGKc<Gbsp&;D*37S`KQipQ#x0or^8!Wop^o#HI}3&D
z+9RS@AyQH@0UiW*0h3HnAU#qoQH`VH9>M<BKIUwBhz&o=S@G?^qg>_osFY~ZluDfM
z@76M~Q0OjksBwFyO?5YsBiHOEMzZi)KokGmmL(TDOC<NPiTujz+sKz2-#X@|{Z}lL
zwhfd_%zFh}>nr}kQR7SfbD(Yn7S2NyQOek6jQ2;<xVA{W)Pu>c1g!T@ip=fQzCakh
z9P%S0aD10nXaU$qwDDr+l-NTx*zL?N>v6F@4U_eubL?SHye$ngQ0beNuGfP-T1l^w
ze$V^AcszId+3B6uKM7@)AfJ&4dg)&6hk7{gx`+}flRcm=q99v35J-gp;bLUd47<Oh
z?sN&c%5n`Ns12rTfiUUA*wx(WOFNCz9_7ev>A@CN5kLFe7(-jA3FuU;^m55_zaU&?
z-;Bkpex=Mr;2%rW+-+oo3pnweQzAGO#RY{KdHB(X9BZ#2!v$2v{{~r!<$_!NbWjHt
zPc;ANPX;96y~vmP0v+g-TYH$-$@hMbMN1YJlDjW`i)_8g#|&2D+PN{~Y1SyrNcVTf
z{gYwC1PgJFVL=E}@zv(A`A6f6?zj>|Xe#4;xXrV8(zy{;pHc~ElazOFF{6(*#3#b0
zso4P~+suIL0K&x>Y`8o9W=@X8Gg2q`fYgJ<s7lP*dFkDY)3z;)C*2&;^dE4C^C(Fl
z+?VBD5K-#NWcN*-FHoef)#6<gQR>}hL3OIMuYbLhcRhpUc>11ZTz>`HdA*jD(k1&}
zlcVfa>mL#;rL~Tx4WMntN$M5Oeo6LYFrs4fv0oiXmoY)=QqcUfCQN)^gLvk3#wB>%
zqANRq?hSv?*-!_PBi*bAd!lMM4XG|-{Eri-Z2P&+{Xz8@Rjb+4WS#%GzQ%?fYd%h;
z6=WrIt*dKaJ%PemU}%04wN$xGt+&=!hTRx{{Jm2ONS~^crBvjundTvh>>}Xljkog-
z<lia#)g{aqG{9X;dext=cTZQG-A+;-I5-Ep90b+N(}1$<)+?!3YH!?l|4WhCFW>mE
zVNd6$_hCCxF#Dm!N^z7d)a4?|-#$^VEpQ<rj*a-*)aCX}q{4d5(t#+Y>#yEScuP#$
z93mtMxm+h!mG-tan0X+i@6^rEYIycmyO@E!K<ZXxYyB@!#1@5aiJT;UFp#11&YwKz
zt<r>_*jt2=BWhGPNS;l<hGtx3HEkFhu20(q)fMSmIfooRD^~<^SeYf<+w~;z20cC#
zj)B|04N>`j0UG%?LOW3rnoY^HmiIw1Y|C`~%#h!GwIR%9?#i3u$&B=8zrdTv@pz7U
z|ILvTum_9}3zRDdRx2j5(j`BCF1me2<pYQCfv)O{>v<2H5WnGD8Wh+qrH01J(a?=h
z@=ik@sa-rh_J#4A)$4yzK27Wt_tf$6jbjJ~-S)_`lL|>Swd5bk!Db>grru6da>S=D
z^VR*u^eoOZ8P-2W2cQnqoV}K@VfK5R#k2m&4vtb8Q&lRYl2$K{6BW7N<ur&JHY9pZ
zW#vQcr_zq7>eE7Va|6?Jad!PPY%oIi-a|@Mp92U?4r1HT-OP_hQ#2=U>dTjXv|D83
zcSg=(9OnvTTd#jfqP*04^q_x~htb`W<#qq)7yHoRz!hR2wdb|>8E85DH!0>)^<2Zj
z{_{!w3!s3W3KG}<0odC`vn_8eSy(zdC(;mS2Il3#Nl!kaDRp9)yVt&(Dspb%6!|`$
z%lRj~vc2+a-nQJ_JFX%OFpjckkjt_EtQguXlYaWyU(YhM#K&tF{dKM!gg5mOywd#W
zD>XoLX?4`vQY-IQ>Fq*NHUkgOr^T|`YKAl5=xe%q!%14y^y&@@22l{=nK`ageU*PQ
zKNHPopdK){gK))9o4Y}vvNVh4Sg+#)Iq=vI8Qo<g_pZRHC5Z9p#A7^!E?ru%$<d^K
zS_bC7B#A*#XMnyX-$aayLSU}vesz6%W%-N5%ITpHs6hRcD}vLr6pf#nb$8v!7%>R|
z8M^*zX}<E>S`|%zz^oSxTH3D!e1A?FWaM+6%NQRuD36RsAWCf2g4DIBQP&r_axeGZ
z>f^Z88#q*!?;2Te<RoHsPeE30pzd{y2|EWvu|aPPDw?t~Q_ETnIn(FHH0$h{;lZDp
zE+2Q>rtRYo<q?g^SpWI~hq3#QGp6>l^|3B4DzT{RMa<vi?TDqRb6z7qcBq?I>?X%H
zA*0Fu1EfhF@8PyJ#Ei(v>l2a1=yWO7xDblxRQtWF4Apw}f*QoqB&gr)%;Y{BUAcVO
z%2HcqVVEN-<1V<AFq3S&ACIIgPw^XbMDy{{kw==p;4+g3fuQH4sC3ix^!QPbD)|dh
z6#M`fV8uuM5eGYX->i}G$<V5_8$~|jPHwE3cdxF*5gJF8KJM58krs*^(+J+TA37iH
z<v-f1sMmgkillhX0KqlMFb*!~Ia1=Tcdtzt+O+)xH+{SE53U<n&|B+_3Y^Hhmmmf5
zc$f71i)v)Y`Fj39t4jmxr>H3iWz9JcGyjhCLZ3j>BL9$BlX>^)3L8feTR58Heb34a
zh(e($Uh~hL@-;6YiTKz~)r5D6Wpawds)WPUeicDN8-5!;_Mol)qOx)go5`KST+tXX
z9By~EzGVB(d#aiFs6Jy}b8*88{)fc(nKDZ^z1E8e+WDLXt*xH|A8smAbFRSZ4N2d!
z>FIjaA6280g5SyzM6buiCN*aji8TqGclb^xe21^A-?)LKt}GHAD=F(UnUK-SM}+|a
zC?D(Gj9T!Iiu$l%gm>tKM`!Va!U!IPqUm`7)xfs3IAz+yg)dF<au+W+%nvxsyWS!Q
zUtDqex(~gAmzrR4C3Nj6QI-?5^p!zk<jGH83s||@Qp*sbUN$4;m6Etob75t|NBp)N
zrOSC{0O{yhs{{A_J@ME=Uxj@u%3+3Njgta{njKg(?CHk+lSiqyLhgCZge%o@EF%sx
zHc(52Z*0F7zBI<i*5%)9zf9e4-_^M{nRnk9gxrA2=@YT&yXSQY9f3+dD$GAWUtlA&
zT=9py;Okc#8>AEJF8q;Sp7ZcOYq)^X47-4N^C06yVrHCY+9U~U;L%A#YqXB#_QIS1
zvF36JEO-C_l#^V5e_c;vTl`q){@hPuvYB|WUjx>T8rY#=Hs+&S%Y{e^;}JtbwF8gj
zTKsshwP~sJM~&NA8b>raOYw*jvs8~LYqr`EHOf97M`d3FQjJ*t*AL8ew!F}vo~g5a
zLPS~sV44L0I1TvcgTu(>2p`F`C(A-V(g6T9CjkJCe~JJI7(~vwBbh`QznDSlco+fz
zIQ1`?E=*aD;E^|dIs7yen6;eqM;g4M<u4+E0Kj+Z%l$8n0gP<!vCO4N(;yf<0Du$y
Rzuu)|d~-z^4YU3z{twU}z8U}k

diff --git a/docx/TSDocxApplication.tsf b/docx/TSDocxApplication.tsf
index 5c20eeb..9ee0f1e 100644
--- a/docx/TSDocxApplication.tsf
+++ b/docx/TSDocxApplication.tsf
@@ -4,6 +4,9 @@ public
 	Function Create();
 	Function Init();
 
+private
+	documents_;
+
 public
 	// Methods
 	Function Activate();
@@ -340,9 +343,6 @@ public
 	Function ReadActiveEncryptionSession();
 	Function ReadActiveDocument();
 
-private
-	documents_;
-
 End;
 
 // ============== 实现 ================= //
@@ -358,7 +358,6 @@ Begin
 	documents_.Init();
 End;
 
-
 // Properties
 Function TSDocxApplication.ReadDocuments(Index)
 Begin
diff --git a/docx/TSDocxDocuments.tsf b/docx/TSDocxDocuments.tsf
index 0aacc7e..d100811 100644
--- a/docx/TSDocxDocuments.tsf
+++ b/docx/TSDocxDocuments.tsf
@@ -21,7 +21,7 @@ public
 	Function Item(Index);
 	Function Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument,
 				  PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format,
-				  Encoding, Visible, OpenConflictDocument, OpenAndRepair, DocumentDirection, NoEncodingDialog); // Completed
+				  Encoding, Visible, OpenConflictDocument, OpenAndRepair, DocumentDirection, NoEncodingDialog); overload;
 	Function OpenNoRepairDialog(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
 				  PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument,
 				  WritePasswordTemplate, Format, Encoding, Visible, OpenAndRepair,
diff --git a/docx/TSDocxRange.tsf b/docx/TSDocxRange.tsf
index 155621c..3cd2e73 100644
--- a/docx/TSDocxRange.tsf
+++ b/docx/TSDocxRange.tsf
@@ -17,6 +17,7 @@ private
 	docx_;
 	range_obj_;  // TSWdRange
 	range_font_; // TSDocxFontRange
+	range_shading_; // TSDocxShadingRange
 	paragraph_format_range_; // TSDocxParagraphFormatRange
 	list_format_range_; // TSDocxListFormatRange
 	borders_range_;	// TSDocxBordersRange
@@ -79,7 +80,7 @@ public
 	Function MoveStartWhile(Cset, Count);
 	Function MoveUnti(Cset, Count);
 	Function MoveWhile(Cset, Count);
-	Function Nex(_Unit, Count);
+	Function Next(_Unit, Count);
 	Function NextSubdocument();
 	Function Paste();
 	Function PasteAndFormat(Type);
@@ -332,6 +333,8 @@ Begin
 	range_obj_ := rangeObj;
 	range_font_ := new TSDocxFontRange(self.Application, self.Creator, self);
 	range_font_.Init(range_obj_);
+	range_shading_ := new TSDocxShadingRange(self.Application, self.Creator, self);
+	range_shading_.Init(range_obj_);
 	paragraph_format_range_ := new TSDocxParagraphFormatRange(self.Application, self.Creator, self);
 	paragraph_format_range_.Init(docx_, range_obj_);
 	list_format_range_ := new TSDocxListFormatRange(self.Application, self.Creator, self);
@@ -732,6 +735,7 @@ End;
 
 Function TSDocxRange.WriteText(value);
 Begin
+	range_obj_.SplitRun();
 	self.Clear();
 	run := range_obj_[0].TRun;
 	if ifObj(run.Root()) then run.SetText(value);
@@ -743,12 +747,21 @@ Begin
 End;
 Function TSDocxRange.ReadText();
 Begin
+	range_obj_.SplitRun();
 	txt := "";
 	prev := range_obj_[0].TParagraph;
 	for i:=0 to range_obj_.Size()-1 do
 	begin
 		run := range_obj_[i].TRun;
-		txt += prev = range_obj_[i].TParagraph ? run.Text() : "\n" + run.Text();
+		if not ifObj(run.Root()) then continue;
+		if prev = range_obj_[i].TParagraph then
+		begin
+			txt += run.Text();
+		end
+		else begin
+			txt += "\n" + run.Text();
+			prev := range_obj_[i].TParagraph;
+		end
 	end
 	return txt;
 End;
@@ -757,3 +770,18 @@ Function TSDocxRange.ReadListFormat();
 Begin
 	return list_format_range_;
 End;
+
+Function TSDocxRange.ReadShading();
+Begin
+	return range_shading_;
+End;
+
+Function TSDocxRange.ReadEnd();
+Begin
+	return range_obj_.GetEnd();
+End;
+
+Function TSDocxRange.ReadStart();
+Begin
+	return range_obj_.GetStart();
+End;
diff --git a/docx/TSDocxTable.tsf b/docx/TSDocxTable.tsf
index 9da9ae5..0b30716 100644
--- a/docx/TSDocxTable.tsf
+++ b/docx/TSDocxTable.tsf
@@ -193,20 +193,6 @@ Begin
 	return ifnil(index) ? rows_obj : rows_obj[index];
 End;
 
-Function TSDocxTable.WritePreferredWidthType(value);
-Begin
-End;
-Function TSDocxTable.ReadPreferredWidthType();
-Begin
-End;
-
-Function TSDocxTable.WritePreferredWidth(value);
-Begin
-End;
-Function TSDocxTable.ReadPreferredWidth();
-Begin
-End;
-
 Function TSDocxTable.ReadRange();
 Begin
 	if ifnil(range_) then
diff --git a/docx/font/TSDocxFontRange.tsf b/docx/font/TSDocxFontRange.tsf
index 7e1580e..2ba4a56 100644
--- a/docx/font/TSDocxFontRange.tsf
+++ b/docx/font/TSDocxFontRange.tsf
@@ -3,7 +3,7 @@ Uses TSDocxEnumerations;
 
 public
 	Function Init(rangeObj);
-	Function Apply();overload;
+	Function Apply();override;
 	Function ReWrite(pr);override;
 
 private
@@ -115,7 +115,7 @@ Begin
 	class(TSDocxFont).Init(nil);
 End;
 
-Function TSDocxFontRange.Apply();overload;
+Function TSDocxFontRange.Apply();override;
 Begin
 	CallFunction(ThisFunction(class(TSDocxFont).Apply));
 End;
diff --git a/docx/paragraphformat/TSDocxParagraphFormat.tsf b/docx/paragraphformat/TSDocxParagraphFormat.tsf
index d975152..b8c2c57 100644
--- a/docx/paragraphformat/TSDocxParagraphFormat.tsf
+++ b/docx/paragraphformat/TSDocxParagraphFormat.tsf
@@ -9,6 +9,7 @@ public
 protected
 	docx_;
 	pr_;  // TOfficeObj("TwpPr")
+	shading_; // TSDocxShading
 
 public
 	// Methods
@@ -151,6 +152,7 @@ Function TSDocxParagraphFormat.Init(docx, pPr);
 Begin
 	docx_ := docx;
 	pr_ := pPr;
+	shading_ := nil;
 End;
 
 Function TSDocxParagraphFormat.Apply();virtual;
@@ -316,9 +318,12 @@ End;
 
 Function TSDocxParagraphFormat.ReadShading();virtual;
 Begin
-	shading_obj := new TSDocxShading(self.Application, self.Creator, self.Parent);
-	shading_obj.Init(pr_.Shading);
-	return shading_obj;
+	if ifnil(shading_) then
+	begin
+		shading_ := new TSDocxShading(self.Application, self.Creator, self.Parent);
+		shading_.Init(pr_.Shading);
+	end
+	return shading_;
 End;
 
 Function TSDocxParagraphFormat.WriteRightIndent(value);virtual;
diff --git a/docx/shading/TSDocxShading.tsf b/docx/shading/TSDocxShading.tsf
index 6b5c36a..8057e81 100644
--- a/docx/shading/TSDocxShading.tsf
+++ b/docx/shading/TSDocxShading.tsf
@@ -45,7 +45,7 @@ Begin
 End;
 
 // property
-Function TSDocxShading.WriteTexture(value);
+Function TSDocxShading.WriteTexture(value);virtual;
 Begin
 	case value of
 		TSDocxEnumerations.wdTexture10Percent():
@@ -156,7 +156,7 @@ Begin
 			shading_.Val := "thinVertStripe";
 	end;
 End;
-Function TSDocxShading.ReadTexture();
+Function TSDocxShading.ReadTexture();virtual;
 Begin
 	value := shading_.Value("Val");
 	case value of
@@ -269,29 +269,29 @@ Begin
 	end;
 End;
 
-Function TSDocxShading.WriteForegroundPatternColorIndex(value);
+Function TSDocxShading.WriteForegroundPatternColorIndex(value);virtual;
 Begin
 	shading_.Color := color_index_[value];
 End;
-Function TSDocxShading.ReadForegroundPatternColorIndex();
+Function TSDocxShading.ReadForegroundPatternColorIndex();virtual;
 Begin
 	return color_index_[shading_.Value("Color")];
 End;
 
-Function TSDocxShading.WriteForegroundPatternColor(value);
+Function TSDocxShading.WriteForegroundPatternColor(value);virtual;
 Begin
 	shading_.Color := color_[value];
 End;
-Function TSDocxShading.ReadForegroundPatternColor();
+Function TSDocxShading.ReadForegroundPatternColor();virtual;
 Begin
 	return color_[shading_.Value("Color")];
 End;
 
-Function TSDocxShading.WriteBackgroundPatternColorIndex(value);
+Function TSDocxShading.WriteBackgroundPatternColorIndex(value);virtual;
 Begin
 	shading_.Fill := color_index_[value];
 End;
-Function TSDocxShading.ReadBackgroundPatternColorIndex();
+Function TSDocxShading.ReadBackgroundPatternColorIndex();virtual;
 Begin
 	return color_index_[shading_.Value("Fill")];
 End;
diff --git a/docx/shading/TSDocxShadingRange.tsf b/docx/shading/TSDocxShadingRange.tsf
index 8f3a024..66f6e4b 100644
--- a/docx/shading/TSDocxShadingRange.tsf
+++ b/docx/shading/TSDocxShadingRange.tsf
@@ -7,13 +7,13 @@ public
 
 private
 	Function GetShadingObjectByNode(node);
-	Function GetShading(arr, hash);
+	Function GetShading(arr);
 	Function CallFunction(fname, value);overload;
 	Function CallFunction(fname);overload;
-	Function SplitRun();
 
 private
 	range_obj_;
+	shading_hash_;
 
 public
 	Function WriteTexture(value);override;
@@ -34,27 +34,22 @@ End;
 Function TSDocxShadingRange.Init(rangeObj);
 Begin
 	range_obj_ := rangeObj;
+	shading_hash_ := array();
 	class(TSDocxShading).Init(nil);
 End;
 
 Function TSDocxShadingRange.Apply();override;
 Begin
-	CallFunction(ThisFunction(class(TSDocxShading).Apply), nil);
+	CallFunction("Apply");
 End;
 
-Function TSDocxShadingRange.SplitRun();
-Begin
-	range_obj_.SplitRangeRun();
-	self.Parent.SetRangeObj(range_obj_);
-End;
-
-Function TSDocxShadingRange.GetShading(arr, hash);
+Function TSDocxShadingRange.GetShading(arr);
 Begin
 	if arr.Entirety then
 	begin
-		if not ifnil(hash[arr.Entirety]) then nil;
-		hash[arr.Entirety] := true;
+		if not ifnil(shading_hash_[arr.Entirety]) then return nil;
 		shading := GetShadingObjectByNode(arr.Entirety);
+		shading_hash_[arr.Entirety] := shading;
 	end
 	else begin
 		trun := arr.TRun;
@@ -74,7 +69,7 @@ Begin
 		obj.Init(node);
 		paragraph_obj := new TSDocxParagraph(self.Application, self.Creator, self.Parent);
 		paragraph_obj.Init(nil, obj, nil);
-		return paragraph_obj.Shading();
+		return paragraph_obj.Shading;
 	end
 	else if name = "w:tbl" then
 	begin
@@ -82,24 +77,23 @@ Begin
 		obj.Init(node);
 		table_obj := new TSDocxTable(self.Application, self.Creator, self.Parent);
 		table_obj.Init(nil, obj);
-		return table_obj.Shading();
+		return table_obj.Shading;
 	end
 	else if name = "w:tc" then
 	begin
 		cell_obj := new TSDocxCell(self.Application, self.Creator, self.Parent);
 		cell_obj.Init(node);
-		return cell_obj.Shading();
+		return cell_obj.Shading;
 	end
 End;
 
 Function TSDocxShadingRange.CallFunction(fname, value);overload;
 Begin
 	// 这样设计是为了段落走走段落的shading，table走table的，cell走cell的
-	SplitRun();
-	hash := array();
+	range_obj_.SplitRun();
 	for i:=0 to range_obj_.Size()-1 do
 	begin
-		shading := GetShading(range_obj_[i], hash);
+		shading := GetShading(range_obj_[i]);
 		if ifnil(shading) then continue;
 		pf := FindFunction(fname, shading);
 		pf.Do(value);
@@ -108,11 +102,13 @@ End;
 
 Function TSDocxShadingRange.CallFunction(fname);overload;
 Begin
-	hash := array();
+	range_obj_.SplitRun();
 	ret := nil;
 	for i:=0 to range_obj_.Size()-1 do
 	begin
-		shading := GetShading(range_obj_[i], hash);
+		arr := range_obj_[i];
+		if arr.Entirety and shading_hash_[arr.Entirety] then shading := shading_hash_[arr.Entirety];
+		else shading := GetShading(range_obj_[i]);
 		if ifnil(shading) then continue;
 		pf := FindFunction(fname, shading);
 		r := pf.Do();
diff --git a/docx/utils/TSWdRange.tsf b/docx/utils/TSWdRange.tsf
index 8b9995f..0c87c6e 100644
--- a/docx/utils/TSWdRange.tsf
+++ b/docx/utils/TSWdRange.tsf
@@ -13,7 +13,6 @@ public
 	Function SplitRun(index);overload;
 	Function Clear(deleteAll);
 	Function Size();
-	Function Root();
 
 	Function Print();
 	Begin
@@ -27,6 +26,7 @@ private
 	Function AddRunInfo(runNode, tParagraph);
 	Function AddRunInfo2(runNode, tParagraph);
 	Function ParagraphRange(node);
+	Function CalcPosition(startNode);
 
 public
 	data_; // 管理range结构的数组，字段如下
@@ -106,7 +106,7 @@ Function TSWdRange.Create(rootNode, startP, endP);overload;
 Begin
 	root_node_ := rootNode;
 	start_position_ := startP;
-	end_position_ := endP;
+	end_position_ := endP = -1 ? INF : endP;
 	target_node_ := nil;
 	self.Init();
 End;
@@ -153,21 +153,15 @@ Begin
 	return length(data_);
 End;
 
-Function TSWdRange.Root();
-Begin
-	node := root_node_;
-	return node;
-End;
-
 Function TSWdRange.GetStart();
 Begin
-	if ifnil(start_position_) then return 0;
+	if ifnil(start_position_) then self.CalcPosition(root_node_);
 	return start_position_;
 End;
 
 Function TSWdRange.GetEnd();
 Begin
-	if ifnil(end_position_) then return 0;
+	if ifnil(end_position_) then self.CalcPosition(root_node_);
 	return end_position_;
 End;
 
@@ -372,6 +366,86 @@ Begin
 	end;
 End;
 
+Function TSWdRange.CalcPosition(startNode);
+Begin
+	node := startNode.FirstChildElement();
+	while ifObj(node) do
+	begin
+		if node.Eq(target_node_) then
+		begin
+			eq_flag := true;
+			start_position_ := cur_position_;
+		end
+		case node.GetName() of
+			"w:p":
+			begin
+				paragraph_obj := TOfficeObj("TParagraph");
+				paragraph_obj.Init(node);
+				if paragraph_obj.Empty() then // 空段落
+				begin
+					cur_position_ += 1;
+				end
+				else begin
+					sub_node := node.FirstChildElement();
+					while ifObj(sub_node) do
+					begin
+						case sub_node.GetName() of
+							"w:r":
+							begin
+								run_obj := TOfficeObj("TRun");
+								run_obj.Init(sub_node);
+								text := run_obj.Text();
+								if class(TSXml).IsUtf8() then text := Utf8ToAnsi(text);
+								cur_position_ += lengthw(text);
+							end
+
+							"w:ins", "w:del":
+							begin
+								run_node := sub_node.FirstChildElement("w:r");
+								while ifObj(run_node) do
+								begin
+									run_obj := TOfficeObj("TRun");
+									run_obj.Init(run_node);
+									text := run_obj.Text();
+									if class(TSXml).IsUtf8() then text := Utf8ToAnsi(text);
+									cur_position_ += lengthw(text);
+									run_node := run_node.NextElement("w:r");
+								end
+							end
+						end;
+						sub_node := sub_node.NextElement();
+					end
+					// 完整段落
+					cur_position_ += 1;
+				end
+			end
+
+			"w:tbl":
+			begin
+				tr := node.FirstChildElement("w:tr");
+				while ifObj(tr) do
+				begin
+					tc := tr.FirstChildElement("w:tc");
+					while ifObj(tc) do
+					begin
+						flag := self.CalcPosition(tc);
+						if flag then return 1;
+						tc := tc.NextElement("w:tc");
+					end
+					cur_position_ += 1;
+					tr := tr.NextElement("w:tr");
+				end
+			end
+		end;
+		if eq_flag then
+		begin
+			end_position_ := cur_position_;
+			return 1;
+		end
+		node := node.NextElement();
+	end
+End;
+
 Function TSWdRange.ParagraphRange(node);
 Begin
 	paragraph_obj := TOfficeObj("TParagraph");