|
|
早速のレスポンス、ありがとうございます。
ブログも拝見させていただきました。
インテリセンス機能やオブジェクトブラウザは使っており、
そこで『CharStylesは使えないらしい･･･』という結論を出しました。
Private Sub SetText(Doc As InDesign.Document, Tag As String, Text As String, Optional Mode As String = "")
' Dim wStyles As CharStyles
'◆◆ cs3にはCharStylesはないらしい ◆◆
Dim wStyles As CharacterStyles
Dim wTextFrame As TextFrame
If Text = "" Then Exit Sub
'debug用にｺﾒﾝﾄ On Error GoTo TagErr
' Set wStyles = Doc.CharStyles
'◆◆ cs3にはCharStylesはないらしい ◆◆
Set wStyles = Doc.CharacterStyles
'◆◆ココです◆◆
' Set wTextFrame = Doc.XMLElements.Item(Tag).AssociatedObject.TextFrames.Item(1)
If Len(Text) <= 2 And Left(Text, 1) = "！" Then
wTextFrame.TextContents = "？" & Mid(Text, 2)
wTextFrame.Paragraphs(1).characters.Item(1).applystyle wStyles("Rev")
Else
wTextFrame.TextContents = Text
End If
'-----------------------外字処理
Dim n As Integer
For n = 1 To Len(Text)
Select Case AscW(Mid(Text, n, 1))
Case -8192 To -8192 + 1880 'UnicodeでE000から1880文字を外字とみなす
wTextFrame.Paragraphs(1).characters.Item(n).applystyle wStyles("aaa")
End Select
Next
'-----------------------外字処理
Call Choutai(wTextFrame, Tag)
Select Case Mode
Case "Ins"
wTextFrame.Paragraphs(1).applystyle wStyles("BlueUnderLine")
Case "Del"
wTextFrame.Paragraphs(1).applystyle wStyles("BlueStroke")
Case "Upd"
wTextFrame.Paragraphs(1).applystyle wStyles("BlueUnderLine")
Case ""
End Select
Exit Sub
TagErr:
Call WriteLog("Tag Error - " & Doc.Name & "/" & Tag & "/" & Text)
End Sub
上記、wStylesの『aaa』は変更させていただきました。
とりあえず、サブルーチンの部分だけ貼り付けましたが、
これ以外に必要なところはあるでしょうか？
xmlは
<Docs>
<Doc XMLF="K1.xml" Did="1">a.indd</Doc>
<Doc XMLF="K2.xml" Did="2">b.indd</Doc>
<Doc XMLF="J1.xml" Did="3">c.indd</Doc>
<Doc XMLF="J2.xml" Did="4">d.indd</Doc>
<Doc XMLF="T1.xml" Did="5">e.indd</Doc>
<Doc XMLF="M1.xml" Did="7">f.indd</Doc>
<Doc XMLF="C1.xml" Did="10">g.indd</Doc>
<Doc XMLF="C2.xml" Did="11">h.indd</Doc>
</Docs>
となっています。（a,b,c･･･も変更させてもらいました）
なにかわかることがあったらご教授ください。
よろしくお願いいたします。
|
No.345 2007/11/29(Thu) 13:34:11
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
|
