AFormAut : Field.TextFont プロパティ

TOP > AFormAut > AFormAut : Field.TextFont プロパティ

説明

テキストフィールド、コンボボックス、リストボックス、またはボタンに配置するテキストのフォントを示します。

形式

[ 取得 / 設定 ] String

設定又は戻り値

設定、又は取得可能なフォント

HeiseiMin-W3-UniJIS-UCS2-H (平成明朝)
HeiseiKakuGo-W5-UniJIS-UCS2-H (平成角ゴシック)
Courier
Courier-Bold
Courier-Oblique
Courier-BoldOblique
Helvetica
Helvetica-Bold
Helvetica-Oblique
Helvetica-BoldOblique
Symbol
Times-Roman
Times-Bold
Times-Italic
Times-BoldItalic
ZapfDingbats

フォーム機能で使用可能な日本語フォントは、平成明朝、平成角ゴシックのみです。

"平成明朝" では無く "HeiseiMin-W3-UniJIS-UCS2-H" と指定します。

動作するバージョン

Adobe Acrobat	結果	備考
4	△	Acrobat 4.0 ※Windows 98SE + Excel 2000 *1
5	△	Acrobat 5.0.5 + Excel 2003 *1
6	△	Acrobat 6.0.6 Pro + Excel 2003 *1
7	OK	Acrobat 7.1.4 Pro + Excel 2003 *2
8	NO	Acrobat 8.3.1 Pro + Excel 2003 ※当Acrobatバージョンでは全面的に不可
9	NO	Acrobat 9.5.2 Extended + Excel 2003 ※当Acrobatバージョンでは全面的に不可
10	OK	Acrobat X (10.1.4) Extended + Excel 2003
11	OK	Acrobat XI (10.0) Extended + Excel 2003

OK ：正常処理する。
NO ：動作しない。又は実行時にエラーになる。
*1 ：「PDF のバージョン」によっては正常処理出来ない場合がある。
詳細は下の注意を参照ください。
*2 : 処理前のレジストリに以下を追加する必要があります。
[HKEY_CURRENT_USER¥Software¥Adobe¥Adobe Acrobat¥7.0¥AVAlert]
[HKEY_CURRENT_USER¥Software¥Adobe¥Adobe Acrobat¥7.0¥AVAlert¥cCheckbox]
"idocNewerVersionWarning"=dword:00000001

サンプル：ExcelのVBA

説明：PDFファイルの各ページにヘッダーを追加する。
F8キーでステップ実行しながら動作確認します。
事前に参照設定(AFormAutの追加版) が必要です。

変数の宣言 Integer は Long でご使用ください。

