Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: etk:targyak:klinikai_dietetika
- a_muveszettol_a_tenyeken_alapulo_orvoslasig.ppt
- 2018/06/13 14:36
- 20 MB
- a_rak.ppt
- 2018/06/13 14:36
- 677.5 KB
- acupunctura.ppt
- 2018/06/13 14:36
- 41 KB
- acut_coronary_syndrome.ppt
- 2018/06/13 14:36
- 740 KB
- alkoholbetegseg.ppt
- 2018/06/13 14:36
- 44.5 KB
- allergia.ppt
- 2018/06/13 14:36
- 59.5 KB
- autoimmun_betegsegek.ppt
- 2018/06/13 14:36
- 363 KB
- belbetegsegek.ppt
- 2018/06/13 14:36
- 542.5 KB
- d-vitamin_es_idoskor.ppt
- 2018/06/13 14:36
- 560 KB
- decompensatio_cordis.ppt
- 2018/06/13 14:36
- 218.5 KB
- diabetes_mellitus.ppt
- 2018/06/13 14:36
- 2.5 MB
- ekg.ppt
- 2018/06/13 14:36
- 635 KB
- epekovek_epekovesseg.ppt
- 2018/06/13 14:36
- 491 KB
- erbetegsegek.ppt
- 2018/06/13 14:36
- 1 MB
- erbetegsegek_vitiumok.ppt
- 2018/06/13 14:36
- 1 MB
- fertozo_betegsegek.ppt
- 2018/06/13 14:36
- 3.7 MB
- gasztroenterologia.ppt
- 2018/06/13 14:36
- 3.5 MB
- gyomor-_bel_betegsegek.ppt
- 2018/06/13 14:36
- 1.2 MB
- hematologia-anemiak.ppt
- 2018/06/13 14:36
- 621.5 KB
- hematologia-fehervertest_zavarok.ppt
- 2018/06/13 14:36
- 326 KB
- hematologia-haemostasis.ppt
- 2018/06/13 14:36
- 658 KB
- hypertonia.ppt
- 2018/06/13 14:36
- 86 KB
- ischaemias_szivbetegsefek.ppt
- 2018/06/13 14:36
- 1.7 MB
- jodigany_jodellatottsag_kovetkezmenyek_javaslatok.ppt
- 2018/06/13 14:36
- 1.5 MB
- klinikai_endokrinologia.ppt
- 2018/06/13 14:36
- 3.8 MB
- koszveny.ppt
- 2018/06/13 14:36
- 387 KB
- majbetegsegek.ppt
- 2018/06/13 14:36
- 2.3 MB
- mergezesek.ppt
- 2018/06/13 14:36
- 268 KB
- nutrigenetika_nutrigenomika.ppt
- 2018/06/13 14:36
- 1.9 MB
- obesity.ppt
- 2018/06/13 14:36
- 112 KB
- orvoslas_gyogynovenyekkel.ppt
- 2018/06/13 14:36
- 762.5 KB
- osteoporosis.ppt
- 2018/06/13 14:36
- 2.1 MB
- pancreatitis.ppt
- 2018/06/13 14:36
- 1 MB
- pulmonologia.ppt
- 2018/06/13 14:36
- 439.5 KB
- szegenyseg_es_egeszsegi_allapot.ppt
- 2018/06/13 14:36
- 40.5 KB
- tuenetek_es_panaszok_gastrointestinalis_betegsegekben.ppt
- 2018/06/13 14:36
- 677.5 KB
- vesebetegsegek.ppt
- 2018/06/13 14:36
- 3.7 MB
- viz-_so-haztartas.ppt
- 2018/06/13 14:36
- 132.5 KB
- zsiranyagacsere-atherosclerosis.ppt
- 2018/06/13 14:36
- 1.3 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