2007/11/08

Scripting Weblog
http://blogs.wankuma.com/mutaguchi/

という文字列を選択して実行すると

Scripting Weblog

というアンカータグをつくってくれるマクロ。IEと連携するにはこのBookmarkletを併用するといい感じです。

URLだけ選択してもそのURLへのアンカータグを作ってくれます。

便利ー。

'URLにアンカータグを付ける
	Set RegEx = New RegExp
	RegEx.Global = True
	RegEx.MultiLine=True
	RegEx.Pattern = "(http\:\/\/[\:\w\/\.\?\&\#\~\=\-\+\@\%\,\(\)]+)"

Set sel=document.selection
If Not sel.IsEmpty Then
	sText=sel.Text
	
	If InStr(sText,vbCrLf)<>0 Then
		sNewLine=vbCrLf
	ElseIf InStr(sText,vbCr)<>0 Then
		sNewLine=vbCr
	ElseIf InStr(sText,vbLf)<>0 Then
		sNewLine=vbLf
	Else
		sNewLine=vbCrLf
	End If
	
	If InStr(sText,sNewLine)<>0 Then
		aLine=Split(sText,sNewLine)
		If Ubound(aLine)=1 Then
			'2行の場合、1行目をタイトル、2行目をURLとみなしてリンク化
			sel.Text="" &  aLine(0) & ""
		Else
			'複数行の場合、URLのみをリンク化
			sel.Text=RegEx.Replace(sText,"$1")
		End If
	Else
		sel.Text=RegEx.Replace(sText,"$1")
	End If 
	
	sel.Collapse
End If
元記事:http://blogs.wankuma.com/mutaguchi/archive/2007/11/08/106982.aspx

古い記事へ | 新しい記事へ


プライバシーポリシー

Twitter

Books