Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:fuel-orr-gege
- 1-13._tetelek.rar
- 2018/06/13 15:21
- 18.8 KB
- a_fuel_anatomiaja_es_elettana_a_kuelsofuel_betegsegei_hallojarati_idegentestek.rar
- 2018/06/13 15:21
- 221.3 KB
- a_fuelbetegsegek_tuenetei_a_kuelso_fuel_betegsegei.rar
- 2018/06/13 15:21
- 2.2 MB
- a_kidolgozottak_egyben2013.doc
- 2018/06/13 15:21
- 3.3 MB
- a_vestibularis_rendszer_betegsegei_10.rar
- 2018/06/13 15:21
- 11.1 MB
- anatomical_basis_of_endoscopic_sinus_surgery_ess_.rar
- 2018/06/13 15:21
- 12.9 MB
- angioedema_laryngeal_edema_diagnosis_and_management.rar
- 2018/06/13 15:21
- 3.4 MB
- fuel-_orr-_gegeszet_tetelsor_08_kidolgozva.rar
- 2018/06/13 15:21
- 184.2 KB
- fuel-_orr-_gegeszet_tetelsor_09.rar
- 2018/06/13 15:21
- 5.8 KB
- fuel-_orr-_gegeszet_tetelsor_09_kidolgozva.rar
- 2018/06/13 15:21
- 222.2 KB
- fuel-_orr-_gegeszet_tetelsor_10_kidolgozva.rar
- 2018/06/13 15:21
- 2.6 MB
- fuel_anatomiai_vizsgalata.rar
- 2018/06/13 15:21
- 3.1 KB
- hallas-nagyothallas.rar
- 2018/06/13 15:21
- 15 MB
- hallascsoekkenessel_jaro_korkepek_gyermek-_es_felnottkorban_a_haziorvosi_gyakorlatban.rar
- 2018/06/13 15:21
- 10.8 MB
- hearing_disorders_in_children_and_adults.rar
- 2018/06/13 15:21
- 13.9 MB
- nyak_differencialdiagnozisa.rar
- 2018/06/13 15:21
- 2.1 KB
- orrmellekuereg_daganatok.rar
- 2018/06/13 15:22
- 3 KB
- otoneurologia.rar
- 2018/06/13 15:21
- 13.8 MB
- pathogenesis_and_clinical_aspects_of_rhinosinusitis.rar
- 2018/06/13 15:21
- 2.7 MB
- peripheral_facial_palsy_10.rar
- 2018/06/13 15:21
- 1.9 MB
- symptoms_of_ear_disorders_outer_ear_diseases.rar
- 2018/06/13 15:21
- 2.3 MB
- the_role_of_radiotherapy_in_the_combined_treatment_of_head_neck_tumours.rar
- 2018/06/13 15:22
- 4.6 MB
- vestibular_system_disorders.rar
- 2018/06/13 15:21
- 2.6 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