001 Option Explicit
002 
003 Sub AFormAut_Field_TextFont() 
004 On Error GoTo Err_AFormAut_Field_TextFont:
005 
006     Dim i               As Integer 
007     Dim iPageNum        As Integer 
008     Dim bRet            As Boolean 
009     Dim bEnd            As Boolean 
010     Dim sFilePath_new   As String 
011     Dim objAFormApp     As AFORMAUTLib.AFormApp 
012     Dim objAFormFields  As AFORMAUTLib.Fields 
013     Dim objAFormField   As AFORMAUTLib.Field 
014       
015     '初期値 
016     Const CON_FILEPATH = "c:¥work¥sample.pdf" 
017     bEnd = True 
018       
019     'Acrobatオブジェクトの定義＆作成 
020      
021     'Acrobat 4,5,6 の時 
022 '    Dim objAcroApp    As Acrobat.CAcroApp 
023 '    Dim objAcroAVDoc  As Acrobat.CAcroAVDoc 
024 '    Dim objAcroPDDoc  As Acrobat.CAcroPDDoc 
025 '    Dim objAcroPDPage As Acrobat.CAcroPDPage 
026 '    Dim objAcroPoint  As Acrobat.CAcroPoint 
027 '    Set objAcroApp   = CreateObject("AcroExch.App") 
028 '    Set objAcroAVDoc = CreateObject("AcroExch.AVDoc") 
029 '    Set objAcroPDDoc = CreateObject("AcroExch.PDDoc") 
030       
031     'Acrobat 7,8,9,10,11 の時 
032     Dim objAcroApp      As New Acrobat.AcroApp 
033     Dim objAcroAVDoc    As New Acrobat.AcroAVDoc 
034     Dim objAcroPDDoc    As New Acrobat.AcroPDDoc 
035     Dim objAcroPDPage   As Acrobat.AcroPDPage 
036     Dim objAcroPoint    As Acrobat.AcroPoint 
037       
038     '※CreateObject("AFormAut.App")のエラー 
039     '※[429 ActiveXコンポーネントはオブジェクトを作成できません。] 
040     '※回避用 / メモリにAcrobatを強制ロードさせる 
041     objAcroApp.CloseAllDocs 
042      
043     '処理対象のPDFファイルを開く 
044     bRet = objAcroAVDoc.Open(CON_FILEPATH, "") 
045       
046     If bRet = False Then 
047         MsgBox "AVDocオブジェクトはOpen出来ません", _ 
048                 vbOKOnly + vbCritical, "処理エラー" 
049         bEnd = False 
050         GoTo Skip_AFormAut_Field_TextFont: 
051     End If 
052      
053     Set objAcroPDDoc = objAcroAVDoc.GetPDDoc 
054     iPageNum = objAcroPDDoc.GetNumPages 
055     Set objAFormApp = CreateObject("AFormAut.App") 
056     Set objAFormFields = objAFormApp.Fields 
057       
058     For i = 0 To iPageNum ― 1 
059      
060         'PDFページサイズを取得 
061         Set objAcroPDPage = objAcroPDDoc.AcquirePage(i) 
062         Set objAcroPoint = objAcroPDPage.GetSize 
063           
064         '指定ページにヘッダー用のテキストフィールドを追加 
065         Set objAFormField = _ 
066             objAFormFields.Add("Header" & (i + 1), "text", _ 
067                 i, (objAcroPoint.x / 2 ― 100), _ 
068                 (objAcroPoint.y ― 15), _ 
069                 (objAcroPoint.x / 2 + 100), _ 
070                 (objAcroPoint.y ― 35)) 
071           
072         'テキストフィールドの各種設定 
073         With objAFormField 
074             .SetBackgroundColor "RGB", 1, 1, 1, 0 
075             .Alignment = "center" 
076             .TextFont = "HeiseiMin-W3-UniJIS-UCS2-H" 
077             .Value = "Header " & Now() '表示する文字 
078             .IsReadOnly = True  '読み込み専用 
079             .IsHidden = False   '表示 
080         End With 
081           
082         '設定後に開放 
083         Set objAFormField = Nothing 
084          
085     Next 
086       
087     'PDFファイルを別名で保存 
088     sFilePath_new = Replace(CON_FILEPATH, ".pdf", "_new.pdf") 
089     bRet = objAcroPDDoc.Save(1, sFilePath_new) 
090     If bRet = False Then 
091         MsgBox "PDFファイルへ保存出来ませんでした", _ 
092             vbOKOnly + vbCritical, "エラー" 
093         bEnd = False 
094     End If 
095       
096     'PDFファイルを閉じる 
097     bRet = objAcroAVDoc.Close(False) 
098     If bRet = False Then 
099         MsgBox "AVDocオブジェクトはClose出来ませんでした", _ 
100                 vbOKOnly + vbCritical, "処理エラー" 
101         bEnd = False 
102     End If 
103       
104 Skip_AFormAut_Field_TextFont: 
105 On Error Resume Next 
106     '変更しないで閉じます。 
107     bRet = objAcroAVDoc.Close(False) 
108       
109     'Acrobatアプリケーションの終了 
110     objAcroApp.Hide 
111     objAcroApp.Exit 
112      
113     'オブジェクトの開放 
114     Set objAFormFields = Nothing 
115     Set objAFormApp = Nothing 
116     Set objAcroPDPage = Nothing 
117     Set objAcroPoint = Nothing 
118     Set objAcroPDDoc = Nothing 
119     Set objAcroAVDoc = Nothing 
120     Set objAcroApp = Nothing 
121       
122     If bEnd = True Then 
123         MsgBox "処理は正常に終了しました。", _ 
124             vbOKOnly + vbInformation, "正常終了" 
125     End If 
126      
127     Exit Sub 
128       
129 '実行エラー(Runtime Error) 
130 Err_AFormAut_Field_TextFont: 
131     MsgBox Err.Number & vbCrLf & Err.Description, _ 
132             vbOKOnly + vbCritical, "実行時のエラー" 
133     bEnd = False 
134     GoTo Skip_AFormAut_Field_TextFont: 
135 End Sub

　Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
　

実行結果

Acrobat 7.1.4 実行時の結果

備考

特に無し。

注意

他の日本語フォントが既に PDFファイルに組み込まれていても使用は出来ません。
MS-Gothic ： MS ゴシック
MS-Mincho ： MS 明朝
MS-PGothic ： MS Pゴシック
MS-PMincho ： MS P明朝
Field.Textfont = "MS-Mincho"
を事項すると実行エラー(Runtime Error) となる。
-2147467259 オートメーションエラーです。エラーと特定できません
更にこの後で強制的に AVDoc.close メソッドを実行すると、
以下が限りなく表示され、VBAが終了しなくなる。
別のプログラムでOLEの操作が完了するまで待機を続けます。
全OLEを実行する前に
objAcroApp.CloseAllDocs
で強制的にAcrobat アプリケーションをメモリ上にロードしないと
Set objAFormApp = CreateObject("AFormAut.App")
で実行エラー（ランタイムエラー）が発生する場合があります。
429 ActiveXコンポーネントはオブジェクトを作成できません。

動作確認の環境

Acrobat 4.0 + Office 2000
+ Windows98SE( + WindowsUpdate)
Acrobat 5.0.5 + Office 2003( + SP3)
+ WindowsXP Pro( + SP3 + WindowsUpdate)
Acrobat 6.0.6 Pro + Office 2003( + SP3)
+ WindowsXP Pro( + SP3 + WindowsUpdate)
Acrobat 7.1.4 Pro + Office 2003( + SP3)
+ WindowsXP Pro( + SP2 + WindowsUpdate)
Acrobat 8.3.1 Pro + Office 2003( + SP3)
+ WindowsXP Pro( + SP3 + WindowsUpdate)
Acrobat 9.5.2 Extended + Office 2003( + SP3)
+ WindowsXP Pro( + SP3 + WindowsUpdate)
Acrobat X (10.1.4) Extended + Office 2003( + SP3)
+ WindowsXP Pro( + SP3 + WindowsUpdate)
Acrobat XI (11.0) Extended + Office 2003( + SP3)
+ WindowsXP Pro( + SP3 + WindowsUpdate)

Adobe Web 解説 URL(英語)

v10.0

http://livedocs.adobe.com/acrobat_sdk/10/Acrobat10_HTMLHelp/IAC_API_FormsIntro.107.37.html

＜戻る＞

PDF