[SOLVED] Searching for a bookmark in MS Word

[madref]

When you are working on a windows machine you have MS Access which can 'talk' to MS Word.
And then you can also use Visual Basic for Applications and then you can do something like this

Code: [Select]

                cSQL = "SELECT * FROM qry_Overzicht_Leden WHERE LID_ID = " & ID
                Set rst = CurrentDb.OpenRecordset(cSQL)
                If rst.EOF = False Then
                    ' Document laden.
                    .Documents.Add (cSjabDir & SjabAlgemeen)
                    ' Vul de gegevens in.
                    .Selection.GoTo What:=wdGoToBookmark, Name:="bkmAan"
                    .Selection.TypeText Text:=rst!Lid_Voornaam & " " & rst!Lid_Tussenvoegsel & _
                            IIf(IsNull(rst!Lid_Tussenvoegsel) Or rst!Lid_Tussenvoegsel = "", "", " ") & _
                            IIf(IsNull(rst!Lid_Achternaam), "", rst!Lid_Achternaam)
                    .Selection.GoTo What:=wdGoToBookmark, Name:="bkmAdres"
                    .Selection.TypeText Text:=IIf(IsNull(rst!Lid_Adres), "", rst!Lid_Adres)
                    .Selection.GoTo What:=wdGoToBookmark, Name:="bkmPostcode"
                    .Selection.TypeText Text:=IIf(IsNull(rst!Lid_Postcode), "", SchrijfPostcode(rst!Lid_Postcode) & "  ") & _
                                              IIf(IsNull(rst!Lid_Woonplaats), "", Format(rst!Lid_Woonplaats, ">"))
                    .Selection.GoTo What:=wdGoToBookmark, Name:="bkmVoornaam"
                    .Selection.TypeText Text:=IIf(IsNull(rst!Lid_Voornaam), "", rst!Lid_Voornaam)
                    ' Opties in bestand aanpassen.
                    .ActiveWindow.View.type = wdPageView
                    .ActiveWindow.View.ShowBookmarks = False
                    ' Laat Word gemaximaliseerd zien.
                    .visible = True
                    .Application.WindowState = wdWindowStateMaximize
So in short: i search for a predefined bookmark and then i replace that bookmark with something from the search-query.


Is this also possible in Lazarus on a Mac?

[Phil]

http://wiki.lazarus.freepascal.org/Multiplatform_Programming_Guide#Making_do_without_Windows_COM_Automation

https://support.microsoft.com/en-us/kb/113891

[madref]

Thanks Phil.

That first part was already clear to me.

But how do i make such a script
And how to run it from within lazarus

[Phil]

But how do i make such a script
And how to run it from within lazarus

The answers to both questions are in the links I posted.

This might also be useful:

https://developer.apple.com/library/content/documentation/AppleScript/Conceptual/AppleScriptX/AppleScriptX.html

[madref]

well i am trying but i get an error of: Failed to execute .... Error 127 on the following code;

Code: Pascal  [Select][+][-]

1. SysUtils.ExecuteProcess('osascript /Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript', '', [])

And this is the script file:

Code: [Select]

Tell Application "Microsoft Word"
    Do Visual Basic "   Selection.GoTo What:=wdGoToBookmark, Name:="bkmAan""
    Do Visual Basic "   Selection.TypeText Text:=Aschwin van Loon"
end TellWhats wrong?

[rvk]

Did you try:

Code: [Select]

tell application "Microsoft Word"
  activate
  select bookmark "bkmAan" of active document
end tellDoes that jump the cursor to the bookmark?

Or even:

Code: [Select]

tell application "Microsoft Word"
  set content of text object of bookmark "bkmAan" of active document to "Aschwin van Loon"
end tell(without jumping to the bookmark)

[madref]

I did test this in the applescript manager/ide and that works
But when i try this:

Code: Pascal  [Select][+][-]

1. SysUtils.ExecuteProcess('osascript /Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript', '', []);

i get an error:
Projec ... raised exception class 'EOSError' with message:
Failed to execute "osascript /Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript", error code: 127

[rvk]

Did you try it with fpsystem like the link showed you ?
http://wiki.lazarus.freepascal.org/Multiplatform_Programming_Guide#Making_do_without_Windows_COM_Automation

And if that still doesn't work did you could try

Code: Pascal  [Select][+][-]

1. fpsystem('/Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript');

But in that case you need to give execution rights to db_scriptmsw.applescript with chmod.

[madref]

well it doesn't give an error but it also does nothing ;(

[rvk]

well it doesn't give an error but it also does nothing ;(

Which of the two methods did you try?
(I gave you two options)

What is the resultcode of fpsystem()?

Code: Pascal  [Select][+][-]

1. gReturncode := fpsystem(.......

(with both methods osascript and .applescript directly with the correct chmod-rights)

[madref]

Code: Pascal  [Select][+][-]

1.    i := fpsystem ('osascript /Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript');
2.  

Returns 256

Code: Pascal  [Select][+][-]

1.    i := fpsystem ('/Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript');
2.  

Returns 32512

[rvk]

Code: Pascal  [Select][+][-]

1.    i := fpsystem ('/Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript');
2.  

Returns 32512

And what rights did you give the db_scriptmsw.applescript file ??

[madref]

How do i do that????

[madref]

With this in a terminal window

Code: [Select]

chmod 777 "/Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript"I still get the same numbers

[rvk]

And what do you get when you execute the same commands in the terminal window???

(that way you know which is at fault...)

So:

Code: [Select]

/Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescriptand

Code: [Select]

osascript /Documenten/Lazarus/Ledenadministratie OSX/db_scriptmsw.applescript