Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:borgyogyaszat
- a_gyakoribb_parazitas_borbetegsegek.rar
- 2018/06/13 15:23
- 7.7 KB
- a_nemi_szerveken_jelentkezo_bortuenetek.rar
- 2018/06/13 15:23
- 7.6 KB
- a_psoriasis_korszeru_terapiaja.rar
- 2018/06/13 15:22
- 12.2 KB
- az_urticaria_es_kezelese.rar
- 2018/06/13 15:23
- 6.3 KB
- borgyogyaszat_eloadas_-_jegyzet.rar
- 2018/06/13 15:23
- 9.6 MB
- borgyogyaszat_i_01.rar
- 2018/06/13 15:23
- 7.3 KB
- borgyogyaszat_i_25.rar
- 2018/06/13 15:23
- 7.6 KB
- borgyogyaszat_i_26.rar
- 2018/06/13 15:23
- 5.5 KB
- borgyogyaszat_ii_16.rar
- 2018/06/13 15:23
- 5 KB
- borgyogyaszat_ii_17.rar
- 2018/06/13 15:22
- 4.6 KB
- borgyogyaszat_ii_18.rar
- 2018/06/13 15:23
- 5.1 KB
- borgyogyaszat_ii_19.rar
- 2018/06/13 15:23
- 5.3 KB
- borgyogyaszat_ii_20.rar
- 2018/06/13 15:23
- 3.7 KB
- borgyogyaszat_ii_21.rar
- 2018/06/13 15:23
- 6.3 KB
- borgyogyaszat_ii_22.rar
- 2018/06/13 15:23
- 7.4 KB
- borgyogyaszat_ii_22_2_.rar
- 2018/06/13 15:23
- 7.4 KB
- borgyogyaszat_iii_01.rar
- 2018/06/13 15:23
- 4.6 KB
- borgyogyaszat_iii_02.rar
- 2018/06/13 15:22
- 4.2 KB
- borgyogyaszat_iii_03.rar
- 2018/06/13 15:23
- 7.1 KB
- borgyogyaszat_iii_04.rar
- 2018/06/13 15:22
- 8.4 KB
- borgyogyaszat_iii_05.rar
- 2018/06/13 15:23
- 5.6 KB
- borgyogyaszat_iii_06.rar
- 2018/06/13 15:22
- 5 KB
- borgyogyaszat_iii_07.rar
- 2018/06/13 15:23
- 4.3 KB
- borgyogyaszat_iii_08.rar
- 2018/06/13 15:23
- 9.1 KB
- borgyogyaszat_iii_09.rar
- 2018/06/13 15:23
- 5 KB
- borgyogyaszat_iii_10.rar
- 2018/06/13 15:22
- 4.9 KB
- borgyogyaszat_iii_11.rar
- 2018/06/13 15:23
- 5.3 KB
- borgyogyaszat_iii_12.rar
- 2018/06/13 15:23
- 5.1 KB
- borgyogyaszat_iii_13.rar
- 2018/06/13 15:23
- 6.7 KB
- borgyogyaszat_iii_14.rar
- 2018/06/13 15:23
- 5.7 KB
- borgyogyaszat_iii_15.rar
- 2018/06/13 15:23
- 4.6 KB
- borgyogyaszat_iii_16.rar
- 2018/06/13 15:22
- 6.2 KB
- borgyogyaszat_iii_17.rar
- 2018/06/13 15:23
- 6 KB
- borgyogyaszat_iii_18.rar
- 2018/06/13 15:23
- 5.8 KB
- borgyogyaszat_iii_19.rar
- 2018/06/13 15:23
- 4.8 KB
- borgyogyaszat_iii_20.rar
- 2018/06/13 15:23
- 5.1 KB
- borgyogyaszat_iii_21.rar
- 2018/06/13 15:23
- 5.3 KB
- borgyogyaszat_iii_22.rar
- 2018/06/13 15:23
- 6.3 KB
- borgyogyaszat_iii_23.rar
- 2018/06/13 15:23
- 4.7 KB
- borgyogyaszat_iii_24.rar
- 2018/06/13 15:23
- 5.7 KB
- borgyogyaszat_iii_25.rar
- 2018/06/13 15:23
- 5.3 KB
- borgyogyaszat_iii_26.rar
- 2018/06/13 15:23
- 5.6 KB
- borgyogyaszat_szigorlati_tetelsor.rar
- 2018/06/13 15:22
- 663.9 KB
- borsebeszet_-_operativ_borgyogyaszat.rar
- 2018/06/13 15:22
- 935.8 KB
- demo_10.rar
- 2018/06/13 15:23
- 447.7 KB
- elemi_jelensegek.rar
- 2018/06/13 15:22
- 17.6 MB
- endokrin_betegsegek_bor_tuenetei_i.rar
- 2018/06/13 15:23
- 1.1 MB
- endokrin_betegsegek_bor_tuenetei_ii.rar
- 2018/06/13 15:23
- 1.7 MB
- endokrin_betegsegek_bor_tuenetei_iii.rar
- 2018/06/13 15:22
- 645.1 KB
- kidolgozott_szigorlati_tetelsor.rar
- 2018/06/13 15:23
- 34.4 KB
- kidolgozott_tetelsor.rar
- 2018/06/13 15:23
- 136.7 KB
- kidolgozott_tetelsor_-_regi.rar
- 2018/06/13 15:23
- 147.5 KB
- laphamsejtes_carcinoma.rar
- 2018/06/13 15:22
- 7.7 KB
- papulosquamosus_korkepek.rar
- 2018/06/13 15:22
- 8 KB
- pruritus.rar
- 2018/06/13 15:22
- 8.2 KB
- szigorlati_tetelek_09.rar
- 2018/06/13 15:23
- 2 MB
- tablazatok.rar
- 2018/06/13 15:23
- 609.8 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