Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:patologia:szende_tk
- 00_tartalom_es_eloszo.rar
- 2018/06/13 14:45
- 1.1 MB
- 01_a_pathologia_targya_celja_helye_az_orvostudomanyban.rar
- 2018/06/13 14:44
- 853.5 KB
- 02_hullajelensegek.rar
- 2018/06/13 14:45
- 347.4 KB
- 03_az_emberi_megbetegedesek_cellularis_es_molekularis_alapjai.rar
- 2018/06/13 14:45
- 4.3 MB
- 04_anyagcsere-betegsegek.rar
- 2018/06/13 14:44
- 2.3 MB
- 05_keringesi_zavarok.rar
- 2018/06/13 14:44
- 2.4 MB
- 06_gyulladas_pathologiaja.rar
- 2018/06/13 14:45
- 3.4 MB
- 07_immunpathologia.rar
- 2018/06/13 14:45
- 2.9 MB
- 08_genetikai_es_fejlodesi_rendellenessegek.rar
- 2018/06/13 14:44
- 2.1 MB
- 09_daganatpathologia.rar
- 2018/06/13 14:45
- 6.2 MB
- 10_a_sziv_pathologiaja.rar
- 2018/06/13 14:44
- 3.6 MB
- 11_erpathologia.rar
- 2018/06/13 14:45
- 4.1 MB
- 12_a_verkepzo_rendszer_pathologiaja.rar
- 2018/06/13 14:45
- 5.3 MB
- 13_a_legzorendszer_pathologiaja.rar
- 2018/06/13 14:45
- 5.4 MB
- 14_a_szajureg_es_kornyekenek_pathologiaja.rar
- 2018/06/13 14:45
- 2.6 MB
- 15_a_neylocso_es_a_gyomor_pathologiaja.rar
- 2018/06/13 14:44
- 2.8 MB
- 16_a_vekony-_es_a_vastagbel_pahtologiaja.rar
- 2018/06/13 14:44
- 2.1 MB
- 17_a_pancreas_pathologiaja.rar
- 2018/06/13 14:44
- 1.3 MB
- 18_a_maj_pathologiaja.rar
- 2018/06/13 14:45
- 4.2 MB
- 19_az_epeholyag_es_az_epeutak_megbetegedesei.rar
- 2018/06/13 14:45
- 493.7 KB
- 20_a_vese_es_a_hugyutak_pathologiaja.rar
- 2018/06/13 14:45
- 4.9 MB
- 21_az_endocrin_rendszer_pathologiaja.rar
- 2018/06/13 14:44
- 2.6 MB
- 22_a_noi_nemi_szervek_pathologiaja.rar
- 2018/06/13 14:45
- 2.4 MB
- 23_az_emlo_pathologiaja.rar
- 2018/06/13 14:44
- 1.8 MB
- 24_a_perinatalis_idoszak_pathologiaja.rar
- 2018/06/13 14:44
- 1.8 MB
- 25_a_ferfi_nemi_szervek_pathologiaja.rar
- 2018/06/13 14:45
- 1.8 MB
- 26_csont-_izuleti_es_izombetegsegek.rar
- 2018/06/13 14:44
- 3.4 MB
- 27_az_idegrendszer_pathologiaja.rar
- 2018/06/13 14:44
- 4.7 MB
- 28_a_szem_pathologiaja.rar
- 2018/06/13 14:45
- 441 KB
- 29_a_bor_pathologiaja.rar
- 2018/06/13 14:44
- 710.7 KB
- 30_fertozo_betegsegek.rar
- 2018/06/13 14:44
- 1.7 MB
- 31_kornyezeti_artalmak.rar
- 2018/06/13 14:44
- 2 MB
- 32_a_pathologia_gyakorlata_-_a_klinikopathologia.rar
- 2018/06/13 14:45
- 569.1 KB
- 99_targymutato.rar
- 2018/06/13 14:45
- 3.5 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