Question

我将数据从MS Access导出到MS PowerPoint，部分数据是带有多个段落的文本字段（长整数），如在单个字段中的行之间点击ENTER。这导致在我想要清除的各种现象出口之后。其中最令人不安的是Powerpoint幻灯片中出现的控件和特殊字符。

我主要尝试使用：搜索和替换＆＃34;像

这样的方法

shp.TextFrame.TextRange.Text = Replace（shp.TextFrame.TextRange.Text，＆＃34;这＆＃34;，＆＃34;那＆＃34;）

但我不知道如何解决双空行问题。此外，似乎有一整套换行符和组合（见This SO question），我不知道有哪些。在MS Word中它相对容易，因为它的搜索和替换功能支持这些特殊字符。在Powerpoint中并非如此。

由于

Answer 1

尝试使用此宏删除多个空行

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<div class="checkbox">
  <label>
    <input type="checkbox" class="animals_input" value="0" id="dogs" name="animals_check[]">Dogs
  </label>
  <label>
    <input type="checkbox" class="animals_input" value="0" id="ducks" name="animals_check[]">Ducks
  </label>
  <label>
    <input type="checkbox" class="animals_input" value="0" id="cats" name="animals_check[]">Cats
  </label>
</div>

像

一样使用它

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

如何使用VBA删除PowerPoint中的双空行？

1 个答案: