マクロを作成する

A complicated example

私は、頻繁に、ウェブサイトからデータの行と列をコピーし、テキスト文書の表として、それらの書式を整えます。まず、私は、ウェブサイトからクリップボードへ、表をコピーします。変な書式設定とフォントを回避するために、私は、書式設定されていないテキストとして、Writerドキュメントにテキストを貼り付けます。私は、列間のタブで、テキストを再度、書式を設定します。そのため、私は、表に変換するために、Table > Convert > Text to Tableを使うことができます。

私が、テキストの書式を設定するために、マクロを記録する場合、私は、確かめるために、テキストを検査します。（私が、尋ねる2つの疑問を覚えておいて下さい）。一例として、私は、FontWeight定数グループを、OpenOffice.orgウェブサイトからコピーしました。最初の列は、定数名を示します。それぞれの名前の後に、スペースとタブが続きます。

フォントの太さは、specified/knownでありません。

DONTKNOW 50%のフォントの太さを指定します。

THIN 60%のフォントの太さを指定します。

LIGHT 75%のフォントの太さを指定します。

SEMILIGHT 90%のフォントの太さを指定します。

NORMAL 標準のフォントの太さを指定します。

SEMIBOLD 110%のフォントの太さを指定します。

BOLD 150%のフォントの太さを指定します。

ULTRABOLD 175%のフォントの太さを指定します。

BLACK 200%のフォントの太さを指定します。

私は、最初の列に数値が、2つ目の列に名前が、そして、3つの列に説明が含まれていることを望みます。適当と思われる操作は、数値が含まれていないDONTKNOWとNORMALを除いて、すべての行のために、簡単に達成されます。－しかし、私は、値が、0と100であることを知っています。それで、私は、それらを手作業で入力します。

データは、複数の方法で、片付けることができます。－それらのすべては、簡単です。最初の例では、キーストロークを使用します。 それは、カーソルが、テキストTHINの開始する行にあると想定します。

1. 記録を開始するために、Tools > Macros > Record Macroを使用します。
2. 始点を「指定する」ためのカーソルを移動するために、Ctrl+右矢印を押します。
3. タブとスペースを削除するために、Backspaceを２回押します。
4. Tabを押すと、定数名の後ろに空白がないタブが追加されます。
5. Deleteを押して、小文字のsを削除し、Sを押して大文字のSを追加します。
6. 数値の先頭へカーソルを移動するために、Ctrl+右矢印を２回押します。
7. %記号の前にカーソルを選択し、移動するために、Ctrl+Shift+右矢印を押します。
8. 選択したテキストをクリップボードにコピーするために、Ctrl+Cを押します。
9. 行の終わりまでカーソルを移動するために、Endを押します。
10. 2つの末尾のスペースを削除するために、２回Backspaceを押します。
11. カーソルを行の先頭に移動するために、Homeを押します。
12. 行の先頭に選択された数値をペーストするために、Ctrl+Vを押します。
13. また、値を貼り付けると、余分なスペースも貼り付けられました。それで、余分なスペースを削除するために、Backspaceを押します。
14. 数値と名前の間にタブを挿入するために、Tabを押します。
15. 行の先頭に移動するために、Homeを押します。
16. 次の行に移動するために、下矢印を押します。
17. マクロの記録を停止し、マクロを保存します。

マクロを記録するよりも、ステップの読み書きに時間がかかります。あなたが、それらを行うように、ゆっくり作業して、手順について考えます。実践で、これは２つ目の性質になります。

生成されたマクロは、コードと上記のステップを一致させるために、コメントのステップ番号を含むように変更されています。

LISTING 2：列の先頭へ数値をコピーします。

  sub CopyNumToCol1
  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 (2) Press Ctrl+Right Arrow to move the cursor to the start of "specifies".
  dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())
 
  rem (3) Press Backspace twice to remove the tab and the space.
  dispatcher.executeDispatch(document, ".uno:SwBackspace", "", 0, Array())
 
  rem ----------------------------------------------------------------------
  dispatcher.executeDispatch(document, ".uno:SwBackspace", "", 0, Array())
 
  rem (4) Press Tab to add the tab without the space after the constant name.
  dim args4(0) as new com.sun.star.beans.PropertyValue
  args4(0).Name = "Text"
  args4(0).Value = CHR$(9)
 
  dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args4())
 
  rem (5) Press Delete to delete the lower case s ....
  dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())
 
  rem (5) ... and then press S to add an upper case S.
  dim args6(0) as new com.sun.star.beans.PropertyValue
  args6(0).Name = "Text"
  args6(0).Value = "S"
 
  dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args6())
 
  rem (6) Press Ctrl+Right Arrow twice to move the cursor to the number.
  dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())
 
  rem ----------------------------------------------------------------------
  dispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())
 
  rem (7) Press Ctrl+Shift+Right Arrow to select the number.
  dispatcher.executeDispatch(document, ".uno:WordRightSel", "", 0, Array())
 
  rem (8) Press Ctrl+C to copy the selected text to the clipboard.
  dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
 
  rem (9) Press End to move the cursor to the end of the line.
  dispatcher.executeDispatch(document, ".uno:GoToEndOfLine", "", 0, Array())
 
  rem (10) Press Backspace twice to remove the two trailing spaces.
  dispatcher.executeDispatch(document, ".uno:SwBackspace", "", 0, Array())
 
  rem ----------------------------------------------------------------------
  dispatcher.executeDispatch(document, ".uno:SwBackspace", "", 0, Array())
 
  rem (11) Press Home to move the cursor to the start of the line.
  dispatcher.executeDispatch(document, ".uno:GoToStartOfLine", "", 0, Array())
 
  rem (12) Press Ctrl+V to paste the selected number to the start of the line.
  dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
 
  rem (13) Press Backspace to remove the extra space.
  dispatcher.executeDispatch(document, ".uno:SwBackspace", "", 0, Array())
 
  rem (14) Press Tab to insert a tab between the number and the name.
  dim args17(0) as new com.sun.star.beans.PropertyValue
  args17(0).Name = "Text"
  args17(0).Value = CHR$(9)
 
  dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args17())
 
  rem (15) Press Home to move to the start of the line.
  dispatcher.executeDispatch(document, ".uno:GoToStartOfLine", "", 0, Array())
 
  rem (16) Press down arrow to move to the next line.
  dim args19(1) as new com.sun.star.beans.PropertyValue
  args19(0).Name = "Count"
  args19(0).Value = 1
  args19(1).Name = "Select"
  args19(1).Value = false
 
  dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args19())
  end sub

カーソル動作は、（検索とは対照的に）すべての操作に使用されます。DONTKNOW行で実行する場合、単語の重みが、行の前に移動ます。そして、最初の"The"は、"She"に変更されます。これは、完璧ではありませんが、私は、行でマクロを実行してはいけませんでした。それには、適切なフォーマットがありませんでした。;私は、手作業でこれらを行う必要があります。

マクロをすばやく実行する

Sub Main
   CopyNumToCol1
 End Sub

原文「Sometimes the macro recorder fails」

OpenOffice.orgの内部を理解することは、マクロ・レコーダーが頻繁に失敗する方法と理由を理解するのに役立ちます。主な犯人は、ディスパッチ・フレームワークとの関連づけとマクロ・レコーダーとの関係です。

ディスパッチ・フレームワーク

マクロ・レコーダーは、どのように、ディスパッチ・フレームワークを使用するのか

dispatcher.executeDispatch(document, ".uno:InsertObject", "", 0, Array()) 

rem dispatcher.executeDispatch(document, ".uno:OptionsTreeDialog", "", 0, Array()) 

他のオプション