有人可以指出这个宏有什么问题吗？我正在尝试搜索带有标记“vv”的段落，然后将其段落样式更改为“_Verse”。如果我在其中放置一个断点并一次手动转到一个段落，该宏就会起作用。但是当它单独放置时，它会最大化 CPU 核心，我必须强制 LO 关闭。

问题似乎是该行在 Loop While oEnum.hasMoreElements()到达文件末尾时没有恢复。

谢谢。

sub findvv

rem define variables
dim document   as object
dim dispatcher as object

oEnum = ThisComponent.Text.createEnumeration()
rem
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem 

dim args1(21) as new com.sun.star.beans.PropertyValue

    args1(0).Name = "SearchItem.StyleFamily"
    args1(0).Value = 2
    args1(1).Name = "SearchItem.CellType"
    args1(1).Value = 0
    args1(2).Name = "SearchItem.RowDirection"
    args1(2).Value = true
    args1(3).Name = "SearchItem.AllTables"
    args1(3).Value = false
    args1(4).Name = "SearchItem.SearchFiltered"
    args1(4).Value = false
    args1(5).Name = "SearchItem.Backward"
    args1(5).Value = false
    args1(6).Name = "SearchItem.Pattern"
    args1(6).Value = false
    args1(7).Name = "SearchItem.Content"
    args1(7).Value = false
    args1(8).Name = "SearchItem.AsianOptions"
    args1(8).Value = false
    args1(9).Name = "SearchItem.AlgorithmType"
    args1(9).Value = 1
    args1(10).Name = "SearchItem.SearchFlags"
    args1(10).Value = 65536
    args1(11).Name = "SearchItem.SearchString"
    args1(11).Value = "^vv"
    args1(12).Name = "SearchItem.ReplaceString"
    args1(12).Value = ""
    args1(13).Name = "SearchItem.Locale"
    args1(13).Value = 255
    args1(14).Name = "SearchItem.ChangedChars"
    args1(14).Value = 2
    args1(15).Name = "SearchItem.DeletedChars"
    args1(15).Value = 2
    args1(16).Name = "SearchItem.InsertedChars"
    args1(16).Value = 2
    args1(17).Name = "SearchItem.TransliterateFlags"
    args1(17).Value = 1073743104
    args1(18).Name = "SearchItem.Command"
    args1(18).Value = 0
    args1(19).Name = "SearchItem.SearchFormatted"
    args1(19).Value = false
    args1(20).Name = "SearchItem.AlgorithmType2"
    args1(20).Value = 2
    args1(21).Name = "Quiet"
    args1(21).Value = true

Do
    dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())

    applyverse

Loop While  oEnum.hasMoreElements()

end sub

sub applyverse

dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(1) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "Template"
    args1(0).Value = "_Verse"
    args1(1).Name = "Family"
    args1(1).Value = 2

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args1())

end sub

我正在尝试创建一个在 Calc 中使用的 LibreOffice Basic 宏，当在打开的电子表格文件中调用该宏时，将打开包含两个范围的第二个电子表格文件（第一个范围包含带有要搜索的正则表达式的单元格，第二个范围包含替换内容） text）然后将在调用它的工作表中搜索搜索范围内的所有项目，并将工作表中找到的任何项目替换为相应的替换单元格（包括替换单元格的格式）。我向 ChatGPT 寻求帮助，以下是它提供的一般内容，以及我对确定范围大小的逻辑所做的一些更正。

