what drug class is levitra
Sandbox / Hehe
[ Edit ]
Back to Snip <-- Previous Change | Next Change -->
| Diff Summary | |||||
|---|---|---|---|---|---|
| Title | I too have seen a cl | 剛才測試發現用find物件,execut | |||
| Date | 2014-02-19 11:44:44 | 2014-02-19 12:09:04 | |||
| Editor | Anonymous | Anonymous | |||
| Edit | Edit this version | Edit this version | |||
| Tags | |||||
| 2014-02-19 11:44:44 by Anonymous / Edit this version | 2014-02-19 12:09:04 by Anonymous / Edit this version | ||||
|---|---|---|---|---|---|
| t | 1 | I too have seen a client with this type of damgaed | t | 1 | 剛才測試發現用find物件,execute方法的replaceall引數(即word全部取代功能)果 |
| > | self-image. Mine was a 84 year old woman with | > | 然很慢,若改為下式則快多了:只是我目前還抓不穩range的start 和 end的數值.還須多加測試 | ||
| > | severe lowback pain', difficulty breathing, no app | > | .關鍵是不要用range去比對,而是先將range的text值賦予一字串變數.我也想過用open f | ||
| > | etite. Upon taking a history there were no clea | > | or input as 的敘述試試.再說.Sub replacetest0() '2012/6/5D | ||
| > | r indications for the problem . This woman did no | > | im a As Range, x As Long, q As StringDim s As Date | ||
| > | t have a difficult life/job. Her most stressful | > | , e As Date, g, i'Set a = ActiveDocument.Range'Deb | ||
| > | time was playing bridge. She was very short, ba | > | ug.Print Len(a)s = VBA.Timerq = ActiveDocument.Ran | ||
| > | rely 5 feet tall and only weighed about 80 lbs. | > | gex = InStr(q, "翁方綱")'x = InStr(a.Text, "翁方綱")For | ||
| > | She was obsessed with being FAT .When I had her | > | Each g In ActiveDocument.Comments g.DeleteNextW | ||
| > | indicate where the pain was prior to treatment .it | > | ith ActiveDocument Do Until x = 0' .Rang | ||
| > | was purely muscle.As I got her ready for treatmen | > | e(x - 1, x + 3 - 1).Select .Range(x - 1, x | ||
| > | t and began to palpate her .I discovered she had | > | + Len("翁方綱") - 1).Text = "孫守真" i = i + 1' | ||
| > | a garment on that was very constricting. She wa | > | If i = 68 Then Stop x = InStr(x + 1, | ||
| > | s wearing the tighest corset I have ever seen I | > | q, "翁方綱") If .Range(x - 1, x + 3 - 1) <> "翁 | ||
| > | required her to remove the corset for the treatmen | > | 方綱" Then e = VBA.Timer Debug | ||
| > | t and to leave it off all the rest of the day. | > | .Print e - s Debug.Print i S | ||
| > | She felt that the pain had miraculously disappeare | > | top End If 'a.Text = Replace(a.Text, | ||
| > | d and she could take a deep breath without restric | > | "翁方綱", "孫守真") 'a.Find.Execute "翁方綱", , , , | ||
| > | tion. Days later she called to say the pain was | > | , , , , , "孫守真", wdReplaceAll '果然太慢!! LoopEnd | ||
| > | back! When asking what she had done .she admit | > | Withe = VBA.TimerDebug.Print e - sEnd Sub | ||
| > | ted that she had to put the corset back on to plea | ||||
| > | se her husband. I suggested that she keep it of | ||||
| > | f ..she refused. It seems that her husbands opini | ||||
| > | on of what constitutes beauty and good health was | ||||
| > | more important than common sense ! | ||||
