一种ppt中替换选中表格或文本框对象字符的宏脚本

sunny__007

已于 2024-04-07 09:00:25 修改

阅读量105

点赞数 1

文章标签： powerpoint windows

于 2024-04-06 18:05:11 首次发布

本博客上原创文章未经本人许可，不得用于商业用途。转载请注明出处，否则保留追究法律责任的权利。

本文链接：https://blog.csdn.net/qqygysun/article/details/137434138

版权

该文章详细描述了如何使用VBA脚本在MicrosoftPowerPoint的Subppt模块中，针对选中的文本框和表格内容，替换空格字符的过程，包括遍历和操作TextFrame.TextRange来实现替换操作。

摘要由CSDN通过智能技术生成

目的是便于替换ppt中选中表格或文本框中的空格字符。

Sub ppt中替换选中对象空白字符()
    Dim Shape As Shape
    Dim searchStr As String
    Dim replaceStr As String
    ' 设置要搜索和替换的文本
    searchStr = " "
    replaceStr = ""
    ' 遍历选中的所有形状
    For Each Shape In ActiveWindow.Selection.ShapeRange
        ' 选中文本框处理
        If Shape.Type = msoTextBox Then
            Set TextBox = Shape.TextFrame.TextRange
            TextBox.Text = Replace(TextBox.Text, searchStr, replaceStr)
        End If
       ' 选中表格处理
         If Shape.Type = msoTable Then
            Set Tablecols = Shape.Table.Columns
            Set Tablerows = Shape.Table.Rows
             ' 替换表格中列单元格的字符
            For Each col In Tablecols
                For Each ctext In col.Cells
                    TextBox = ctext.Shape.TextFrame.TextRange.Text
                    ctext.Shape.TextFrame.TextRange = Replace(TextBox, searchStr, replaceStr)
                Next
            Next
             ' 替换表格中行单元格的字符
            For Each ro In Tablerows
                For Each ctext In ro.Cells
                    TextBox = ctext.Shape.TextFrame.TextRange
                    ctext.Shape.TextFrame.TextRange = Replace(TextBox, searchStr, replaceStr)
                Next
            Next
        End If
    Next Shape
End Sub