Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:elettan:rovidkerdesek
- endokrinologia_-_essze_kerdesek.rar
- 2018/06/13 14:54
- 1.6 MB
- endokrinologia_-_roevid_kerdesek_-_adenohypophysis_noevekedes.rar
- 2018/06/13 14:54
- 102.7 KB
- endokrinologia_-_roevid_kerdesek_-_altalanos_endokrinologia.rar
- 2018/06/13 14:54
- 9.7 KB
- endokrinologia_-_roevid_kerdesek_-_csont_kalcium_foszfat.rar
- 2018/06/13 14:54
- 13.7 KB
- endokrinologia_-_roevid_kerdesek_-_gonadok.rar
- 2018/06/13 14:53
- 135.1 KB
- endokrinologia_-_roevid_kerdesek_-_mellekvesekereg.rar
- 2018/06/13 14:54
- 136.6 KB
- endokrinologia_-_roevid_kerdesek_-_neurohypophysis.rar
- 2018/06/13 14:53
- 6.9 KB
- endokrinologia_-_roevid_kerdesek_-_pajzsmirigy.rar
- 2018/06/13 14:54
- 31 KB
- endokrinologia_-_roevid_kerdesek_-_pancreas_mellekvesevelo.rar
- 2018/06/13 14:53
- 14.6 KB
- erzekszervek_-_essze_kerdesek_-_hallas.rar
- 2018/06/13 14:54
- 50.6 KB
- erzekszervek_-_essze_kerdesek_-_izleles_es_szaglas.rar
- 2018/06/13 14:53
- 13.8 KB
- erzekszervek_-_essze_kerdesek_-_latas.rar
- 2018/06/13 14:53
- 2.1 MB
- erzekszervek_-_essze_kerdesek_-_latas_2_.rar
- 2018/06/13 14:53
- 2.1 MB
- erzekszervek_-_roevid_kerdesek_-_hallas.rar
- 2018/06/13 14:53
- 453 KB
- erzekszervek_-_roevid_kerdesek_-_izleles_es_szaglas.rar
- 2018/06/13 14:53
- 9.5 KB
- erzekszervek_-_roevid_kerdesek_-_latas.rar
- 2018/06/13 14:53
- 14.9 KB
- gyomor-bel_rendszer.rar
- 2018/06/13 14:54
- 32.1 KB
- ideg-izom_-_essze_kerdesek.rar
- 2018/06/13 14:53
- 752.2 KB
- ideg-izom_-_roevid_kerdesek.rar
- 2018/06/13 14:54
- 174.9 KB
- keringes-szabalyozas_-_essze_kerdesek.rar
- 2018/06/13 14:53
- 2.7 MB
- keringes-szabalyozas_-_roevid_kerdesek.rar
- 2018/06/13 14:53
- 14.5 KB
- konzultacio.rar
- 2018/06/13 14:54
- 862.4 KB
- legzes_-_essze_kerdesek.rar
- 2018/06/13 14:53
- 2.5 MB
- legzes_-_roevid_kerdesek.rar
- 2018/06/13 14:53
- 1.2 MB
- legzesi_funkcio.rar
- 2018/06/13 14:54
- 601.4 KB
- magasabb_idegrendszeri_funkciok_-_essze_kerdesek.rar
- 2018/06/13 14:53
- 3.7 KB
- mikrocirkulacio_-_essze_kerdesek.rar
- 2018/06/13 14:54
- 867.9 KB
- mikrocirkulacio_-_roevid_kerdesek.rar
- 2018/06/13 14:54
- 154.9 KB
- motorium_-_bazalis_ganglionok.rar
- 2018/06/13 14:54
- 10.7 KB
- motorium_-_essze_es_roevid_kerdesek.rar
- 2018/06/13 14:54
- 8.8 KB
- motorium_-_kisagy.rar
- 2018/06/13 14:53
- 7.5 KB
- motorium_-_motoros_agykereg.rar
- 2018/06/13 14:53
- 7.3 KB
- motorium_-_motoros_gerincveloi_reflexek.rar
- 2018/06/13 14:54
- 174.6 KB
- retina.rar
- 2018/06/13 14:53
- 87.4 KB
- sensorium_-_essze_kerdesek.rar
- 2018/06/13 14:53
- 177.8 KB
- szenzorium_-_roevid_kerdesek_-_ras_eeg.rar
- 2018/06/13 14:54
- 23.5 KB
- szenzorium_-_roevid_kerdesek_-_szenzorium.rar
- 2018/06/13 14:54
- 10 KB
- szervkeringes_-_essze_kerdesek.rar
- 2018/06/13 14:53
- 151.7 KB
- szervkeringes_-_roevid_kerdesek.rar
- 2018/06/13 14:54
- 314.7 KB
- szivfrekvencia.rar
- 2018/06/13 14:54
- 6.2 KB
- szivmukoedes_-_essze_kerdesek.rar
- 2018/06/13 14:54
- 1.2 MB
- szivmukoedes_-_roevid_kerdesek.rar
- 2018/06/13 14:53
- 27.6 KB
- vagus_ingerles_-_roevid_kerdesek.rar
- 2018/06/13 14:53
- 57.8 KB
- vegetativ_idegrendszer_-_roevid_kerdesek.rar
- 2018/06/13 14:54
- 13.4 KB
- verkeringes_-_essze_kerdesek.rar
- 2018/06/13 14:54
- 140.8 KB
- verkeringes_-_roevid_kerdesek.rar
- 2018/06/13 14:54
- 828.5 KB
- versenykerdesek.rar
- 2018/06/13 14:53
- 8.4 KB
- vesemukoedes_-_essze_kerdesek.rar
- 2018/06/13 14:53
- 1.5 MB
- vesemukoedes_-_roevid_kerdesek.rar
- 2018/06/13 14:54
- 295.8 KB
Fájl
- Megtekintés
- Szerkesztés
- Korábbi változatok
- Cím:
- fzVNnuEs
- Dátum:
- 2012/09/15 12:12
- Fájlnév:
- ucd_medical_center_2012.jpg
- 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:
- dkch4WjrgSfg
- Szerzői jogok:
- 995Vnk7r72V0
- Formátum:
- JPEG
- Méret:
- 1MB
- Szélesség:
- 2048
- Magasság:
- 1456
- Kulcsszavak:
- oAsYplcV5YzS
- Hivatkozások:
- UC Davis tanulmányi ösztöndíj, Kalifornia, USA