怎么去除下划线???

gezi1213 发表于: 2008-6-25 16:25 来源: 扑奔PPT网

谭笑风生 发表于 2008-6-25 16:51:47

你可以先粘到记事本，然后再粘到PPT文档中

gezi1213 发表于 2008-6-25 17:34:15

谢谢,,我想到了,不过好多好麻烦的,嘿

huohuomi 发表于 2008-6-25 18:13:44

可以复制一次重新粘贴，试试用“选择性粘贴”里的“无格式文本”

laose 发表于 2008-6-25 19:19:24

给你写了个宏，试试看能否一次性清除所有Hyperlink下划线：
'############################################
'#    使用方法：                                                              #
'#           打开待处理的PPT，按Alt+F11，打开VBE        #
'#           插入>模块，将下列代码复制到模块代码区       #
'#          运行该宏一次即可                                             #
'############################################
Sub DelHyperlink()
    Dim oSld As Slide     '声明Slide变量
    Dim oShp As Shape  '声明Shape变量
    For Each oSld In ActivePresentation.Slides   '遍历当前PPT文档所有Slide
        For Each oShp In oSld.Shapes   '遍历所有Slide中的所有Shape
            If oShp.HasTextFrame Then   '如果Shape为文本框，则
                oShp.TextFrame.TextRange.ActionSettings(ppMouseClick).Hyperlink.Delete  '删除鼠标单击型超链接
                oShp.TextFrame.TextRange.ActionSettings(ppMouseOver).Hyperlink.Delete  '删除鼠标滑过型超链接
            End If
        Next oShp
    Next oSld
End Sub

[ 本帖最后由 laose 于 2008-6-26 17:15 编辑 ]

4kcoast 发表于 2008-6-26 11:00:26

楼上高手 怎么用呢

huruikobe 发表于 2008-6-26 13:36:40

QUOTE:

原帖由 laose 于 2008-6-25 19:19 发表
给你写了个宏，试试看能否一次性清除所有Hyperlink下划线：
Sub DelHyperlink()
    Dim oSld As Slide
    Dim oShp As Shape
    For Each oSld In ActivePresentation.Slides
        For Each oShp In oSld ...

稍微给点说明性的文字就更好了 :D

juny 发表于 2009-6-16 08:25:58

我运行过了，好似不行