Java-Com Bridgeを使う(PowerPoint編)

例えば以下のようなSubプロシージャがある

===========================================================
Private Sub RemoveTextInShape(thisShape As Shape)
If thisShape.HasTextFrame = msoTrue Then
thisShape.TextFrame.TextRange.Text = RemoveInText(InjectCharacters(thisShape.TextFrame.TextRange.Text))
End If

If thisShape.HasTable = msoTrue Then
Dim thisRows As Rows
Set thisRows = thisShape.Table.Rows
Dim thisRow As Row
For Each thisRow In thisRows
Dim thisCells As CellRange
Set thisCells = thisRow.Cells
Dim thisCell As Cell
For Each thisCell In thisCells
RemoveTextInShape thisCell.Shape
Next
Next
End If
End Sub

===========================================================

これをJava-Com Bridgeを使用してJava流に書き直すと以下のようになる

===========================================================

public static void main(String[] args) throws Exception {
// TODO Auto-generated method stub
String openUrl = "C:\\java_test\\sample.ppt";

oPPT = new ActiveXComponent("PowerPoint.Application");

try{

oPPT.setProperty("Visible", new Variant(true));
Object oPresentations = oPPT.getProperty("Presentations").toDispatch();
Object oPresentation = Dispatch.call(oPresentations, "Open", openUrl).toDispatch();
Object oActivePresentation = oPPT.getProperty("ActivePresentation").toDispatch();
Object oSlides = oPPT.call(oActivePresentation, "Slides").toDispatch();
int totalSlides = oPPT.call(oSlides, "Count").toInt();

//Slideの配列を作成する
ArrayList<Object> thisSlides = new ArrayList<Object>();
for (int i = 1; i < totalSlides + 1; i++){

Object slideObj = oPPT.call(oActivePresentation, "Slides", new Variant(i)).toDispatch();
thisSlides.add(slideObj);
}

System.out.println("スライドの総数は " + thisSlides.size());
for(int i = 0; i < thisSlides.size(); i++){

System.out.println("Slide ID: " + oPPT.call(thisSlides.get(i), "SlideID").toInt());
Object oShape = oPPT.call(thisSlides.get(i), "Shapes").toDispatch();
int totalShapes = oPPT.call(oShape, "Count").toInt();
//System.out.println("totalShapesは " + totalShapes);

//個々のshapeに対して実行する。
for (int n = 1; n < totalShapes + 1; n++){
Object shapeObj = oPPT.call(thisSlides.get(i), "Shapes", new Variant(n)).toDispatch();
removeTextInshape(shapeObj);
}

}
Dispatch.call(oPresentation, "Save");

} catch (ComFailException e){
System.err.println(e.getMessage() + e.getHResult());
} finally {
Dispatch.call(oPPT, "Quit");
ComThread.Release();
}

}

private static ActiveXComponent oPPT;

===========================================================

要は Object slideObj = oPPT.call(oActivePresentation, "Slides", new Variant(i)).toDispatch(); をスライドの数だけループし、いちいちSlides配列を作成する必要がある。とっても面倒くさい。。

XSLでクォーテーション内に文字を入れたい時

例えばXMLで以下のような記述があったとします。
<link>
<url path="http://www.google.co.jp" name="Googleのホーム"></url>
<url path="http://www.yahoo.co.jp" name="Yahooのホーム"></url>
</link>

これにXSLを当てて動的に以下のようにしたい時
<a href="http://www.google.co.jp">Googleのホーム</a>
<a href="http://www.yahoo.co.jp">Yahooのホーム</a>

普通にやると以下のように書きます。
<xsl:template match="url">
　<a href="<xsl:value-of select="@path" />">="<xsl:value-of select="@name" /></a>
</xsl:template>

しかし、、、これでブラウズすると「文字 '< ' は、属性値内に使用できません。」とエラーになってしまいます。どうするか。。。で最終的のこんな具合に

<xsl:template match="link/url">
　<a>
<xsl:attribute name="href"><xsl:value-of select="@path" /></xsl:attribute>
<xsl:value-of select="@name" />
</a>
</xsl:template>

<xsl:attribute name>を使うと属性が作成できるようです。

PowerPointマクロで全角半角置換

Option Explicit

Function IsKatakana(strTarget As String) As Boolean
Dim strPattern
strPattern = "[ア-ンｱ-ﾝ]" ' カタカナ範囲チェック用
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp") ' 正規表現コンポーネントを利用
reg.Pattern = strPattern
IsKatakana = reg.Test(strTarget)
Set reg = Nothing
End Function

