「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:0
総数:1592
現在:4


マクロにパスワードを掛けると文字が化ける

ページOpenOffice.org FAQの登録ページ
投稿者new_OOo3
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2009-09-13 14:21:29 (日)
OSWindowsXP
依存するページIssue #65372
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

お世話になっております。

下記に記すマクロにおきまして、マクロにパスワードを掛けると文字が化けます。
これまでも同様な事があったのですが、今回は「はにゃさん」のサイトからコードを
コピーしたものに1行加えただけなので、当方のコードミスでは無いと思います。
つきましては、マクロにパスワードを掛けても文字化けが生じない対策をご教示頂けます様お願いします。
[Code]

Sub rectangleshape
Dim oDoc As Object, oSheet As Object
Dim oRectangleShape As Object, oDrawpage As Object
Dim aPos As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size
  oDoc = ThisComponent
  oSheet = oDoc.getSheets().getByIndex(0)
  oDrawPage = oSheet.DrawPage
  oRectangleShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape")
  aPos.X = 400
  aPos.Y = 500
  aSize.Width = 1000
  aSize.Height = 500
  oRectangleShape.setPosition(aPos)
  oRectangleShape.setSize(aSize)
  oDrawPage.add(oRectangleShape)
  oRectangleShape.String="社外秘"  ←本行のみ付け加えました。
End Sub

IssueTrackerに登録済みのようです

M.Kamataki (2009-09-13 18:00:19 (日))

OpenOffice.orgの不具合・要望データベースであるIssueTrackerを調べてみました。以下のIssueが該当しそうです。文字列がUnicodeだと「?」にdestroyed(破壊)されるようです。

Protected macro: Unicode string would be destroyed when a macro be protected by password.
http://ja.openoffice.org/issues/show_bug.cgi?id=65372

日本語はUnicodeでしか表現できないので、不具合が直るまではパスワード保護はできませんねぇ。何度かターゲットが伸びて3.xになっているようです。回避するには「社外秘」を「Secret」とか英語にするしかないです。

Re: 文字化け

はにゃ? (2009-09-13 20:54:16 (日))

面倒な方法ですが・・・。

 oRectangleShape.String=chr(31038) & chr(22806) & chr(31192)


文字列が長かったり多い場合には文字列を外部に用意しておくなどの方法が便利ですが、それも保護したい場合には方法がありません。
http://hermione.s41.xrea.com/pukiwiki/index.php?OOobbs2%2F19

Re: 文字化け

M.Kamataki (2009-09-14 10:26:43 (月))

Basicなので、文字コードに変換しておけば確かにいけますね。今回のような例では有効な方法をご提示いただき、ありがとうございます。

IssueTracker登録済みにします

M.Kamataki (2009-09-16 11:48:59 (水))

状態などを変更。

お名前:
題名:


添付ファイル: filemojibake.ods 602件 [詳細]