Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:pszichiatria
- 01_pszichiatria_toertenete_pte_.rar
- 2018/06/14 03:01
- 2.6 MB
- 01_szemelyisegzavarok_pte_.rar
- 2018/06/14 03:01
- 1.1 MB
- 02_a_depresszio_hattere_tuenetei_es_terapias_lehetosegei_pte_.rar
- 2018/06/14 03:01
- 1.2 MB
- 02_klasszifikacio_nozologia_a_pszichiatriaban_pte_.rar
- 2018/06/14 03:01
- 91.1 KB
- 03_a_szkizofrenia_klinikuma_koreredete_es_kezelese_pte_.rar
- 2018/06/14 03:01
- 1.3 MB
- 03_szorongasos_korkepek_pte_.rar
- 2018/06/14 03:02
- 1.3 MB
- 04_paranoid_pszichozisok_es_egyeb_pszichotikus_zavarok_pte_.rar
- 2018/06/14 03:02
- 846.1 KB
- 04_szomatoform_zavarok_pte_.rar
- 2018/06/14 03:02
- 205.2 KB
- 05_kabitoszer_hasznalattal_oesszefueggo_pszichiatriai_zavarok_pte_.rar
- 2018/06/14 03:01
- 2.8 MB
- 05_kenyszerbetegseg_-_obszessziv-kompulziv_zavar_pte_.rar
- 2018/06/14 03:02
- 91.7 KB
- 06_addikciok_alkoholfueggoseg_pszichopatologia_terapia_pte_.rar
- 2018/06/14 03:02
- 1.9 MB
- 06_disszociativ_zavarok_pte_.rar
- 2018/06/14 03:02
- 1.3 MB
- 07_pszichoszomatikus_orvoslas_pte_.rar
- 2018/06/14 03:01
- 265.5 KB
- 08_idoskor_dementia_pte_.rar
- 2018/06/14 03:02
- 1.3 MB
- 08_psychosexual_disorders_pte_.rar
- 2018/06/14 03:01
- 576.9 KB
- 09_alvaszavarok_pte_.rar
- 2018/06/14 03:01
- 39.1 KB
- 09_az_eveszavarok_aktualis_kerdesei_pte_.rar
- 2018/06/14 03:01
- 904.3 KB
- 1felev_tetelek.rar
- 2018/06/14 03:01
- 41.5 KB
- 2per1_tetelek.rar
- 2018/06/14 03:01
- 44.8 KB
- 10_impulzuskontroll_zavarok_fakticiozus_zavarok_alkalmazkodasi_zavarok_pte_.rar
- 2018/06/14 03:01
- 227.4 KB
- 10_mentalis_retardacio_pte_.rar
- 2018/06/14 03:01
- 29 KB
- 11_suergossegi_pszichiatria_pte_.rar
- 2018/06/14 03:01
- 253.2 KB
- 12_a_szuicid_viselkedes_oengyilkossag_a_neurobiologiatol_a_kulturaig_pte_.rar
- 2018/06/14 03:02
- 1.1 MB
- 12_gyermekpszichiatria_pte_.rar
- 2018/06/14 03:01
- 28.8 KB
- 13_biologiai_kezelesi_formak_a_pszichiatriaban_pte_.rar
- 2018/06/14 03:01
- 1.6 MB
- 13_pszichoterapiak_pte_.rar
- 2018/06/14 03:01
- 435.5 KB
- 14_az_idoskori_pszichiatriai_korkepek_pte_.rar
- 2018/06/14 03:01
- 84.5 KB
- a_depressziok_diagnosztikaja_es_terapiaja.rar
- 2018/06/14 03:01
- 32.9 KB
- a_hangulati_zavarok_a_szorongasos_betegsegek_es_az_alkohol.rar
- 2018/06/14 03:01
- 18.2 KB
- a_kenyszerbetegseg_es_kezelese.rar
- 2018/06/14 03:01
- 34.7 KB
- a_panikbetegseg.rar
- 2018/06/14 03:01
- 28.7 KB
- a_pszichiatriai_korrajz_szerkezete.rar
- 2018/06/14 03:01
- 26.3 KB
- a_pszichomotoros_fejlodes_zavarainak_felismerese_es_ellatasa_az_alapellatas_gyakorlataban.rar
- 2018/06/14 03:01
- 336.7 KB
- akut_es_kronikus_fajdalom_kezelese_.rar
- 2018/06/14 03:01
- 6.6 KB
- antidepresszansok.rar
- 2018/06/14 03:01
- 6 KB
- antipszichotikumok_neuroleptikumok_major_trankvillansok_.rar
- 2018/06/14 03:01
- 6.2 KB
- best_of_tenyi.rar
- 2018/06/14 03:01
- 21.1 KB
- depresszio_es_szorongasos_zavarok_gyermek_-_es_serduelokorban.rar
- 2018/06/14 03:01
- 32.3 KB
- fogalmak.rar
- 2018/06/14 03:01
- 3.4 KB
- kidolgozott_kollokviumi_tetelsor.rar
- 2018/06/14 03:01
- 272.7 KB
- kidolgozott_pszichiatria_tetelek.rar
- 2018/06/14 03:01
- 125 KB
- kidolgozott_szigorlati_tetelsor.rar
- 2018/06/14 03:01
- 624.7 KB
- kollokviumi_tetelsor.rar
- 2018/06/14 03:01
- 10 KB
- organismal_stress_and_telomeric_aging_-_an_unexpected_connection.rar
- 2018/06/14 03:01
- 92 KB
- pszichiatriai_korrajz.rar
- 2018/06/14 03:01
- 4.1 KB
- pszichiatriai_sebeszet.rar
- 2018/06/14 03:01
- 58.1 KB
- pszichostimulansok.rar
- 2018/06/14 03:01
- 2.9 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