Pont annyi, amennyit beleteszel.
Loading
Médiakezelő
Névterek
Névtér kiválasztása
[kiindulási hely]
and_5_10--_a
and_not_1_9--_a
aok
aok_targyak
aok_targyak_and_1_1_xor_9_9_--_a
aok_targyak_and_1_3_xor_8_10_--_a
aok_targyak_and_2_2_xor_4_8_--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_1_1_xor_5_11_--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_1_2_xor_8_16_--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_1_2_xor_8_16_65c6--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_3_3--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_6_6_xor_1_1_--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_8_8--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_8_9--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_9_9_xor_4_4_--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_not_2_4--_a
aok_targyak_and_2_2_xor_4_8_--_a_and_not_2_11--_a
aok_targyak_and_2_6--_a
aok_targyak_and_3_10_xok
aok_targyak_and_3_10_xor_7_10_--_a
aok_targyak_and_7_9--_a
aok_targyak_and_7_16--_a
aok_targyak_and_9_9_xor_7_7_--_a
aok_targyak_and_not_3_4--_a
aok_targyak_and_not_8_11--_a
aok_targyak_and_not_9_18--_a
aok_targyak_anmg
belso
comments
de
egyetem
egyetempass_lclass_li
egyetemplus
ekk
en
etk
fok
golyaknak
gyogykem
gytk
hallgatoi_szervezetek
hu
ipad
jegyzetborze
karrierkozpont
kollegiumok
lib
myfg9cqn0ue
net_karrieriroda
playground
plugins
some
sotepedia
sotepedia.hu
sys
szerkesztoknek
talentum
talk
aok
egyetemplus
ekk
fok
golyaknak
hu
karrierkozpont
net_karrieriroda
some
user
wiki
target_blank
themes
user
wiki
www.semmelweis.hu
Médiafájl kiválasztása
Médiafájl kiválasztása
Feltöltés
Keresés
Fájlok itt:
talk:ekk
Bélyegképek
Sorok
Név
Dátum
Alkalmaz
Üres mappa.
Fájl
Megtekintés
Szerkesztés
Korábbi változatok
egyetemplus:ucd_medical_center_2012.jpg
szerkesztése
Cím:
Képaláírás:
剛才測試發現用find物件,execute方法的replaceall引數(即word全部取代功能)果然很慢,若改為下式則快多了:只是我目前還抓不穩range的start 和 end的數值.還須多加測試.關鍵是不要用range去比對,而是先將range的text值賦予一字串變數.我也想過用open for input as 的敘述試試.再說.Sub replacetest0() '2012/6/5Dim a As Range, x As Long, q As StringDim s As Date, e As Date, g, i'Set a = ActiveDocument.Range'Debug.Print Len(a)s = VBA.Timerq = ActiveDocument.Rangex = InStr(q, "翁方綱")'x = InStr(a.Text, "翁方綱")For Each g In ActiveDocument.Comments g.DeleteNextWith ActiveDocument Do Until x = 0' .Range(x - 1, x + 3 - 1).Select .Range(x - 1, x + Len("翁方綱") - 1).Text = "孫守真" i = i + 1' If i = 68 Then Stop x = InStr(x + 1, q, "翁方綱") If .Range(x - 1, x + 3 - 1) <> "翁方綱" Then e = VBA.Timer Debug.Print e - s Debug.Print i Stop End If 'a.Text = Replace(a.Text, "翁方綱", "孫守真") 'a.Find.Execute "翁方綱", , , , , , , , , "孫守真", wdReplaceAll '果然太慢!! LoopEnd Withe = VBA.TimerDebug.Print e - sEnd Sub
Készítette:
Szerzői jogok:
Kulcsszavak:
Mentés
Ez a lap
Vitalap
Oldal szerkesztése
Korábbi változatok
Új oldal létrehozása
Bejelentkezés
Navigáció
Kezdőlap
Egyetem+
Hogyan?
ÁOK
EKK
ETK
FOK
GyTK
info@sotepedia.hu
Keresés
Eszközök
Mi mutat ide
Legfrissebb változások
Médiakezelő
Oldalmutató
Nyomtatható verzió
Állandó link
Ezt szeretném idézni
QR Code
![[kiindulási hely]](/sotepedia?ns=&tab_files=files&do=media&tab_details=edit&image=egyetemplus%3Aucd_medical_center_2012.jpg){kind=link}
