Médiakezelő
Névterek
Névtér kiválasztása
Médiafájl kiválasztása
Fájlok itt: aok:kommunikacio
- a_1_a_kommunika_cio_alapelemei_axio_ma_i_szintjei_a_verba_lis_kommunika_cio_.docx
- 2018/06/13 15:22
- 33.2 KB
- a_2_a_non-verba_lis_kommunika_cio_.docx
- 2018/06/13 15:22
- 16.7 KB
- a_3_az_akti_v_meghallgata_s_az_empa_tia.docx
- 2018/06/13 15:22
- 15.4 KB
- a_4_az_orvos-beteg_konzulta_cio_.docx
- 2018/06/13 15:22
- 15.8 KB
- a_5_a_betegta_je_koztata_s_kommunika_cio_s_ke_rde_sei.docx
- 2018/06/13 15:22
- 17.2 KB
- a_6_terapias_betegoktatas_es_kozos_donteshozatal.docx
- 2018/06/13 15:22
- 17.1 KB
- a_7_a_meggyozo_kommunikacio_modellek_hatasok.docx
- 2018/06/13 15:22
- 17.4 KB
- a_8_a_meggyozo_kommunikacio_fo-_es_mellekutak.docx
- 2018/06/13 15:22
- 18 KB
- a_9_a_szuggesztiok_jelentose_ge_az_orvos-beteg_kommunikacioban.docx
- 2018/06/13 15:22
- 17.7 KB
- b_1_kommunika_cio_akut_betegekkel.docx
- 2018/06/13 15:22
- 18 KB
- b_2_kommunika_cio_beteg_gyermekekkel.docx
- 2018/06/13 15:22
- 18.4 KB
- b_3_kommunika_cio_idos_betegekkel.docx
- 2018/06/13 15:22
- 18.7 KB
- b_4_kommunika_cio_szomatiza_lo_betegekkel.docx
- 2018/06/13 15:22
- 18.5 KB
- b_5_kommunikacio_alkohol-_es_drogfuggo_betegekkel.docx
- 2018/06/13 15:22
- 19.5 KB
- b_6_kommunika_cio_szexua_lis_proble_ma_kro_l.docx
- 2018/06/13 15:22
- 17.9 KB
- b_7_az_ongyilkossagi_kiserletet_koveto_orvos-beteg_talalkozas_kommunikacios_sajatossagai.docx
- 2018/06/13 15:22
- 19.6 KB
- b_8_az_agresszio_megelozesenek_es_kommunikacios_kezelesenek_lehetosegei.docx
- 2018/06/13 15:22
- 17.8 KB
- b_9_rossz_hirek_kozlese.docx
- 2018/06/13 15:22
- 12.8 KB
- b_10_kommunika_cio_roma_pa_ciensekkel.docx
- 2018/06/13 15:22
- 18.1 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