Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:farmakologia:tablazatok
- altalanos_erzestelenitok.rar
- 2018/06/13 15:45
- 12.4 KB
- anaemia.rar
- 2018/06/13 15:45
- 10.1 KB
- angina.rar
- 2018/06/13 15:45
- 11.3 KB
- antiarritmias_szerek.rar
- 2018/06/13 15:45
- 9.9 KB
- antibiotikumok_antituberkulotikumok.rar
- 2018/06/13 15:45
- 14.3 KB
- antibiotikumok_spektruma.rar
- 2018/06/13 15:45
- 17.7 KB
- antidepresszansok.rar
- 2018/06/13 15:45
- 9.7 KB
- antiepileptikumok.rar
- 2018/06/13 15:45
- 9.6 KB
- antihiperlipidemias_szerek.rar
- 2018/06/13 15:45
- 9.1 KB
- antihipertenzivumok.rar
- 2018/06/13 15:45
- 12.7 KB
- antimikotikumok.rar
- 2018/06/13 15:45
- 9.5 KB
- antimikotikumok_roevidebb.rar
- 2018/06/13 15:45
- 9.6 KB
- antimikotikumok_roevidebb_2_.rar
- 2018/06/13 15:45
- 9.6 KB
- antipszichotikumok.rar
- 2018/06/13 15:45
- 9.7 KB
- antiviralis_szerek.rar
- 2018/06/13 15:45
- 8.5 KB
- citotoxikus_szerek.rar
- 2018/06/13 15:45
- 10.6 KB
- csont.rar
- 2018/06/13 15:45
- 10.9 KB
- daganatok_terapiaja_ii..rar
- 2018/06/13 15:45
- 8 KB
- diuretikumok.rar
- 2018/06/13 15:45
- 10.9 KB
- emesztes_maj_epe_etvagycsoekkentok.rar
- 2018/06/13 15:45
- 12.2 KB
- farmakologia_tablazatok_egyben_-.rar
- 2018/06/13 15:45
- 542 KB
- feregellenes_szerek.rar
- 2018/06/13 15:45
- 9.1 KB
- ferfi_nemi_hormonok.rar
- 2018/06/13 15:45
- 11.4 KB
- fertotlenitok.rar
- 2018/06/13 15:45
- 11.5 KB
- gyomor-_es_nyombelfekely.rar
- 2018/06/13 15:45
- 11.1 KB
- gyulladasos_belbetegsegek.rar
- 2018/06/13 15:45
- 8.8 KB
- h1_antagonistak.rar
- 2018/06/13 15:45
- 8.9 KB
- harantcsikolt_izomrelaxansok.rar
- 2018/06/13 15:45
- 12.1 KB
- hashajtok_es_hasmenest_gatlo_szerek.rar
- 2018/06/13 15:45
- 11.5 KB
- helyi_erzestelenitok.rar
- 2018/06/13 15:45
- 8.5 KB
- hypothalamus_hypophysis.rar
- 2018/06/13 15:45
- 10 KB
- immun.rar
- 2018/06/13 15:45
- 11.9 KB
- kabitoszerek.rar
- 2018/06/13 15:45
- 14.7 KB
- legzorendszer.rar
- 2018/06/13 15:45
- 11.4 KB
- mehmotilitas.rar
- 2018/06/13 15:45
- 9.7 KB
- mellekvese.rar
- 2018/06/13 15:45
- 11.3 KB
- migren.rar
- 2018/06/13 15:45
- 7.4 KB
- neurodegenerativ.rar
- 2018/06/13 15:45
- 9.5 KB
- noi_nemi_hormonok.rar
- 2018/06/13 15:45
- 17.6 KB
- nsaid.rar
- 2018/06/13 15:45
- 9.6 KB
- opioidok.rar
- 2018/06/13 15:45
- 10.4 KB
- pajzsmirigy.rar
- 2018/06/13 15:45
- 10.1 KB
- periferias_es_centralis_keringesfokozok.rar
- 2018/06/13 15:45
- 9.7 KB
- protozoon_elleni_szerek.rar
- 2018/06/13 15:45
- 9 KB
- reumatoid_arthritis_koeszveny.rar
- 2018/06/13 15:45
- 10.3 KB
- simaizomra_hato_szerek.rar
- 2018/06/13 15:45
- 8 KB
- szedatohipnotikumok_anxiolyticumok.rar
- 2018/06/13 15:45
- 10.1 KB
- szenhidrat.rar
- 2018/06/13 15:45
- 11.8 KB
- szenhidrat_2_.rar
- 2018/06/13 15:45
- 11.8 KB
- szivelegtelenseg.rar
- 2018/06/13 15:45
- 12 KB
- vegetativ_ir.rar
- 2018/06/13 15:45
- 15.9 KB
- veralvadas.rar
- 2018/06/13 15:45
- 13.6 KB
- vomitus.rar
- 2018/06/13 15:45
- 9.6 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