Sub SearchAndReplaceItems

    Dim oDoc As Object
    Dim oSearchReplaceDoc As Object
    Dim oSheet As Object
    Dim oSearchReplaceSheet As Object
    Dim oSearchDescriptor As Object
    Dim oSearchRange As Object
    Dim oReplaceDescriptor As Object
    Dim oCell As Object
    Dim oFound As Object
    Dim nSearchColumn As Integer
    Dim nReplaceColumn As Integer
    Dim nLastRow As Integer

    ' Get the current document
    oDoc = ThisComponent

    ' Specify the path to the Corrections spreadsheet
    Dim sSearchReplaceFilePath As String
    sSearchReplaceFilePath = "C:\Users\One\Info\Corrections.ods"

    ' Open the Corrections spreadsheet
    oSearchReplaceDoc = StarDesktop.loadComponentFromURL(ConvertToURL(sSearchReplaceFilePath), "_blank", 0, Array())
    oSearchReplaceSheet = oSearchReplaceDoc.Sheets(0)

    ' Specify the column numbers for search and replace text
    nSearchColumn = 1 ' Assuming search text is in column A
    nReplaceColumn = 2 ' Assuming replace text is in column B

    ' Get the range for the search regular expressions
    oSearchRange = oSearchReplaceDoc.Sheets(0).getCellRangeByName("SearchRegExps")

    ' Get the last row with data in the SearchRegExps range
    nLastRow = oSearchRange.Rows.getCount()

    ' Loop through each row History Item Corrections sheet
    For i = 1 To nLastRow
        ' Get search and replace values from the current row
        Dim sSearchText As String
        Dim sReplaceText As String
        sSearchText = oSearchReplaceSheet.getCellByPosition(nSearchColumn - 1, i).getString()
        sReplaceText = oSearchReplaceSheet.getCellByPosition(nReplaceColumn - 1, i).getString()

        ' Create search and replace descriptors
        oSearchDescriptor = oDoc.createSearchDescriptor()
        oSearchDescriptor.SearchString = sSearchText

        oReplaceDescriptor = oDoc.createReplaceDescriptor()
        oReplaceDescriptor.ReplaceString = sReplaceText

        ' Execute the search
        oFound = oDoc.createReplaceDescriptor()
        oFound = oDoc.findFirst(oSearchDescriptor)

        ' Replace each occurrence found
        Do While Not IsNull(oFound)
            oCell = oFound.Cell
            oCell.setString(sReplaceText)

            ' Copy formatting from replace cell to the found cell
            CopyCellFormatting(oCell, oFound.Cell)

            ' Find the next occurrence
            oFound = oDoc.findNext(oFound)
        Loop
    Next i

    ' Close the search and replace document
    oSearchReplaceDoc.Close(True)
End Sub

Sub CopyCellFormatting(oSourceCell, oTargetCell)
    ' Copy character formatting
    oTargetCell.CharFontName = oSourceCell.CharFontName
    oTargetCell.CharHeight = oSourceCell.CharHeight
    oTargetCell.CharWeight = oSourceCell.CharWeight
    oFound.Cell.CharAutoKerning = oCell.CharAutoKerning
    oFound.Cell.CharKerning = oCell.CharKerning
    oFound.Cell.CharScaleWidth = oCell.CharScaleWidth

    ' Copy border formatting
    oTargetCell.BottomBorder = oSourceCell.BottomBorder
    oTargetCell.TopBorder = oSourceCell.TopBorder
    oTargetCell.LeftBorder = oSourceCell.LeftBorder
    oTargetCell.RightBorder = oSourceCell.RightBorder

End Sub

当我运行宏时出现错误

基本运行时错误。未找到属性或方法：createSearchDescriptor。

发生在宏的第 50 行，即：

oSearchDescriptor = oDoc.createSearchDescriptor()

我理解对象 oDoc（调用宏的文档）没有名为 createSearchDescriptor 的属性或方法，但我不知道足够的 LibreOffice Basic 来确定它应该在这里做什么，以便它能够工作。我浏览了 Andrew Pitonyak 的书“OpenOffice.org 的有用宏信息”和他的“OpenOffice.org 宏解释”书，但没有在其中找到任何有关使用 SearchDescriptors 的内容。

我怀疑如果第 53 行的语句会发生类似的错误

oReplaceDescriptor = oDoc.createReplaceDescriptor()

被处决。

如果此代码中存在其他错误导致其无法成功运行，我不会感到惊讶。

如果您能提供有关如何通过此宏实现我想要实现的目标的任何见解，我将不胜感激。

我已经完成了一个宏代码，我可以在其中显示包含“过期”一词的行并隐藏包含单词（已完成、待定、进行中、已延迟）的其他行。一切进展顺利，但需要 2 分钟宏工作和数据库仍然是空的。我读过数组可以解决这个问题并使宏工作得非常快。我试图将我的代码转换为数组但我没有成功。

仅供参考，我的第一行是 (18)，列是 (Q)，所以 Q18 具有第一个数据。

Sub Overdue()
On Error Resume Next

Application.ScreenUpdating = False

Worksheets("Dashboard-Data").Rows.EntireRow.Hidden = False
ltrw = Cells(Rows.Count, "Q").End(xlUp).Row

For i = 2 To ltrw
 
 
 If Cells(i, 17).Value = "Overdue" Then
    Cells(i, 1).EntireRow.Hidden = False
   
    ElseIf Cells(i, 17).Value = "Pending" Then
    Cells(i, 1).EntireRow.Hidden = True
   
    ElseIf Cells(i, 17).Value = "In Progress" Then
    Cells(i, 1).EntireRow.Hidden = True
   
    ElseIf Cells(i, 17).Value = "Completed" Then
    Cells(i, 1).EntireRow.Hidden = True
   
    ElseIf Cells(i, 17).Value = "Delayed" Then
    Cells(i, 1).EntireRow.Hidden = True
       
     ElseIf Cells(i, 17).Value = "Delayed & Overdue" Then
    Cells(i, 1).EntireRow.Hidden = True
   
    Else
   
    Cells.EntireRow.Hidden = False
     
         End If
      Next i


