Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Larina23
 | Femeie
23 ani
Timis
cauta Barbat
28 - 80 ani |
|
Mrrrr
AdMiN
 Inregistrat: acum 17 ani
Postari: 2186
|
|
I have a document with 30 links stored as text and would like each link to have a hyperlink to itself.
Sub Hyperlink_All_Paragraphs()
Dim para As Word.Paragraph
Dim strPara As Range
For Each para In ActiveDocument.Paragraphs
On Error Resume Next
Set strPara = para.Range
strPara.MoveEnd wdCharacter, -1
If InStr(1, strPara.Text, "http", vbTextCompare) > 0 Then
ActiveDocument.Hyperlinks.Add Anchor:=strPara, Address:=strPara.Text, TextToDisplay:=strPara.Text
End If
Next para
End Sub |
Source (PeggySDay post):
_______________________________________
|
|
| pus acum 1 an |
|