如何使用VBA删除PowerPoint中的双空行？
如何使用VBA删除PowerPoint中的双空行？
提问于 2017-04-20 07:40:42
我正在将数据从MS Access导出到MS PowerPoint，其中一部分数据是带有多个段落的文本字段(long)，就像在单个字段中的行间命中ENTER一样。这一结果，在出口后的各种现象中我想澄清一下。最令人不安的是Powerpoint幻灯片中出现的控制和特殊字符。
我主要尝试使用:搜索和替换“方法”，如
shp.TextFrame.TextRange.Text =替换(shp.TextFrame.TextRange.Text，"this"，"that")
但我不知道如何解决双空白行的问题。此外，似乎有一整套换行符和组合(请参阅This SO question)，我不知道哪些字符和组合在那里。在MS Word中，它相对容易一些，因为它的搜索和替换功能支持这些特殊字符。在Powerpoint中就不是这样了。
谢谢
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-04-20 07:59:13
尝试此宏移除多个空行。
Function removeMultiBlank(s As String) As String
With CreateObject("VBScript.RegExp")
.Global = True
.MultiLine = True
.IgnoreCase = True
.Pattern = "^\s"
removeMultiBlank= .Replace(s, "")
End With
End Function用它就像
With shp.TextFrame.TextRange
.Text = removeMultiBlank(.Text)
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43513155
复制相关文章
相似问题
腾讯云开发者