Application.ScreenUpdating = True
End Sub
 

以前我问过如何将 LibreOffice Writer 文档的所有页面导出为图像。我有这个答案。

我已经根据我的需要调整了宏，这是我当前的代码：

Sub StoreEachPageToWebP()
    Dim oDoc As Variant, oViewCursor As Variant
    Dim iPageCount As Long, iPage As Long 
    Dim sOriginalURL As String, sFileURL As String 
    dim args1(1) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "FilterName"
    args1(0).Value = "writer_webp_Export"
    args1(1).Name = "FilterData"
    args1(1).Value = Array(Array("Quality",0,75,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Lossless",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelWidth",0,1000,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelHeight",0,647,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalWidth",0,26455,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalHeight",0,17116,com.sun.star.beans.PropertyState.DIRECT_VALUE))

    oDoc = ThisComponent        
    iPageCount = oDoc.getCurrentController().PageCount
    oViewCursor = oDoc.getCurrentController().getViewCursor()
    sOriginalURL = oDoc.getURL()
    oViewCursor.jumpToFirstPage()
    For iPage = 1 To iPageCount
        sFileURL = Replace(sOriginalURL, ".odt", "-" & Format(iPage, "000") & ".webp")
        oDoc.StoreToURL(sFileURL, args1)
        If Not oViewCursor.jumpToNextPage() Then End
    Next iPage
End Sub

不幸的是FilterData，选项似乎被忽略了。导出的 WebP 图像始终具有相同的分辨率，即页面的标准尺寸。当我手动导出它时，它可以工作。我已经使用录制的宏来获取选项，FilterData因此我可以确定它们是正确的。录制的宏如下所示：

sub RecordedPageExportAsWebP
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///home/user/Documents/namecards-all.webp"
args1(1).Name = "FilterName"
args1(1).Value = "writer_webp_Export"
args1(2).Name = "FilterData"
args1(2).Value = Array(Array("Quality",0,75,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("Lossless",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelWidth",0,1000,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("PixelHeight",0,647,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalWidth",0,26455,com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("LogicalHeight",0,17116,com.sun.star.beans.PropertyState.DIRECT_VALUE))
args1(3).Name = "SelectionOnly"
args1(3).Value = false

dispatcher.executeDispatch(document, ".uno:ExportTo", "", 0, args1())


end sub

我在这里想念什么？

我正在使用以下版本的 LibreOffice：

Version: 7.4.0.3 / LibreOffice Community
Build ID: 40(Build:3)
CPU threads: 8; OS: Linux 5.19; UI render: default; VCL: gtk3
Locale: en-US (en_US.UTF-8); UI: en-US
7.4.0-3
Calc: threaded

tl;dr 我的 Normal.dotm 文件包含一个宏。但是当我在 Word 365 中打开它并基于该模板创建一个新文件或尝试以新名称保存该模板时，所有生成的文件都会删除该宏（包含零个宏）。为什么？有什么解决办法吗？P

我经过大量修改的Normal.dotm包含一个宏：

然而，任何基于它创建的文档在打开过程中都会删除这个宏：

为什么，我错过了什么？

我可以以任何我希望的格式保存基于该模板创建的文档：

• .docx -- 无宏文档，
• .docm -- 启用宏的文档，
• .dotx -- 无宏模板，
• .dotm -- 启用宏的模板

或者我可能会在 Word 中打开它，根本不保存它。没有变化，效果总是一样的——宏不存在，在打开过程中被剥离（可能）。

我可以将文件保存在我想要的任何位置（有些人建议将模板保存在特定文件夹中是必不可少的）：

• %appdata%\Microsoft\Word\STARTUP
• %appdata%\Microsoft\Templates\
• 任何其他位置

同样的效果——保存的文件中没有宏。

在比较现有Normal.dotm和保存时，Test.dotm我可以清楚地看到大约 7 kB 的大小差异。并且比较内容表明在Test.dotm.

信任中心配置似乎正确。我存储模板的所有位置都被认为是“安全的”：

当宏被禁用时，我有一个要被警告的设置：

我 99.99% 确信我的问题是因为我开始使用 Office 365 离线程序。我以前用过的 Word 2010 和 Word 2013 从来没有这样的问题。

我错过了什么或如何解决这个问题？如何使用我的宏保存模板或如何将宏添加到已保存的模板？

编辑：根据评论中的要求，这里是一个 LICECap 动画，它显示：

1. 原始模板文件有 27 kB。
2. 可以重命名任何样式，并在保存新模板后保留名称更改。
3. 原始模板包含一个宏，但基于它创建的文档没有宏。
4. 只需更改一个样式名称即可保存原始模板，仅生成 13 kB 的 .dotm 文件。
5. 保存的新模板有零个宏。

这是动画：

在 Atom 中编辑以下代码片段时，假设我的光标就在之前my_parameter：

def a_method
  first_command               my_parameter
end

我想使用一个按键来删除所有空间，但不包括任何first_command. ctrl-backspaceAtom 中的默认行为是不仅删除空格，而且删除所有first_command. （这与仅删除空格的 Sublime Text 等其他编辑器形成对比。）

实现这一目标的简单方法是什么？

首先，如果在其他地方回答，我很抱歉。我已经搜索了该站点，但找不到任何似乎可以满足我的需求的答案。我对宏完全陌生，这将是我第一次尝试实现宏。我尝试自己录制一个，但正如我来到这里清楚地表明的那样，这让我无处可去……我不知道如何编写宏/VBA。我尝试运行 Excel 的“记录宏”功能，然后根据单元格的值过滤数据，然后删除具有重复数据的行，但这不起作用。之后我运行宏时，它只是根据我在录制宏时选择的单元格的值进行过滤。

问题

第1部分：

如何在 Excel 中创建一个宏来过滤我的表格，使其仅显示所有三列（北距、东距、高程）与另一行的北距、东距和高程相同的行？

第2部分：

那么，如何使相同的宏保留数据的第一个实例，但删除包含重复的北距、东距和高程的所有行？同样，所有三个必须匹配第一个实例。如果只有一两列与第一个实例匹配，我希望它留下，因为它不是一个相同的点。

第 3 部分：

我需要宏来搜索我的整个表，并在北距、东距和高程数据与任何其他行中的这三个数据相同的每一行上执行此操作。在每种情况下，我都需要它保留与数据一起出现的第一行，但删除包含重复数据的行。

提前感谢您提供的任何帮助！我很想找到一个解决方案，让我能够快速处理我拥有的这 7000 行数据。

我希望下面的示例不会太长。我试图提供足够的数据来处理并有一个很好的样本。

示例的 Excel 文件如下所示

请看一下上面的示例。希望它将帮助一切变得有意义并有助于解决方案。（我已将其减少到只有 20 行数据，但我正在处理的文件大约有 7000 行。这就是为什么我试图找到一种比手动搜索所有重复项更有效的方法。）

背景故事（如果感兴趣/有用）

我是一家土地测量公司的 CAD 绘图员。我目前正在起草一份多个现场工作人员必须在不同时间进行的工作，这意味着他们必须将前一个工作人员的现场数据导入他们的 GPS 设备，以确保他们收集的数据与以前的工作人员不同。但是，他们在导入/导出过程中犯了一些错误，现在我有数千个具有相同北距、东距、高程和点描述但点编号不同的现场定位。 如果您查看我链接的小示例 Excel 文件，这将更有意义。

经过几天手动搜索数百行（大约 7000 行）以查找重复点并删除除第一个之外的所有实例后，我开始怀疑是否有更简单的方法。这就是把我带到这里的原因。

我想知道是否有一种方法可以在 Word 文档中找到所有尾注引用，选择它们，并使用一种样式整体格式化它们？尾注文本也是如此：查找所有尾注文本，选择，格式化样式。

我可能正在考虑这些方面的宏：如何格式化 Word 文档中的所有超链接？

谢谢！

我正在尝试编写一个宏来将悬挂缩进应用于选择中的所有段落，相对于第一行。

该宏需要处理多个不同的段落，包括未编号的段落，以及具有不同缩进的不同级别的 ListNum 段落。

Selection.ParagraphFormat.TabHangingIndent 1仅在选择相同类型的段落时才有效。

如果所选内容包含不同的段落缩进，则所选内容中所有段落的缩进将更改为与所选内容顶部的段落相同。

有没有办法在不移动段落位置的情况下缩进第一行下面的行？

我在网上找不到答案。

样本选择（黄线应缩进）：

混合选择的结果：

我正在尝试将宏作为 Outlook 中规则的一部分运行。这是我的宏：

然后我尝试将其添加为规则：

但是，当我单击“脚本”时，什么也没有出现：

我怎样才能让它运行我上面创建的宏？谢谢！