> yossy_takeuchiです。
> やってみましたが、直りませんでした。残念。
最初の投稿内容を、読み返してみました。
確かに、先の投稿内容では効果ありませんでした。失礼いたしました。
>> 1.新規作成→データベース
>> 2.新規データベースを作る(データベース名は任意でよい)
>> 3.フォームを「デザイン表示でフォームを作成」
>> 4.フォームデザインで「挿入(I)→ハイパーリンク(H)」
>> 「ドキュメント」を選択し、ドキュメントのパスを既存の文書に設定。
>> 「テキスト」名は任意でよい。(例：ハイパーリンク)
>> 5.フォームに任意の名前をつけて保存する。(例：フォーム1)
>> 6.編集したフォームを閉じる
>>
>> 【動作確認】
>> 1.先ほど作成したフォーム1を開く。
>> 2.ハイパーリンクをクリックする。
OpenOffice.org 2.0.2 までの暫定回避策(案)
1.新規作成→データベース
2.新規データベースを作る(データベース名は任意でよい)
3.フォームを「デザイン表示でフォームを作成」
4.ツール>マクロ>マクロの管理>OpenOffice.org Basic
マクロの記録先の中から作成中の「フォーム1」などを選択し、
「新規作成」ボタンを押して、「Module1」などの名称でモジュールを作成
5.後述のマクロを貼り付けて、ファイル名などの必要な部分を修正し、保存
6.フォームのデザイン画面に戻って、
「ラベルフィールド」もしくは「ボタン」を配置し、右クリックして、
「コントロール」を選択し、「イベント」タブを選択
7.ラベルフィールドにイベントを割り付けるときには、「マウスボタンを離した時」
ボタンにイベントを割り当てるときには、「作動時」を選んで、項目5.で
準備しておいたマクロ名(Sub の右隣の名前)を選択し、割り当てる
8.フォームに任意の名前をつけて保存する。(例：フォーム1)
9.編集したフォームを閉じる
Sub Sample01
sURL = ConvertToURL("C:\Documents and Settings\Administrator\My
Documents\sample01.odt")
oDoc = StarDesktop.LoadComponentFromUrl(sURL, "_blank", 0, Array())
End Sub
Sub Sample02
oPS = createUnoService("com.sun.star.util.PathSettings")
sPath = oPS.getPropertyValue("Work")
sFile = ConvertFromURL(sPath) + "\" + "sample02.odt"
sURL = ConvertToURL(sFile)
oDoc = StarDesktop.LoadComponentFromUrl(sURL, "_blank", 0, Array())
End Sub
"Work" は、ツール>オプション>OpenOffice.org>パス の「マイドキュメント」の
設定内容に対応しています。
途中に、以下のような文を入れておくと、それらの変数にどんな値(文字列)が
入っているか確認できます。
Print sPath
Print sURL
Tora
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
