Edit - Stack Overflow

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

A macro to remove the first space

Is it possible to write a macro for the problem explained in this discussion?

https://ask.libreoffice.org/t/can-you-auto-delete-the-space-before-an-auto-corrected-word/101757

If the following sequence is found, remove the first space.

<space>bys<space>

and keep only the second one. like this...

bys<space>

In other words, if " ed " is found, then remove the first space and join it with the earlier word. If that word is "work" then the new word will be "worked".

Answer*

I visited the original post you referenced. The problem is that the author has a list of suffix that they would like to autocorrect and then join. However, because the words that need to join with suffix is vast, it would not be easy to define all combinations. In addition, it appears that autocorrect can't match starting with a space character. Here is a quick and easy macro that could do the job. Simply add more entries inside the `ReplaceList` Sub. When done, execute the `ReplaceList` sub.

 Sub ReplaceList
 	PolishReplace("bys", "byś")
 	' add more entries behind this
 End Sub
 
 Sub PolishReplace(sinFind,ドル sinRep$)
 	REM Usage: 
 	REM PolishReplace("Find string", "Replacement string")
 	REM Will search the "Find string" with at least one space in front
 	REM and replace with the Replacement string
 	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(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 = "[ ]+" & sinFind
 	args1(12).Name = "SearchItem.ReplaceString"
 	args1(12).Value = sinRep
 	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 = 1280
 	args1(18).Name = "SearchItem.Command"
 	args1(18).Value = 3
 	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
 	
 	dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())
 End Sub

Draft saved

Draft discarded

Edit Summary*

Cancel

Very close. "bys" is replaced by "byś" and a space at the beginning is removed. But the question is slightly different. The resulting word should be a valid word as per spell check! After running your macro "do bys" becomes dobyś or "test bys" becomes "testbyś" but it does not check hunspell affix or dict file. This is very important.

shantanuo
– shantanuo

2024年04月24日 09:54:36 +00:00
Commented Apr 24, 2024 at 9:54
With the way it's written now, I don't think it's possible to run the spell check on it as well because it does the search and replace in the entire document at once. The code will need to be rewritten to iterate over each replacement, and do spell check individually.

H3coder
– H3coder

2024年04月25日 10:21:56 +00:00
Commented Apr 25, 2024 at 10:21
Ok. I understand that. But I do not need to change "bys" to "byś". Just make sure that the first space before the word is removed and the second space next to word is kept. There are about 8 to 10 such words (for e.g. 'ed', 'ing', 'bys').

shantanuo
– shantanuo

2024年04月28日 05:12:04 +00:00
Commented Apr 28, 2024 at 5:12
This is working as expected. But can I use a single function instead of 2? gist.github.com/shantanuo/1ae004359c4aadfa67c514c0c9de9ba0

shantanuo
– shantanuo

2024年04月28日 05:33:39 +00:00
Commented Apr 28, 2024 at 5:33
For your case, it could be simplified to a single function. You'll have to put what you want to replace inside a list, then put the main portion inside a loop. Should be pretty simple.

H3coder
– H3coder

2024年04月29日 06:54:04 +00:00
Commented Apr 29, 2024 at 6:54

| Show 1 more comment

How to Edit

Correct minor typos or mistakes
Clarify meaning without changing it
Add related resources or links
Always respect the author’s intent
Don’t use edits to reply to the author

How to Format

create code fences with backticks ` or tildes ~
```
like so
```
add language identifier to highlight code
```python
def function(foo):
print(foo)
```
put returns between paragraphs
for linebreak add 2 spaces at end
_italic_ or **bold**
indent code by 4 spaces
backtick escapes `like _so_`
quote by placing > at start of line
to make links (use https whenever possible)

<https://example.com>

[example](https://example.com)

<a href="https://example.com">example</a>

formatting help »
answering help »

How to Tag

A tag is a keyword or label that categorizes your question with other, similar questions. Choose one or more (up to 5) tags that will help answerers to find and interpret your question.

complete the sentence: my question is about...
use tags that describe things or concepts that are essential, not incidental to your question
favor using existing popular tags
read the descriptions that appear below the tag

If your question is primarily about a topic for which you can't find a tag:

combine multiple words into single-words with hyphens (e.g. python-3.x), up to a maximum of 35 characters
creating new tags is a privilege; if you can't yet create a tag you need, then post this question without it, then ask the community to create it for you

popular tags »

CollectivesTM on Stack Overflow

A macro to remove the first space

Answer*