Question

我从无法控制格式的系统中收到了Outlook中自动生成的电子邮件。我想用回车符替换电子邮件中的每个逗号，这将导致易于阅读和处理输出。我当时正在考虑通过VB脚本

我可以使用以下脚本通过VB在Word OK中执行此操作，但是不知道Outlook中的等效项

Sub Macro2()
'
' Macro2 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ","
        .Replacement.Text = "^l"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

我想要的将转换邮件：

Request ID: 527
Results: [06-641-20_XABY_C-terminally designated_region A, 46-643-00_AASC_C-terminally designated_region C, 06-642-60_TTTS_C-terminally designated_region S]

至：

Request ID: 527
Results: [06-641-20_XABY_C-terminally designated_region A<br>
 46-643-00_AASC_C-terminally designated_region C<br>
 06-642-60_TTTS_C-terminally designated_region S]

因此，每个结果都排成一行-通常有几十个结果！

Answer 1

您想要的是一个简单的替换方法，例如：

<h1>Results</h1>

<table>

<tr>
<td><img src="plot1.png" style="max-width:100%"/></td>
<td><img src="plot2.png" style="max-width:100%"/></td>
</tr>

<tr>
<td><img src="plot3.png" style="max-width:100%"/></td>
<td><img src="plot1.png" style="max-width:100%"/></td>
</tr>

</table>

通过用回车符替换字符

1 个答案: