Search Multi-Keywords

Description

Search the paragraphs containing all the multiple keywords within a scope, and create a new page reporting the search results in the current section. Use semicolons (;) to separate the keywords, e.g. keyword1;keyword2;keyword3. There is (theoretically) no limit to the maximum number of keywords. But the speed is optimized for searching three keywords, and it slows down when more than three keywords are used. There are five opinions of scopes available, namely, “Current Page”, “Selection”, “Current Selection”, “Current Notebook”, and “All Notebooks”. It can take a long time, if search in notebook(s). Skip function is available, that is mainly for excluding pages that contain the previous search reports, to avoid duplicating the search results. Skip can take place in all scopes except the “Current Page” opinion. Change the texts as if you desired. It will skip the pages if their names contain the defined string. The report page lists the matched paragraphs and where they are found in.

Download

Author(s)

Chris K.Y. FUNG

Comments

Dave2283 - 2021-01-05

Got Onetastic solely for this, only to find out that it doesn't work, unfortunately... I use OneNote 2010, but yeah.

Despite the scope being set to 'Current Page', it basically searches other pages as well. Besides that, when testing it out, I couldn't get it to display the results...

I insanely want (and need) this Macro, but... yeah, is there any chance of it being fixed sometime? Please guys...

Minh - 2020-05-13

Doesn't work

Omer Atay - 2017-01-29

Dan:
For each $Page in CurrentSection().pages
$Texts = QueryText($Page, "#", true)
$Texts[0].value = "Hello"

Show more comments (27 more)

Dan - 2017-01-27

Hello Omer,

how do i make it do it for all pages now in the section
In each Page there is a #
The First # you find replace with "Hello"
Now do the next page ....etc

<Expression>$Text = QueryText(GetCurrentPage(), "#", true)</Expression>
<Expression>$Text[0].value = "Hello"</Expression>
I still cant figure it out :(

Omer Atay - 2017-01-26

Dan: Then you don't want to query text in current section, since you are already going through each page. You just need to query text in that page. Otherwise you are querying in the whole section for each page.

Dan - 2017-01-26

I mean to say Replace the # once in each page with another word - in the section pages

Dan - 2017-01-26

Hello Omer,
In each page in the section I just wanted to replace the first time it finds a # for example and replace it with a word "Hello"
is this possible?

Omer Atay - 2017-01-25

Dan: What is the result of running this macro? And why are you going over for each page in this macro? You are querying text in the whole section for each page in the section. If you had 20 pages in the section you will be replacing the first instance of the text 20 times, effectively replacing the first 20 instances (if you have that many instances).

Dan - 2017-01-25

Hi Omer,
I cant seem to replace the first instance in the Current Section Pages :(
Not sure what i have done wrong

<?xml version="1.0" encoding="utf-16"?>
<Macro name="Replace First Instance - Current Section publishDate="00-00-00T00:00:00.000Z" version="15">

  <Comment text="Replace the First Instance of a Search Term -Section" />

  <ForEach var="Page">
    <Array>QueryObjects("Page", GetCurrentSection())</Array>
    <Expression>$Text = QueryText(GetCurrentSection(), "#", true)</Expression>
    <Expression>$Text[0].value = "Hello"</Expression>
  </ForEach>
</Macro>

any tips thank you

Dan - 2017-01-20

oops yes - I see what you mean.
It worked now
:)
Thank you

Omer Atay - 2017-01-19

Dan: You haven't set $CurrentPage to anything. I think you mean GetCurrentPage(). Error should say the first parameter but it is incorrectly saying second.

Dan - 2017-01-19

Hello Omer,

I made the simple 2 lines

<?xml version="1.0" encoding="utf-16"?>
<Macro name="ReplaceFirst Instance" category="TEST" description="" publishDate="00-00-00T00:00:00.000Z" version="15">
<Expression>$AllInstancesOfTheWordOnetastic = QueryText($CurrentPage, "#", true)</Expression>
<Expression>$AllInstancesOfTheWordOnetastic[0].value = "Hello"</Expression>
</Macro>

it Said expected an object at second parameter :(

Omer Atay - 2017-01-18

Dan: You don't need to do ForEach as you don't want to do something for each Text object you found. Just the first one.

Dan - 2017-01-18

Hello Omer,

I couldn’t get it to work :(

  <ForEach var="Text">
    <Array>QueryObjects("Text", GetCurrentSection())</Array>
    <Expression>$Text.selected = false</Expression>
  </ForEach>
  <ForEach var="Text">
    <Array>QueryText(GetCurrentSection(), "#", true)</Array>
    <Expression>$Text[0].value = "hello"</Expression>
  </ForEach>
</Macro>

Any ideas
Thank you

Omer Atay - 2017-01-17

Dan: $AllInstancesOfTheWordOnetastic[0].value = "Hello"

Dan - 2017-01-16

Hello Omer,

How can I replace only the first time the word is found

$AllInstancesOfTheWordOnetastic = QueryText($CurrentPage, "Onetastic", true)

Replace the first instance of onetastic with "Hello" for example

Omer Atay - 2016-12-13

Dan: Just type the character: QueryText(GetCurrentSection(), "茀", true)

Dan - 2016-12-13

Hello Omer,

just a quick one in VBA ⁬ ChrW(8300)

How would i encode that so that a macro in onetastic will understand i am looking for ChrW(8300)

QueryText(GetCurrentSection(), "&#8300", true)

didn't work :(

Dan - 2016-11-12

Thank you Omer,
it worked!
Have a great weekend :)

Omer Atay - 2016-11-11

Dan: You are never actually incrementing $i. It is always 0. Also "$i + 1" is not evaluating an arithmetic expression. It is a string literal. You need something like:
$i += 1
$Text.value = "XXX" & $i

Dan - 2016-11-11

Hi Omer,

Hope you are well.
I am trying to number each time "XXX" is found to   XXX1, XXX2,XX3 etc

  <Expression>$i = 0</Expression>
  <ForEach var="Text">
    <Array>QueryObjects("Text", GetCurrentPage())</Array>
    <Expression>$Text.selected = false</Expression>
  </ForEach>
  <ForEach var="Text">
    <Array>QueryText(GetCurrentPage(), "XXX", true)</Array>
    <Expression>$Text.value = ("XXX" & "$i + 1")</Expression>
  </ForEach>
</Macro>

Is this the correct way
Thank you :)

Landon - 2016-11-09

Thank you Omer! It is working now.

Omer Atay - 2016-11-02

Landon: Sorry it seems like I have forgotten about it. This macro is now fixed. Download it again and see if you can get it to work now.

Landon - 2016-11-02

Thank you Omer for the help. Any progress on getting an update out?

Omer Atay - 2016-08-10

Landon: It seems like this macro got broken during 3.0 update. I will check it out later and update.

Landon - 2016-08-10

I'm not seeing the report page (any results). Is there a default location where it is created? Or is it a dialog box? I am using OneNote 2016 32-bit version 16.0.7030.1021. Onetastic is on version 3.1.1. Thanks for the help.

Landon - 2016-08-10

mwoffenden - 2016-05-30

Perfect! OneNote's built-in search is very buggy, so it's great to have this macro.

PunterMuniya - 2015-05-18

Thank you.

Works great for me..:)

Jeremy - 2015-04-09

Hi there. Ay chance to add functionality to allow for a replace? I left a request/comment on the search and replace macro as well. I am looking to search on multiple items like you have and to replac them with one item - like a blank pace. Thanxx for the consideration.

Jeremy

Search Multi-Keywords

Download

Related Macros

Macros by This Author

Comments

Name
	E-mail me if someone replies
Comment