![]() |
|
|
|
#1
|
||||
|
||||
|
Don't know how but this works. If you can just give hint what this does, it would be grateful. Code:
StrTxt = HttpReq.responseText
i = InStr(StrTxt, "https://mirror.patentscope.wipo.int/patentscope/docservicepdf_pct_mirror/")
If i > 0 Then
StrTxt = Mid(StrTxt, i, Len(StrTxt) - i)
i = InStr(StrTxt, ".pdf")
If i > 0 Then
StrTxt = Left(StrTxt, i + 3)
|
|
| Tags |
| word vba |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Multiple Hyperlink to a single string | PRA007 | Word VBA | 7 | 11-09-2015 04:29 PM |
find a set of characters in a string and return a 0 (zero) if not found
|
MaineLady | Excel | 2 | 11-05-2015 03:23 PM |
Why is this Find string not working
|
TechEd | Word VBA | 5 | 07-05-2014 08:12 PM |
Find and replace a string of text
|
errtu | Word | 1 | 01-31-2013 02:09 PM |
Bad view when using Find and Find & Replace - Word places found string on top line
|
paulkaye | Word | 4 | 12-06-2011 11:05 PM |