Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: gytk:targyak:anatomia
- altalanos_fejlodestan.ppt
- 2018/06/13 14:29
- 4.6 MB
- amajesahasnyalmirigyanatomiajagyok-tomoritett.ppt
- 2018/06/13 14:29
- 1.9 MB
- anat2009_1_.doc
- 2018/06/13 14:29
- 37 KB
- anatomia.ppt
- 2018/06/13 14:29
- 4.1 MB
- anatomia_gytk_1_2.rar
- 2018/06/13 14:28
- 1.2 MB
- anatomia_gytk_3.rar
- 2018/06/13 14:29
- 2.2 MB
- anatomia_gytk_4_5.rar
- 2018/06/13 14:29
- 1.9 MB
- berta_szem_gyok2008.ppt
- 2018/06/13 14:29
- 2.9 MB
- endocrin.ppt
- 2018/06/13 14:29
- 1.8 MB
- erek.ppt
- 2018/06/13 14:29
- 4.7 MB
- fejlodesi_rendellenessegek.ppt
- 2018/06/13 14:29
- 9.1 MB
- gyogyszer-nyirok2.ppt
- 2018/06/13 14:29
- 5.4 MB
- gyok1hu.pdf
- 2018/06/13 14:29
- 45.9 KB
- gyokgerincveloeloadas.ppt
- 2018/06/13 14:29
- 4.1 MB
- gyokmagyar20-04-2006web.ppt
- 2018/06/13 14:29
- 4.9 MB
- gyokmagyar30-03-2006web.ppt
- 2018/06/13 14:29
- 2.5 MB
- idegr.gyok.ppt
- 2018/06/13 14:29
- 6.6 MB
- idegrendsz_anat.ppt
- 2018/06/13 14:29
- 3.3 MB
- kocsis_csontizuletizomtan_magyar_2008.02.14.ppt
- 2018/06/13 14:29
- 1.8 MB
- kocsis_uropoetikusrendszer_magyar_2007.03.29.ppt
- 2018/06/13 14:29
- 2.8 MB
- kocsis_vegetativ_idegrendszer_magyar_2006.05.11.ppt
- 2018/06/13 14:29
- 2.9 MB
- kotoestamaszto_gytk.ppt
- 2018/06/13 14:29
- 32.6 MB
- lukats_altembr_gyok_magyar_2008_web.ppt
- 2018/06/13 14:29
- 1.8 MB
- lukats_gericvelo_gyok2009.ppt
- 2018/06/13 14:29
- 5.1 MB
- lukats_hamesizom_gyok_20080204_hu_web.ppt
- 2018/06/13 14:28
- 5.9 MB
- lukats_idegrfunkcio.ppt
- 2018/06/13 14:29
- 1.8 MB
- lukats_kotoszovet_gyok_magyar_20080214_web.ppt
- 2018/06/13 14:28
- 1.5 MB
- lukats_szem.ppt
- 2018/06/13 14:29
- 3.6 MB
- maj_pancreas2008gyok.ppt
- 2018/06/13 14:29
- 2.3 MB
- motorosrendszer.ppt
- 2018/06/13 14:29
- 144.5 KB
- nagy_nandor_fejlodesi_rendellenesseg_magyar_2008_04_16.ppt
- 2018/06/13 14:28
- 9.2 MB
- neuropathy.jpg
- 200×381
- 2018/06/13 14:29
- 20.4 KB
- noinemiszervek2_gyok_2008_web.ppt
- 2018/06/13 14:29
- 6.9 MB
- nyirok2008.ppt
- 2018/06/13 14:28
- 6.2 MB
- scan0001.jpg
- 1700×2338
- 2018/06/13 14:29
- 1 MB
- scan0002.jpg
- 1700×2338
- 2018/06/13 14:29
- 715.6 KB
- szajureg_garat_nyelocso.ppt
- 2018/06/13 14:29
- 2 MB
- sziv_anatomiaja.ppt
- 2018/06/13 14:29
- 3.6 MB
- tetelek.pdf
- 2018/06/13 14:29
- 45.9 KB
- thalamus_hypothalamus_endokrin_rendszer_gyok_magyar_koves.ppt
- 2018/06/13 14:29
- 3 MB
- ver.ppt
- 2018/06/13 14:29
- 2.4 MB
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