Word小练习

守柔 · 发表于 2006-3-7 06:42

这是摘自金山词霸中的网站与网址，想一下，Word中如何处理以下问题：综合类与门户类新浪网：http://www.sina.com.cn 雅虎搜索：http://cn.yahoo.com 中华网：http://www.china.com 第九城市：http://www.the9.com 中央电视台：http://www.cctv.com 联众游戏：http://www.ourgame.com 搜狐：http://www.sohu.com 联想FM365：http://www.fm365.com 亿唐：http://www.etang.com 广州视窗：http://www.gznet.com 首都在线：http://www.263.net 网易：http://www.163.com 天极网：http://www.yesky.com 中国人：http://www.chinaren.com tom.com：http://www.tom.com Lycos中国：http://www.lycos.com.cn 易趣-网上竞拍：http://eachnet.com/ 百度搜索：http://www.baidu.com/ 人民网：http://www.people.com.cn 深圳之窗：http://www.szptt.net.cn 可乐吧kele8：http://www.kele8.com Yahoo：http://www.yahoo.com QQ163音乐网：http://qq163.com 腾讯QQ：http://www.tencent.com google搜索：http://www.google.com 新华网：http://www.xinhuanet.com 碧海银沙：http://www.yinsha.com 中国同学录：http://www.5460.net 黄金书屋：http://www.goldnets.com 域名-虚拟主机：http://www.25000.net 1：分列，要求分成两列，第一列宽度为4厘米，第二列文字左对齐，无框线（注意，不要被文字描述所迷惑） 2：将所有网址变成超级链接形式。 3：如果使用VBA，你会怎么将它们变为超级链接？说明：快速及时正确高效回复者，可以加分哟，大家来试一下。见附件

UbLi8dad.rar (2.88 KB, 下载次数: 42)

konggs · 发表于 2006-3-7 09:30

占个位。关键有一步没做出： 1、先在每个地址前面放个空域，如：{ 123 } （以上都能顺利完成。但下面） 2、查找：(：*)(123)(*)(http://*)^13 替换为：\1\4\3^13 但是，第二步替换后的域是个有意思的东东，他不是一般的域了（因为一般是一对的域符号，是一个整体，他却是一个两个个体，而且不可能一起选中他们）。我是这样认为的：： 1、通过^21能查到。 2、但是activedocument.fileds(1).select却又找不到。

[此贴子已经被作者于2006-3-7 14:44:23编辑过]

sailorgg · 发表于 2006-3-7 12:52

我来试试看 1. 选中所有网站和网址，以“：”为分隔符将文本转为二列的表格。 2. 按要求设置第一列宽度为4厘米，第二列为无边框左对齐。 3. 超链接还是用VBA比较方便,运行以下代码实现 Sub test() Dim Cnum As Integer, i As Integer Dim Rstart As Integer, Rend As Integer Cnum = Me.Tables(1).Columns(2).Cells.Count For i = 1 To Cnum Rstart = Me.Tables(1).Columns(2).Cells(i).Range.Start Rend = Me.Tables(1).Columns(2).Cells(i).Range.End - 1 Me.Hyperlinks.Add Anchor:=Me.Range(Rstart,Rend),Address:=Me.Range(Rstart, Rend).Text Next i End Sub

TZUZgkWq.rar (10.04 KB, 下载次数: 18)

守柔 · 发表于 2006-3-20 06:55

呵呵，观者如云和者稀，吾心也凄。 1：分列，要求分成两列，第一列宽度为4厘米，第二列文字左对齐，无框线（注意，不要被文字描述所迷惑）直接使用查找与替换即可。 2：将所有网址变成超级链接形式。使用格式/自动套用格式即可。 3：如果使用VBA，你会怎么将它们变为超级链接？

Option Explicit
Sub AddHyperLinks()
Dim i As Paragraph, myRange As Range
Dim KeyPosition As Long
Application.ScreenUpdating = False
With ActiveDocument
For Each i In .Paragraphs
Set myRange = i.Range
With myRange
KeyPosition = VBA.InStr(.Text, "http://")
If KeyPosition > 0 Then
.SetRange .Start + KeyPosition - 1, .End - 1
.Hyperlinks.Add Address:=.Text, Anchor:=myRange
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2006-3-20 6:59:20编辑过]

konggs · 发表于 2006-3-20 08:05

受教了。

辛苦老大了。

我来加个注秋吧。老本行了。

Sub AddHyperLinks()
Dim i As Paragraph, myRange As Range
Dim KeyPosition As Long

Application.ScreenUpdating = False '关闭屏幕更新
With ActiveDocument
For Each i In .Paragraphs '在段落间循环
Set myRange = i.Range '设置myrange就是所在段落
With myRange
KeyPosition = VBA.InStr(.Text, "http://") '第1次出现http的位置，例如7，8，返回是数值
'MsgBox KeyPosition
If KeyPosition > 0 Then '如果大于0，即找到，存在。
.SetRange .Start + KeyPosition - 1, .End - 1 '重新定义myrange区域为http://至结束，除段落标记以外
.Hyperlinks.Add Address:=.Text, Anchor:=myRange '添加hyperlinks域,域文字为.text即http://至结束，锚定为重新定义的myrange
End If
End With
Next
End With
Application.ScreenUpdating = True '开启屏幕更新
End Sub

ykxht · 发表于 2012-10-31 09:27

谢谢分享！！！

		自动登录	找回密码
密码			免费注册