In Writer 7.5, is there yet a method to show (not just give number) all find-all results?
Like you can in Calc, or even as Notepad++?
Thank you.
Do you want a list of same words?
Or do you want a list of sentences, paragraphs, or a list of character numbers, or line numbers? In the writer there is not same references like there are in Calc…
The
Edit - Find - Find All
will show you the results.
1 Like
Texts found by a F&R search can’t be identified in the clear way as it can be done in Calc - but there only on the cell level, and never in detail inside of cells.
Therefore the cases (Writer / Calc) aren’t comparable.
If you are fond of macro programming, you may get something roughly meeting your intentions by user code automatically creating a bookmark for every finding. Don’t miss to also program the automatic removal.
Maybe there is a confusion with the field Statistics at the page footer seen in your first screenshot. This is the Page Count field (don’t know why with a different name).
Just press Ctrl+F9 to toggle to the actual result.
Was in the mood of proghramming a bit.
Code in Basic:
Sub autoBookmarkWithGroupIdEverySingleSelectedTextRange(Optional pDoc)
If IsMissing(pDoc) Then pDoc = ThisComponent
groupID = Format(Now(), "YYYYMMDDHHMMSS")
cSel = pDoc.CurrentSelection
u = cSel.Count - 1
For j = 0 To u
j_tr = cSel(j)
If j_tr.String<>"" Then createAndInsertFindingBookmark(pDoc, j_tr, groupID & "_" & j)
Next j
End Sub
Sub createAndInsertFindingBookmark(pDoc, pTextRange, nameStamp As String)'_tr, groupID)
newBm = pDoc.createInstance("com.sun.star.text.Bookmark")
newBm.Name = nameStamp
cText = pTextRange.Text
insCur = cText.createTextCursorByRange(pTextRange)
cText.insertTextContent(insCur, newBm, True)
End Sub
Sub removeBookmarkGroup()
significantLeftOfName = InputBox("Namestart = ", "Please Enter!", Chr(11))
cDoc = ThisComponent
cSel = cDoc.CurrentSelection(0)
bms = cDoc.Bookmarks
u = bms.Count - 1
For j = u To 0 Step -1
j_bm = bms(j)
j_name = j_bm.Name
If Instr(j_name, significantLeftOfName)=1 Then j_bm.dispose()
Next j
End Sub
Example file:
disask93408autoBookmarkWithGroupId.odt (62.2 KB)