☰

Word 宏：将文本行移动到上一行之上

tag-icon • tag-icon microsoft-word vba macros
Word 宏：将文本行移动到上一行之上

我尝试使用以下代码将以“File #”开头的一行文本移动到上一行文本上方，但是在 Selection.Range.Move 对象上出现错误参数错误。

For Each Paragraph In ActiveDocument.Paragraphs

    Selection.Find.ClearFormatting
    Paragraph.Range.Select

    If InStr(Paragraph.Range.Text, "File #") Then
        Selection.Range.Move Unit = wdParagraph, Count:=-1
    Else
    End If

以下是文本示例：

空气资源委员会

文件编号 2019-1218-01

零排放机场穿梭巴士

以下是我试图让它看起来的样子：

文件编号 2019-1218-01

空气资源委员会

零排放机场穿梭巴士

我需要将其贯穿到文档的末尾。

我承认我对 VBA 的了解相当有限（基本上，我可以轻松地查找/替换内容，因此这超出了我的理解范围）。 在此先感谢您的任何见解。

答案1

对于 ActiveDocument.Paragraphs 中的每个段落

If InStr(Paragraph.Range.Text, "File #") Then

    Paragraph.Range.Select
    Selection.Range.Relocate wdRelocateUp

End If

下一个

相关内容