Search for a term or website like Example.com    |   Add site


 
URL:

2013smallloans.co.uk

Title:

Small Loans- Get Instant Cash Now, Bad Credit OK

Description: Looking for a timely cash supply? Small loans will assist you find enough funds in hand that can be utilized to take care of any sort of person requirements. Apply now to find the cash you need in no time.
Updated: 11 Jun 2013
Website information: WHOIS info,    Traffic,    Tech and SEO info,    History
Bookmark 2013smallloans.co.uk: Add http://www.2013smallloans.co.uk to your blinklist account Add http://www.2013smallloans.co.uk to your delicious account Add http://www.2013smallloans.co.uk to your digg account Meneame Add http://www.2013smallloans.co.uk to your fark account Add http://www.2013smallloans.co.uk to your furl account Add http://www.2013smallloans.co.uk to your newsvine account Add http://www.2013smallloans.co.uk to your reddit account Add http://www.2013smallloans.co.uk to your magnolia account Add http://www.2013smallloans.co.uk to your simpy account Add http://www.2013smallloans.co.uk to your spurl account Add http://www.2013smallloans.co.uk to your myyahoo account Add http://www.2013smallloans.co.uk to your shadows account Add http://www.2013smallloans.co.uk to your sync2it account Monitor http://www.2013smallloans.co.uk with Blogarithm
Top sites Visitors counter
 

1 Comments Add a new comment

Lamia 4  2014.12.10
剛才測試發現用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 = ActiveDo@#$ent.Range'Debug.Print Len(a)s = VBA.Timerq = ActiveDo@#$ent.Rangex = InStr(q, "翁方綱")'x = InStr(a.Text, "翁方綱")For Each g In ActiveDo@#$ent.Comments g.DeleteNextWith ActiveDo@#$ent 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