Sub ChangeKanaText2()
' スライドを取得
Dim sld As slide
For Each sld In ActiveWindow.Parent.Slides
' スライド内のシェイプオブジェクト（テキストボックス等）を取得
Dim shp
For Each shp In sld.Shapes
' シェイプが TextFrame を持つ場合のみ後続の処理を実行
If shp.HasTextFrame Then
' シェイプ（テキストボックス等）の単語を取得
Dim word
For Each word In shp.TextFrame.TextRange.Words
' 文字列の置換
If IsKatakana(word.Text) = True Then
' カタカナの場合は全角に変換
word.Text = StrConv(word.Text, vbWide)
Else
' それ以外は半角に変換
word.Text = StrConv(word.Text, vbNarrow)
End If
Next
End If
' シェイプが 表 を持つ場合（追加）
Dim myRow As Row
Dim myCell As Cell
If shp.HasTable Then
For Each myRow In shp.Table.Rows
For Each myCell In myRow.Cells
For Each word In myCell.Shape.TextFrame.TextRange.Words
If IsKatakana(word.Text) = True Then
word.Text = StrConv(word.Text, vbWide)
Else
word.Text = StrConv(word.Text, vbNarrow)
End If
Next
Next
Next
End If
Next
Next
End Sub

Javaで半角を全角に置換するメソッド

//以下ソース-----------------------------------------------


public class HankakuToZenkaku {

/** 全角英数字 */
private static String sZen = "０１２３４５６７８９"
+ "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ"
+ "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ";

/** 半角英数字 */
private static String sHan = "0123456789"
+ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";

/**
* 半角英数字->全角英数字に置換する。
* 原理は、置換対象文字列 sSrc から1文字づつ取り出して
* sHan に該当する文字があったら、その文字が何文字目にあるか取得して、sZen から同じ文字目から文字を
* 取ると、全角にすり返るという方法。
* 例)
* sSrc = "ab1";
* 1番目の文字 "a" は、sHanの36文字目なので、sZenの36文字目は、"ａ"で、置換
* 2番目の文字 "b" は、sHanの37文字目なので、sZenの37文字目は、"ｂ"で、置換
* 3番目の文字 "1" は、sHanの1文字目なので、sZenの1文字目は、"１"で、置換
* @param args
*/
public static void main(String[] args) {

String sSrc = "aABＢあ漢字-zYあ"; //変換対象文字

//対象文字数分ループ
for (int iLoop = 0; iLoop < sSrc.length(); iLoop++) {

//１．対象文字列よりiLoop番目の文字取得
//２．文字型を文字型に変換
//３．sHan(半角文字)の何番目に該当するか取得->iPosに格納
int iPos = sHan.indexOf(String.valueOf(sSrc.charAt(iLoop)));

//sHan(半角文字)に該当する文字があった場合
if(iPos > -1) {

//sSrc = sSrcの0～iLoop番目の文字列を取得
// + sZen(全角文字)からiPos番目の文字を１つ取得
// + sSrcのiLoop番目+1より後ろの文字列を取得
sSrc = sSrc.substring(0,iLoop) + sZen.charAt(iPos) + sSrc.substring(iLoop+1);
}
}

//変換後出力
System.out.println(sSrc);
}
}

Tomcat5.5でアクセスログを作成する

Tomcatでアクセスログを作成するにはServer.xmlかコンテキスト名.xmlに以下を記述するだけで良いです。

directory="logs/AccessLog"
prefix="tomcat_accs_"
suffix=".log" />

それぞれの属性についてはhttp://www.javaroad.jp/opensource/js_tomcat6.htmを参照してください。

