what drug class is levitra
Sandbox / Hehe
[ Edit ]
Back to Snip <-- Previous Change | Next Change -->
| Diff Summary | |||||
|---|---|---|---|---|---|
| Title | 剛才測試發現用find物件,execut | A formidable share, | |||
| Date | 2014-02-19 12:09:04 | 2014-02-19 12:34:45 | |||
| Editor | Anonymous | Anonymous | |||
| Edit | Edit this version | Edit this version | |||
| Tags | |||||
| 2014-02-19 12:09:04 by Anonymous / Edit this version | 2014-02-19 12:34:45 by Anonymous / Edit this version | ||||
|---|---|---|---|---|---|
| t | 1 | 剛才測試發現用find物件,execute方法的replaceall引數(即word全部取代功能)果 | t | 1 | A formidable share, I just given this onto a <a hr |
| > | 然很慢,若改為下式則快多了:只是我目前還抓不穩range的start 和 end的數值.還須多加測試 | > | ef="http://esttgrah.com">coaeulgle</a> who was doi | ||
| > | .關鍵是不要用range去比對,而是先將range的text值賦予一字串變數.我也想過用open f | > | ng a bit evaluation on this. And he actually bough | ||
| > | or input as 的敘述試試.再說.Sub replacetest0() '2012/6/5D | > | t me breakfast as a result of I discovered it for | ||
| > | im a As Range, x As Long, q As StringDim s As Date | > | him.. smile. So let me reword that: Thnx for the d | ||
| > | , e As Date, g, i'Set a = ActiveDocument.Range'Deb | > | eal with! However yeah Thnkx for spending the time | ||
| > | ug.Print Len(a)s = VBA.Timerq = ActiveDocument.Ran | > | to discuss this, I really feel strongly about it | ||
| > | gex = InStr(q, "翁方綱")'x = InStr(a.Text, "翁方綱")For | > | and love studying extra on this topic. If attainab | ||
| > | Each g In ActiveDocument.Comments g.DeleteNextW | > | le, as you grow to be expertise, would you thought | ||
| > | ith ActiveDocument Do Until x = 0' .Rang | > | s updating your blog with more details? It is high | ||
| > | e(x - 1, x + 3 - 1).Select .Range(x - 1, x | > | ly useful for me. Big thumb up for this blog publi | ||
| > | + Len("翁方綱") - 1).Text = "孫守真" i = i + 1' | > | sh! | ||
| > | 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 S | ||||
| > | top End If 'a.Text = Replace(a.Text, | ||||
| > | "翁方綱", "孫守真") 'a.Find.Execute "翁方綱", , , , | ||||
| > | , , , , , "孫守真", wdReplaceAll '果然太慢!! LoopEnd | ||||
| > | Withe = VBA.TimerDebug.Print e - sEnd Sub | ||||
