怎么解决word文档超级链接打开网页乱码问题？

三种方法去掉word文档中的超级链接

[未分类] 2008/07/17 22:40 Word有很多自动功能，这无疑给用户的 *** 作增添了无数的便捷，但有时也会感尺橘尘到有些不方便，比如陵禅仅仅是输入了一个网址或E-mail地址后，Word会自动将其转换为一个超级链接，对于不需要这一链接的用户来说如何去除自动添加呢？

有三种方法

1.即时方法，在Word将网址或E-mail自动转换为超级链接域后，按下Ctrl+Z组合键，即可取消该自伍拍动转换。

2.长期方法，执行“工具”菜单上的“自动更正选项”命令，在d出的对话框中选择“键入时自动套用格式”选项卡中，去除“Internet及网络路径替换为超级链接”复选框的选择，如图1.2.43。

需要提醒用户注意的是，使用此方法后，当用户再输入网址或E-mail地址时，Word就不会自动将其转换为超级链接了。

3.取消其它位置的超级链接，如果想把文档中某个已经存在的超级链接域转换为正常文本，只需在按住Ctrl键的同时单击该超级链接，然后按下Ctrl+Shift+F9组合键即可。

'Base64编码函数，参数sFileName:与编码文件路径，sCodeName:编码文件存储路径

Function Base64Encode(ByVal sFileName As String, ByVal sCodeName As String) As String

Dim sCodeTable(0 To 63) As Byte '编码表

Dim tmpBytes3(1 To 3) As Byte '临时存储原字节码

Dim tmpBytes4(1 To 4) As Byte '临时存储字节分解吗

Dim i As Long, k As Long

Dim sFileLen As Long '文件长度

Dim n As Long

Dim m As Long

'初始化编码表

For i = 0 To 25

sCodeTable(i) = i + 65 '大写字母

sCodeTable(i + 26) = i + 97 '小写字母

Next

For i = 52 To 61

sCodeTable(i) = i - 4

Next

sCodeTable(62) = Asc("+")

sCodeTable(63) = Asc("/")

'文件长度

sFileLen = FileLen(sFileName)

n = sFileLen \ 3 '整除3

m = sFileLen Mod 3 '除以3的余数

'打开文件

Open sFileName For Binary As #1 Len = 32760

Open sCodeName For Binary As #2 Len = 32760

For i = 1 To n

Get #1, , tmpBytes3 '读取3个字节到tmpBytes

'八3个字节分解为4个字节并戚

tmpBytes4(1) = (tmpBytes3(1) And 252) / 4 '截取前6bit

tmpBytes4(2) = (tmpBytes3(1) And 3) * 16 + (tmpBytes3(2) And 240) / 16 '截取第二个6bit

tmpBytes4(3) = (tmpBytes3(2) And 15) * 4 + (tmpBytes3(3) And 192) / 64 '截取第三个6bit

tmpBytes4(4) = tmpBytes3(3) And 63 '截取第三个6bit

For k = 1 To 4

tmpBytes4(k) = sCodeTable(tmpBytes4(k))

Next

Put #2, , tmpBytes4 '将编码写入编码文件

DoEvents '测试时使用，编译时可以注释掉===========================================

Next

'如果者晌文件大小不是3的整数倍

If m = 1 Then

Get #1, , tmpBytes3(1)

tmpBytes3(2) = 0

tmpBytes4(1) = (tmpBytes3(1) And 252) / 4 '绝嫌陵截取前6bit

tmpBytes4(2) = (tmpBytes3(1) And 3) * 16 + (tmpBytes3(2) And 240) / 16 '截取第二个6bit

Put #2, , sCodeTable(tmpBytes4(1))

Put #2, , sCodeTable(tmpBytes4(2))

Put #2, , CByte(Asc("="))

Put #2, , CByte(Asc("="))

ElseIf m = 2 Then

Get #1, , tmpBytes3(1)

Get #1, , tmpBytes3(2)

tmpBytes3(3) = 0

tmpBytes4(1) = (tmpBytes3(1) And 252) / 4 '截取前6bit

tmpBytes4(2) = (tmpBytes3(1) And 3) * 16 + (tmpBytes3(2) And 240) / 16 '截取第二个6bit

tmpBytes4(3) = (tmpBytes3(2) And 15) * 4 + (tmpBytes3(3) And 192) / 64 '截取第三个6bit

Put #2, , sCodeTable(tmpBytes4(1))

Put #2, , sCodeTable(tmpBytes4(2))

Put #2, , sCodeTable(tmpBytes4(3))

Put #2, , CByte(Asc("="))

End If

'关闭文件

Close #2

Close #1

End Function

编码很多.... 二进制编码,数据文件一般都用这个格式.当然,还会使用一些加密方式. ASCII,主要是字母,字符 GB2312,简体汉字. GBK,Windows 95就是以GBK为内码,又由于GBK同时也涵盖了Unicode所有CJK汉字. BIG5,又称为大五码或五大码,是使用繁体中文(正体中尺好没文)社群中最常用的陵纳电脑汉字字符集标袜腊准,共收录13060个汉字. UTF8,UTF16,UTF32,写网页的时候常用. 主要就是这些.

---