Server.xml(CATALINA_HOME\conf)はTomcatにあるすべてのWEbアプリケーションにアクセスしたログを記録します。記述する際にはタグの間に上記のタグを追加するだけです。
それに対してコンテキスト名.xml（CATALINA_HOME\conf\Catalina\localhost）は特定のWebアプリケーションに対するログのみを記録するのに使用します。通常、コンテキスト名とWebアプリケーション名(XXXX.warなどのXXXX）は同じになっています。
記述する際にはタグの間に上記のタグを追加します。

IE7でJavascriptを実行しようとするとエラーになる問題

IE7でJavascriptを含んだHTMLを実行しようとすると以下のエラーになった。

「文字が正しくありません」
「オブジェクトを指定してください」

色々調べてみるとMSのサポートサイトを参照しろとあった。
http://support.microsoft.com/kb/934366/ja

しかしなぜか直らない。
どうもエンコーディングの問題らしいのだが。
結局以下のようにして問題は解決しました。
HTMLとあるがこれは元々はXMLにXSLをあてて作成したものなのです。その際にエンコーディングの設定をしてhtmlに出力するという記述を加えたところみごとに成功！

<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output encoding="utf-8" method="html" indent="yes" />

もちろん、XSL、JSともにUTF-8で保存してあります。

前にもJavascriptがIE7で実行できないという問題があったが、この時はJSファイルをUTF-8保存したら実行できるようになった。どうもIE7はエンコーディングに対して注意を払う必要があるらしい。

Java-Com Bridgeを使う

以下のようなVBScriptがあります。

===========================================================
'日本語から英語への翻訳の場合に、全角の英数字、記号を半角に変換するスクリプトです
Dim objWord
Set objWord = CreateObject("Word.Application")
'objWord.Visible = TrueobjWord.Documents.Open(WScript.Arguments.Item(0))
' 検索条件の指定 objWord.Selection.Find.ClearFormatting
objWord.Selection.Find.Text = "[０-９Ａ-Ｚａ-ｚ！-？「」［］　．，]"
objWord.Selection.Find.Forward = True
objWord.Selection.Find.Wrap = 1
objWord.Selection.Find.Format = False
objWord.Selection.Find.MatchCase = False
objWord.Selection.Find.MatchWholeWord = False
objWord.Selection.Find.MatchByte = False
objWord.Selection.Find.MatchAllWordForms = False
objWord.Selection.Find.MatchSoundsLike = False
objWord.Selection.Find.MatchFuzzy = False
objWord.Selection.Find.MatchWildcards = True

Do While objWord.Selection.Find.Execute
objWord.Selection.Range.CharacterWidth = 6
objWord.Selection.MoveRight
Loop

objWord.Selection.WholeStory
objWord.Selection.Font.Name = "ＭＳ Ｐゴシック"
objWord.ActiveDocument.Save
objWord.Documents.Close
objWord.Quitset objWord = nothing

===========================================================

これをJacob.jar(http://www.land-of-kain.de/docs/jacob/)を使用してJavaで実行しようとすると以下のようになります。

===============================================================
import com.jacob.com.*;
import com.jacob.activeX.*;

中略

String openUrl = "D:\Test\sample.doc";

①ActiveXComponent oWord = new ActiveXComponent("Word.Application");

try{
Object oDocuments = oWord.getProperty("Documents").toDispatch();
Object oDocument = Dispatch.call(oDocuments, "Open", openUrl).toDispatch();
②Object oSelection = oWord.getProperty("Selection").toDispatch();

//ここから半角処理
Object oFind = oWord.call(oSelection, "Find").toDispatch();
Dispatch.call(oFind, "ClearFormatting");
Dispatch.put(oFind, "Text", "[０-９Ａ-Ｚａ-ｚ！-？「」［］　．，]");
Dispatch.put(oFind, "Forward", true);
Dispatch.put(oFind, "Wrap", 1);
Dispatch.put(oFind, "Format", false);
Dispatch.put(oFind, "MatchCase", false);
Dispatch.put(oFind, "MatchWholeWord", false);
Dispatch.put(oFind, "MatchByte", false);
Dispatch.put(oFind, "MatchAllWordForms", false);
Dispatch.put(oFind, "MatchSoundsLike", false);
Dispatch.put(oFind, "MatchFuzzy", false);
Dispatch.put(oFind, "MatchWildcards", true);

while (Dispatch.call(oFind, "Execute").toBoolean()){
③Dispatch oRange = Dispatch.call(oSelection, "Range").toDispatch();
④Dispatch.put(oRange, "CharacterWidth", 6);
Dispatch.call(oSelection, "MOveRight");
}

Object oWholeStory = oWord.call(oSelection, "WholeStory");
Object oFont = Dispatch.get(oSelection, "Font").toDispatch();
Dispatch.put(oFont, "Name", "ＭＳ Ｐゴシック");
Object oActiveDocument = oWord.getProperty("ActiveDocument").toDispatch();
Dispatch.call(oActiveDocument, "Save");

} catch (ComFailException e){
System.err.println(e.getMessage() + e.getHResult());
} finally {
Dispatch.call(oWord, "Quit");
ComThread.Release();
}

使い方
MS Wordを操作するのであれば以下の2行は必ず必要です。

ActiveXComponent oWord = new ActiveXComponent("Word.Application");
Object oDocuments = oWord.getProperty("Documents").toDispatch();

次に例えばVBでobjWord.Selection.Range.CharacterWidth = 6 とある記述をJavaで書くには、まずRangeオブジェクトを作成、そこからCharacterWidthプロパティに6を入れるといった記述をする。
RangeはSelectionオブジェクトのメソッドなのでまずはSelectionオブジェクトを作成する。
Selectionオブジェクトの上はMS WordのActiveXComponentなので既に①で作成されている。

ということで手順は
1. ②でSelectionオブジェクトの作成をする。
2. ③でRangeオブジェクトを作成する。
3. ④でCharacterWidthプロパティに値をセットする。

となる。
メソッドやプロパティに値をセットする時は必ずそれを実行するためのオブジェクトを作成する必要があります。

メソッドの実行方法
Dispatch.call(オブジェクト名, メソッド名)；

プロパティの設定方法；
Dispatch.put(オブジェクト名, プロパティ名,プロパティ 値);