word中如何批量加入超链接?
Public Declare Function GetShortPathName Lib "kernel32" Alias _ "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As _ Long) As LongPublic Function ShortPath(ByVal Path As String) As String Dim Tmp As String Dim L As Long Tmp = String(256, 0) L = GetShortPathName(Path, Tmp, Len(Tmp)) ShortPath = Replace(Left(Tmp, L), Chr(0), "")End FunctionSub BatHyper() Selection.HomeKey Unit:=wdStory '光标移到文档首 MyStart = -1 MyHyperDir = "C:\Documents and Settings\mkw\桌面\源文档\" '指定源文档所在的目录,可自行修改 If Dir(MyHyperDir, vbDirectory) = "" Then '判断源目录是否存在 MsgBox "你指定的源文件目录不存在,请修正后重试。
", vbCritical, "消息" Exit Sub End If Shell "cmd.exe /c dir /b " + ShortPath(MyHyperDir) + "*.doc > " + ShortPath(MyHyperDir) + "SHyper.txt" '获取该目录下doc类型的文件名,如果是docx类型,则自行修改即可 Do Until FileLen(MyHyperDir + "SHyper.txt") > 2 '等待提取文件名结束 DoEvents Loop Open MyHyperDir + "SHyper.txt" For Input As #11 Do Until EOF(11) Line Input #11, MyHyperAdd If Selection.Start = MyStart Then Exit Do Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[0-9]{4}" '查找待插入超链接的标签通配符表达式,可自行修改 .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute On Error Resume Next If Selection.Range.Hyperlinks(1).Target "" Then DoEvents If Err.Number = 0 Then Exit Do '文档中的目标标签已设置完毕,提前结束操作 ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ MyHyperDir + MyHyperAdd, SubAddress:="", _ ScreenTip:="", TextToDisplay:="" '插入超链接关键代码 MyStart = Selection.Start Selection.Find.Execute Selection.MoveLeft , 1 '查找下一个标签的关键代码 Loop Close (11) MsgBox "处理完毕!"End Sub'本宏代码由mkw007达人提供。
word中批量加入超链接。
Public Declare Function GetShortPathName Lib "kernel32" Alias _ "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As _ Long) As LongPublic Function ShortPath(ByVal Path As String) As String Dim Tmp As String Dim L As Long Tmp = String(256, 0) L = GetShortPathName(Path, Tmp, Len(Tmp)) ShortPath = Replace(Left(Tmp, L), Chr(0), "")End FunctionSub BatHyper() Selection.HomeKey Unit:=wdStory '光标移到文档首 MyStart = -1 MyHyperDir = "C:\Documents and Settings\mkw\桌面\源文档\" '指定源文档所在的目录,可自行修改 If Dir(MyHyperDir, vbDirectory) = "" Then '判断源目录是否存在 MsgBox "你指定的源文件目录不存在,请修正后重试。
", vbCritical, "消息" Exit Sub End If Shell "cmd.exe /c dir /b " + ShortPath(MyHyperDir) + "*.doc > " + ShortPath(MyHyperDir) + "SHyper.txt" '获取该目录下doc类型的文件名,如果是docx类型,则自行修改即可 Do Until FileLen(MyHyperDir + "SHyper.txt") > 2 '等待提取文件名结束 DoEvents Loop Open MyHyperDir + "SHyper.txt" For Input As #11 Do Until EOF(11) Line Input #11, MyHyperAdd If Selection.Start = MyStart Then Exit Do Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[0-9]{4}" '查找待插入超链接的标签通配符表达式,可自行修改 .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute On Error Resume Next If Selection.Range.Hyperlinks(1).Target "" Then DoEvents If Err.Number = 0 Then Exit Do '文档中的目标标签已设置完毕,提前结束操作 ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ MyHyperDir + MyHyperAdd, SubAddress:="", _ ScreenTip:="", TextToDisplay:="" '插入超链接关键代码 MyStart = Selection.Start Selection.Find.Execute Selection.MoveLeft , 1 '查找下一个标签的关键代码 Loop Close (11) MsgBox "处理完毕!"End Sub'本宏代码由mkw007达人提供。
展开
怎么在word文档里面批量做成超链接
用excel的超链接函数(HYPERLINK)可以实现。
【暂时假设你的那个文件夹是D盘的“word大全”,路径名是“d:\word大全”】(1)提取word文档的路径名。
操作如下:开始——运行,输入“cmd”,回车,打开命令提示符窗口输入“dir d:\word大全 /a/s/b >d:1.txt”,回车【注意:这一串命令里边有3个空格】这样就会在D盘的根目录下找到一个“1.txt”的文件,双击打开,就会看见“word大全”这个文件夹里的所有文件的路径名。
全选,复制。
(2)制作超链接。
打开excel,单击A1单元格,粘贴。
单击B1单元格,插入——函数——HYPERLINK光标定位在第一个框内,然后点击A1,再回到函数窗口,点击“确定”。
这样就完成了第一个文件的超链接,点击一下就可以打开该路径名的word文档了。
左键点击B1单元格2~3秒钟,然后 移动光标到该单元格的右下角,当鼠标变形成一个细黑的加号+时,按住左键不妨,往下拖动,A1~An的超链接也就做好了。
以上就基本上满足你的要求了,但还有可以改进的地方,比如可以把超链接显示为文件名,比如点击超链接不出现多余的提示,如果有需求,再追问吧。
WORD目录中如何添加超链接
熟悉网页制作的朋友,当然对超链接比较熟悉了,但是当我们在用Word进行文档处理,有时候也需要设置超链接的,比如在超长文档中创建文档目录,为书稿创建目录等,这样以来我们只需要点击第一页的超链接即可快速跳转到需要的页面,那在Word中如何来快速地创建文档内的超链接呢?至少有三种方法可以达到目的。
1、拖放编辑法:首先保存文档,然后拖动鼠标选中特定的词、句或图像作为超级链接的目标,然后点击鼠标右键,把选定的目标拖到需要链接到的位置,释放鼠标按键,在快捷菜单中选择“在此创建超级链接”选项即可(图1)。
2、拷贝粘贴法:利用鼠标拖放法创建超链接很方便,但是有时超级链接的起点和终点在文档中相距较远,使用拖放式编辑的方法是很不方便的。
这时可以选择超级链接的目标词、句或图像,按下Ctrl+C复制选定内容,把光标移动到需要加入链接的位置,然后执行菜单“编辑→粘贴为超链接”即可(图2)。
图2 Word粘贴为超链接 3、 使用书签法:除了以上两种方法以外,我们也可以通过使用书签来实现。
首先保存文档,选择特定的词、句或图像作为超级链接的目标,选择菜单“插入→书签”,插入书签时,需要为书签命名,命名后单击“添加”按钮,把光标移到需要添加超级链接的位置,选择“插入→超级链接”,在“编辑超链接”对话框中单击“书签”按钮,并在“在文档中选择位置”对话框中选择特定的书签,单击“确定”按钮即可(图3)。
图3 Word插入书签 小提示:以上的方法是在Word 2003中来说明的,对于已经使用Word 2007的朋友也可以采取类似的方法来实现,只不过是菜单的位置稍有不同。
展开
在word文档里怎样设置超链接?具体怎么做...
设置超链接首先把光标放在点主菜单上点击“插入”下拉菜单中选“超链接“在跳出的“插入超链接”中选择连接到哪儿的地址(默认为“原有文件或网页”)、输入链接处要显示的文字内容、选择链接文件来源(默认为“当前文件夹”)。
具体步骤如下:首先我们打开一个WORD文档,然后在WORD文档里输入一些文件内容。
然后我们点击插入我们看到书签选项然后进行点击,我们会看到书签名,我们可以自己设置一个书签名。
同样点击插入,最后点击超链接,在超链接中选中在本文档中的位置,这个时候就把超链接设置好了。
把鼠标移动到所设置超链接的位置我们会看到下面显示按住ctrl键,然后双击鼠标跳转到超链接界面就是前面所设置书签的页面。
然后点击选项,选中选项,然后把ctrl进行超链接设置前面的对号去掉就可以实现直接按住鼠标,界面可以直接跳转到所属的链接页面。
...
word文档怎么能添加超链接文档
这个分我要了哈你只需要给文档创建一个逗索引目录地具体方法如下你这些文档是书籍文档肯定每个章节都有大标题、小标题之类的吧点击上面的逗插入地-逗引用地-逗索引和目录地在弹出的对话框中选择逗目录地然后勾上那个逗使用超链接而不使用页码地然后确定,WORD会给你生成一个逗目录地出来到这你在点击上面的逗视图地-逗文档结构图地你要的效果是不是出来了!试试吧...
Word文档中文字怎么设置超链接
超链接创建好了。
2、创建超链接A:选定要添加超链接的文字或图像:拖放创建超链接1、用鼠标选中作为目标超链接的文字或图像、创建超链接B:打开“插入超链接”对话框,然后右击选择“超链接”,释放鼠标按键即可创建超链接,然后选择创建好的书签名,最后单击“确定”。
5、创建超链接C。
说明:这里创建的超链接的文字为选定作为目标超链接的文字、创建书签A、打开“选择性粘贴”对话框,选择“粘贴链接”中的“Word Hyperlink”,然后单击“开始”选项卡下的“粘贴”—“选择性粘贴”。
方法三、这样超链接就创建好了,效果如下图所示(需要删除原来自己输入的文字):选中特定的文字或图像作为超链接目标。
说明:当然可以将光标定位到要创建超链接的位置,然后右击“超链接”来创建。
4、在快捷菜单中选择“在此创建超链接”。
2。
3。
3,然后单击“插入”选项卡的“书签”。
2、创建书签B:输入书签名,然后单击“添加”,看看效果吧方法一:复制粘贴创建超链接:1、选定作为目标超链接的文字或图像,然后右击选择“复制”,选择“本文档中的位置”、将光标定位到要插入超链接的位置。
3,然后单击“确定”。
4、现在看看创建好的超链接吧(如下图所示)。
方法二:书签法1,只不过此时显示的是带超链接的书签名而已,然后单击鼠标右键,然后拖到需要创建超链接的位置...
如何在Word文档中创建超链接
选择上,然后指向需要链接的文件地址在word文档中插入另一个word文档成为超链接的方法:1、点插入菜单,超链接,链接到原有网页或文件,点一下就插上了,也可以实现链接效果,但是可以在插入的时候选择成相对链接的形式,然后把这两个文档放在同一目录、Word2007以上版本软件,菜单栏左侧有一个空白页的图标,确定就可以了。
2、这样插入的Word文档,只是链接,这样即使拿到别的电脑上。
3...
转载请注明出处51数据库 » word2007文档中如何批量添加超链接