Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:kardiologia
- a_cardiovascularis_betegsegek_ujabb_epidemiologiai_trendje_09.rar
- 2018/06/14 01:17
- 298.5 KB
- a_het_ekg-ja_09.rar
- 2018/06/14 01:17
- 1.6 MB
- a_resuscitatio_kerdesei_09.rar
- 2018/06/14 01:17
- 380.1 KB
- a_stabil_angina_es_az_akut_koronaria_szindroma_kezelese_pci-vel.rar
- 2018/06/14 01:17
- 7.5 MB
- a_stabil_angina_pectoris_-_optimalis_gyogyszeres_kezeles_silent_ischaemia.rar
- 2018/06/14 01:16
- 1.9 MB
- a_szivelegtelenseg_gyogyszeres_kezelese.rar
- 2018/06/14 01:17
- 1.1 MB
- acut_kardiologiai_korkepek.rar
- 2018/06/14 01:18
- 4.3 MB
- akut_szivelegtelenseg.rar
- 2018/06/14 01:16
- 1.6 MB
- antihrombotikus_kezeles_kardiovaszkularis_betegsegekben.rar
- 2018/06/14 01:17
- 3.7 MB
- aortabillentyu-betegsegek_09.rar
- 2018/06/14 01:16
- 157.1 KB
- aritmiak_diagnosztikaja_-_fokuszban_az_ekg.rar
- 2018/06/14 01:18
- 11 MB
- atherosclerosis_invaziv_es_non_invaziv_vizsgalatok.rar
- 2018/06/14 01:16
- 762.5 KB
- bevezetes_a_kardiologiaba.rar
- 2018/06/14 01:17
- 1.5 MB
- chronicus_szivelegtelenseg_gyogyszeres_kezelese.rar
- 2018/06/14 01:17
- 2.9 MB
- ekg_a_gyakorlatban.rar
- 2018/06/14 01:16
- 6.2 MB
- gen_alapu_diagnosztika_es_terapia_a_kardiologiaban.rar
- 2018/06/14 01:18
- 212 KB
- gyermekkori_szivritmuszavarok_es_kezelesuek_09.rar
- 2018/06/14 01:16
- 708.5 KB
- hypertonia_kardiologiai_szempontok_07.rar
- 2018/06/14 01:17
- 2.6 MB
- infectiv_endocarditis_cardiomyopathiak_szivtumorok.rar
- 2018/06/14 01:16
- 1.7 MB
- ischaemias_szivbetegseg_kezelese_pci-vel.rar
- 2018/06/14 01:16
- 2.9 MB
- kardio_te_telek2014.zip
- 2018/06/14 01:18
- 509.1 KB
- kardiologia_kollokviumi_tetelsor.rar
- 2018/06/14 01:18
- 127.1 KB
- kardiologia_kollokviumi_tetelsor_lista_.rar
- 2018/06/14 01:16
- 53.6 KB
- kardiologiai_rtg.rar
- 2018/06/14 01:16
- 15.5 MB
- klinikai_arrhythmiak_diagnozisa_es_terapiaja_-_tomcsanyi.rar
- 2018/06/14 01:17
- 7.3 MB
- orvoskepzes_2009.4_-_kueloenszam.rar
- 2018/06/14 01:17
- 2.5 MB
- pacemaker-icd-crt_terapia_szoevodmenyek_diagnosztikaja.rar
- 2018/06/14 01:17
- 4.1 MB
- primer_vs._szekunder_prevencio.rar
- 2018/06/14 01:17
- 3.4 MB
- stabil_angina_pectoris.rar
- 2018/06/14 01:17
- 326.2 KB
- stemi_diagnozisa.rar
- 2018/06/14 01:16
- 5.3 MB
- szerzett_billentyu_betegsegek.rar
- 2018/06/14 01:18
- 6.2 MB
- szerzett_billentyubetegsegek_mubillentyuvel.rar
- 2018/06/14 01:17
- 3.8 MB
- sziv-elektrofiziologia.rar
- 2018/06/14 01:17
- 6.3 MB
- szivbetegek_perioperativ_kockazatanak_felmerese_es_a_perioperativ_kezeles_szempontjai_09.rar
- 2018/06/14 01:16
- 388.8 KB
- szivelegtelenseg.rar
- 2018/06/14 01:16
- 1.9 MB
- szivtranszplantacio.rar
- 2018/06/14 01:17
- 2.7 MB
- veleszueletett_szivhibak_a_felnottkorban_szivkateter_intervencionalis_es_muteti_lehetosegek.rar
- 2018/06/14 01:18
- 8.8 MB
- veleszueletett_szivhibak_felosztasa_es_hemodinamikai_jellemzese.rar
- 2018/06/14 01:18
- 99.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