ＶＢ参考資料　Wordに依る利用

Transcription

1 Word に依る利用 Application オブジェクト Word アプリケーションを表す Application オブジェクトには 最上位レベルのオブジェクトを取得するプロパティ及びメソッドが含まれる 例えば ActiveDocument プロパティは Document オブジェクトを取得する 使い方 Application プロパティを使用して Application オブジェクトを取得する 次の使用例は Word のユーザー名を表示する MsgBox Application.UserName 一般的なユーザーインターフェイスオブジェクト 例えば 作業中の文書を表す ActiveDocument プロパティ等のプロパティやメソッドの多くは Application オブジェクト修飾子を指定しないで使用出来る 例えば Application.ActiveDocument.PrintOut と記述する代わりに ActiveDocument.PrintOut と記述する事が出来る Application オブジェクト修飾子を指定しないで使用出来るプロパティやメソッドは グローバルで有ると看做される オブジェクトブラウザでグローバルプロパティやメソッドを表示するには クラス ボックスの先頭に有る グローバル をクリックする 解説 オートメーション ( 以前の OLE オートメーション ) を使用して 別のアプリケーションから Word を制御するには CreateObject 又は GetObject 関数を使用して Word の Application オブジェクトを取得する 次の使用例は Excel を使って Word が未だ起動されて居ない場合は Word を起動し 既存の文書を開く Set wrd = GetObject(, "Word.Application") wrd.visible = True wrd.documents.open "C: My Documents Temp.doc" Set wrd = Nothing 他のアプリケーションから Word を自動化する オートメーション機能を使用すると 他のアプリケーションのオブジェクト プロパティ 及び メソッドを参照して データを取得 編集 及び エクスポートする事が出来る 他のアプリケーションから参照出来る Application オブジェクトは オートメーションオブジェクトと呼ばれる オートメーション機能を使用して 他のアプリケーションから Word を使用出来る様にするには 先ず Word の Application オブジェクトへの参照を作成する必要が有る Visual Basic では CreateObject 又は GetObject 関数を使用して Word の Application オブジェクトへの参照を取得する 例えば Excel のプロシージャで 次のコードを記述する Dim wrd As Word.Application Set wrd = CreateObject("Word.Application") 1

2 此れで Word の Application オブジェクトがオートメーションで使用する事が出来る様に成る Word の Application オブジェクトのオブジェクト プロパティ 及び メソッドを使用すると Word を制御する事が出来る 例えば 次のコードは Word の新しい文書を作成する wrd.documents.add CreateObject 関数を使用すると Word セッションを起動出来る Application オブジェクトを参照する変数が無効に成っても オートメーションで此のセッションが閉じられる事は無い オブジェクト参照に Nothing キーワードを設定しても Word は閉じられない Word アプリケーションを閉じるには Quit メソッドを使用する 次の Excel の使用例は Word のスタートアップパスを表示する スタートアップパスの表示後 Quit メソッドを使用して Word の新しいインスタンスを閉じる Set wrd = CreateObject("Word.Application") MsgBox wrd.options.defaultfilepath(wdstartuppath) wrd.quit Document オブジェクト Document オブジェクトは 文書を表すオブジェクトで有る Document オブジェクトは Documents コレクションのメンバーで有る Documents コレクションには Word で現在開かれて居る総ての Document オブジェクトが含まれる 使用法 Documents( index ) を使用して Document オブジェクトを取得する 引数 index には文書名 又は インデックス番号を指定する 次の使用例は 変更を保存せずに Report.doc と謂う名前の文書を閉じる Documents("Report.doc").Close SaveChanges:=wdDoNotSaveChanges インデックス番号は Documents コレクションでの文書の位置を表す 次の使用例は Documents コレクション内で 1 番目の文書を選択する Documents(1).Activate 解説 ActiveDocument プロパティを使用して フォーカスの有る文書を参照する事が出来る 次の使用例は Activate メソッドを使用して doc1 と謂う名前の文書をアクティブにし 用紙を横向きに設定して 文書を印刷する Documents("doc1").Activate ActiveDocument.PageSetup.Orientation = wdorientlandscape ActiveDocument.PrintOut Document オブジェクトを使用する Visual Basic で ファイルを変更するメソッドは Document オブジェクト 又は Documents コレクションのメソッドで有る 2

3 新しい文書を作成する Documents コレクションには 開いて居る文書が総て含まれる 新しい文書を作成するには Add メソッドを使用して Document オブジェクトを Documents コレクションに追加する 次の命令は 新しい文書を作成する Documents.Add 新しい文書を作成する場合 戻り値をオブジェクト変数に格納する事が望ましい Add メソッドを使用して 新しい文書を参照する Document オブジェクトを取得する 次の使用例は Add メソッドで返された Document オブジェクトを オブジェクト変数 newdoc に格納する 其の後 必要に応じて Document オブジェクトのプロパティやメソッドを設定する newdoc を使用すると 新しい文書を簡単に制御する事が出来る Dim wrd As Word.Application Dim newdoc As Word.Document Set wrd = CreateObject("Word.Application") Set newdoc = wrd.documents.add With newdoc.content.font.name = "MS ゴシック " 文書を開く 既存の文書を開くには Documents コレクションに対して Open メソッドを使用する 次のコードは MyFolder と謂う名前のフォルダに保存されて居る MyDocument.doc と謂う名前の文書を開く Set newdoc = wrd.documents.open( "C: MyFolder MyDocument.doc" ) 新しい文書を保存する 1 つの文書に名前を付けて保存するには Document オブジェクトに対して SaveAs メソッドを使用する 次のコードは 作業中の文書に Temp.doc と謂う名前を付けて 現在のフォルダに保存する wrd.activedocument.saveas( "Temp.doc" ) 特定のドキュメントを保存するには 下記の様に記述する newdoc.saveas( "Temp.doc" ) 引数 FileName には ファイル名 又は 絶対パス ( 例えば C: Documents Temporary File.doc) 以外を指定する事は出来ない 文書を閉じる 1 つの文書を閉じるには Document オブジェクトに対して Close メソッドを使用する 次のコードは Sales.doc と謂う名前の文書を閉じて 保存する Documents("Sales.doc").Close SaveChanges:=wdSaveChangesDocuments 3

4 コレクションに対して Close メソッドを使用すると 開いて居る文書を総て閉じる事が出来る 次のコードは 此れ迄に加えた変更を保存せずに 文書を総て閉じる Documents.Close SaveChanges:=wdDoNotSaveChanges 次の使用例は 文書を閉じる前に 文書を保存するか何うかを確認するメッセージを 文書毎に表示する For Each adoc In Documents adoc.save NoPrompt:=False adoc.close Next 文書を作業の対象にする 作業中の文書を変更するには Document オブジェクトに対して Activate メソッドを使用する 次のコードは MyDocument.doc と謂う名前の開いて居る文書を 作業の対象にする Documents("MyDocument.doc").Activate 文書が開いて居るか何うかを判断する 文書が開いて居るか何うかを判断するには For Each...Next ステートメントを使用して Documents コレクションを列挙する 次の使用例は Sample.doc と謂う名前の文書が開いて居る場合は 此の文書を作業の対象とする Sample.doc が現在開いて居ない場合は 此の文書を開く For Each adoc In Documents If InStr(1, adoc.name, "sample.doc", 1) Then adoc.activate Else docfound = False Next adoc If docfound = False Then Documents.Open FileName:="C: Documents Sample.doc" 作業中の文書を参照する 文書を名前 (Documents("Sales.doc") 等 ) 又は インデックス番号で参照する代わりに ActiveDocument プロパティを使用すると 作業中の文書 ( フォーカスの有る文書 ) を参照する Document オブジェクトを取得出来る 次の使用例は 作業中の文書の名前を表示する 開いて居る文書が無い場合は メッセージを表示する If Documents.Count >= 1 Then MsgBox ActiveDocument.Name Else MsgBox " 開いて居る文書は有りません " 文書を印刷する 4

5 次の使用例は 作業中の文書の現在のページを印刷する ActiveDocument.PrintOut Range:=wdPrintCurrentPage 次の使用例は 現在のフォルダの総ての文書を印刷する.doc と謂う拡張子を持つ総てのファイルの名前を取得するには Dir 関数を使用する adoc = Dir("*.doc") While adoc <> "" Application.PrintOut FileName:=adoc adoc = Dir() Wend 次の使用例は 作業中のウィンドウの文書の最初の 3 ページを印刷する ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, From:="1", To:="3" 次の使用例は 作業中の文書のコメントを印刷する If ActiveDocument.Comments.Count >= 1 Then ActiveDocument.PrintOut Item:=wdPrintComments 次の使用例は 用紙 1 枚に付き 6 ページ分が含まれる様に設定して 作業中の文書を印刷する ActiveDocument.PrintOut PrintZoomColumn:=3, PrintZoomRow:=2 次の使用例は 作業中の文書を実際のサイズの 75% に縮小して印刷する ActiveDocument.PrintOut PrintZoomWidth:=0.75*(8.5*1440), PrintZoomHeight:=0.75*(11*1440) 次の使用例は 印刷プレビュー以外の表示モードで有る場合 作業中の文書を印刷プレビューに切り替える If Application.PrintPreview = False Then ActiveDocument.PrintPreview PrintPreview メソッドの他に PrintPreview プロパティに True 又は False を設定すると 印刷プレビューを他の表示モードに切り替える事が出来る 亦 View オブジェクトの Type プロパティに定数 wdprintpreview を設定すると 表示モードを変更する事が出来る Range オブジェクト Range オブジェクトは 文書の隣接する領域を表すオブジェクトで有る 各 Range オブジェクトは 開始文字位置 及び 終了文字位置で定義される 文書でブックマークを使用する場合と同様に Visual Basic のプロシージャでは文書の特定の部分を指定する時に Range オブジェクトを使用する 但し ブックマークとは異なり Range オブジェクトを定義するプロシージャの実行中而巳 オブジェクトが存在する 5

6 Range オブジェクトは選択範囲から独立して居る 詰まり 選択範囲を変更しなくてもオブジェクトを定義し操作出来る 亦 文書では複数の範囲を定義出来るが 各ウィンドウ枠には 1 つの選択範囲しか存在出来ない 使用法 Range メソッドを使用して 特定の開始文字位置 及び 終了文字位置で定義される Range オブジェクトを取得する 次の使用例は 作業中の文書の最初の 10 文字を参照する Range オブジェクトを取得する Set myrange = ActiveDocument.Range(Start:=0, End:=10) Range プロパティを使用して 別のオブジェクトの開始位置と終了位置で定義される Range オブジェクトを取得する Range プロパティは多くのオブジェクト ( 例えば Paragraph Bookmark Cell 等 ) で使用出来る 次の使用例は 作業中の文書の最初の段落を参照する Range オブジェクトを取得する Set arange = ActiveDocument.Paragraphs(1).Range 次の使用例は 作業中の文書の 2 番目の段落から 4 番目の段落迄を参照する Range オブジェクトを取得する Set arange = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(2).Range.Start, _ End:=ActiveDocument.Paragraphs(4).Range.End) Range オブジェクトを使用する 通常 Visual Basic を使用する場合は 文書内の領域を指定してから 其の領域に対して文字列の挿入や書式の設定等の操作を実行する 例えば 文書内の特定の領域で 単語や句を検索するマクロを作成する場合 文書内の特定の領域は Range オブジェクトで表す事が出来る Range オブジェクトが指定されると Range オブジェクトのメソッドやプロパティを適用して 指定範囲の内容を変更する事が出来る Range オブジェクトは 文書内の連続する領域を参照する 各 Range オブジェクトは 指定範囲の開始位置と終了位置で定義される 文書のブックマークと同じ様に Visual Basic プロシージャの中で Range オブジェクトを使用し 文書の特定の範囲を指定する Range オブジェクトで指定する範囲は カーソル位置でも 文書全体でも構わない 但し ブックマークとは異なり Range オブジェクトは 此れを定義するプロシージャが実行されて居る間而巳 有効で有る Start End 及び StoryType プロパティを使用すると 固有に Range オブジェクトを識別出来る Start 及び End プロパティでは Range オブジェクトの指定範囲の開始と終了の文字の位置を夫々れ設定したり 取得する事が出来る 文書の先頭の文字の位置は 0 で 其の次が 1 以降は順に続く ストーリーには 11 種類有り StoryType プロパティの WdStoryType 定数で夫々れ表される Range オブジェクトは 選択範囲とは別の物で有る 詰まり 現在の選択範囲を変更する事なく 特定の指定範囲を定義 及び 変更出来る 文書のウィンドウ枠の選択範囲は 1 つ丈だが 文書内には複数の指定範囲を定義出来る Range メソッドの使い方 Range メソッドは 指定された文書で Range オブジェクトを作成する時に使用する Document オブジェクトから使用出来る Range メソッドは 指定範囲の開始位置と終了位置が指定されると メインテキストストーリー 6

7 に有る Range オブジェクトを返す 次の使用例は Range オブジェクトを作成し 此れを MyRange に格納する Set myrange = ActiveDocument.Range(Start:=0, End:=10) MyRange は 作業中の文書の先頭の 10 文字を参照する MyRange に保存されて居る Range オブジェクトにプロパティやメソッドを適用すると Range オブジェクトが作成されて居る事が解る 次の使用例は 作業中の文書の先頭の 10 文字に太字を設定する Set myrange = ActiveDocument.Range(Start:=0, End:=10) myrange.bold = True Range オブジェクトを何度も参照する必要が有る場合は Set ステートメントを使用して Range オブジェクトを変数に格納する 但し Range オブジェクトを参照するのが 1 度丈の場合は オブジェクトを変数に格納する必要は無い コードで 1 度丈指定範囲を識別し Bold プロパティを変更しても結果は同じで有る ActiveDocument.Range(Start:=0, End:=10).Bold = True 指定範囲には ブックマークと同じ様に 複数の文字を指定する事も 文書内の特定の位置を指定する事も出来る 次の使用例では Range オブジェクトの指定範囲の開始位置と終了位置に 同じ値が指定されて居る 詰まり 指定範囲には文字列が含まれない 次の使用例は 作業中の文書の先頭に文字列を挿入する Set myrange = ActiveDocument.Range(Start:=0, End:=0) myrange.insertbefore "Hello " 此の使用例に示す様に 指定範囲の開始位置と終了位置を文字の位置の番号で定義する事が出来る Selection Bookmark 又は Range 等のオブジェクトに対して Start 及び End プロパティを使用する事も出来る 次の使用例は 2 番目の段落の先頭から 3 番目の段落の末尾迄の Range オブジェクトを作成する Set mydoc = ActiveDocument Set myrange = mydoc.range(start:=mydoc.paragraphs(2).range.start, _ End:=myDoc.Paragraphs(3).Range.End) Range プロパティの使い方 Range プロパティは Paragraph Bookmark Cell 等 様々なオブジェクトで有効で Range オブジェクトを取得する為に使用される 次の使用例は 作業中の文書の最初の段落を参照する Range オブジェクトを取得する Set myrange = ActiveDocument.Paragraphs(1).Range Range オブジェクトを取得したら 其のプロパティやメソッドを使用して Range オブジェクトを変更出来る 次の使用例は 作業中の文書の 2 番目の段落を選択する ActiveDocument.Paragraphs(2).Range.Select 同じ Range オブジェクトに複数のプロパティやメソッドを適用する必要が有る場合は With 構造を使用出来る 次の使用例は 作業中の文書の最初の段落の文字列に書式を設定する 7

8 Set myrange = ActiveDocument.Paragraphs(1).Range With myrange.bold = True.ParagraphFormat.Alignment = wdalignparagraphcenter.font.name = "Arial" Range オブジェクトを再定義する 既存の Range オブジェクトを再定義するには SetRange メソッドを使用する 次の使用例は myrange を現在の選択範囲に定義する 次に SetRange メソッドを使用して 現在の選択範囲に続く 10 文字も参照する様に myrange を再定義する Set myrange = Selection.Range myrange.setrange Start:=myRange.Start, End:=myRange.End + 10 マクロをデバッグする場合 Select メソッドを使用すると Range オブジェクトが正しい文字列の指定範囲を参照して居るか何うかを確認出来る 例えば 次の使用例は arange と謂う名前の Range オブジェクトを選択する arange オブジェクトは 作業中の文書の 2 番目 及び 3 番目の段落を参照して居る Set arange = ActiveDocument.Paragraphs(2).Range arange.setrange Start:=aRange.Start, End:=ActiveDocument.Paragraphs(3).Range.End 指定範囲を割り当てる 既存の Range オブジェクトを変数に格納する方法は 幾つか有る 此処では 2 種類の方法に付いて解説する 次の使用例の Range1 及び Range2 は Range オブジェクトを参照する 例えば 次のコードを記述すると 作業中の文書の最初の単語を Range1 に 2 番目の単語を Range2 に格納する Set Range1 = ActiveDocument.Words(1) Set Range2 = ActiveDocument.Words(2) Range オブジェクト変数を他の Range オブジェクト変数に等しく成る様に設定する 次の命令は Range2 と謂う名前の指定範囲変数が Range1 と同じ位置を表す様に設定する Set Range2 = Range1 此れで 同じ指定範囲を表す変数が 2 つ出来た事に成る Range2 の指定範囲の開始位置や終了位置 又は 指定範囲内の文字列を操作すると Range1 にも影響する 同じ様に Range1 の指定範囲や文字列を操作した場合も Range2 に影響する 次のコードを記述すると Range2.Text = Range1.Text と同じ結果が得られる 此のコードは Range1 の既定プロパティで有る Text プロパティを Range2 の既定プロパティに設定する 此の場合 オブジェクトの実際の参照先は変更されない Range2 = Range1 8

9 指定範囲 (Range2 及び Range1) の内容の文字列は同じで有っても 文書内の別の位置 又は 別の文書を指して居る事が有る Duplicate プロパティの使い方 次の使用例は Range1 と同じ指定範囲の開始位置と終了位置 及び 文字列を持つ Range2 を Range オブジェクトの複製として作成する Set Range2 = Range1.Duplicate 此の場合 Range1 の指定範囲の開始位置 又は 終了位置を変更しても Range2 には影響しない 亦 Range2 の指定範囲を変更しても Range1 には影響しない 但し 此の 2 つの指定範囲は文書内の同じ位置を指して居る為 一方の指定範囲で文字列を変更すると 他方の指定範囲内の文字列も変更されて仕舞う Section オブジェクト Section オブジェクトは 選択範囲 指定範囲 又は 文書の 1 つのセクションを表すオブジェクトで有る Section オブジェクトは Sections コレクションのメンバーで有る Sections コレクションには 選択範囲 指定範囲 又は 文書の総てのセクションが含まれる 使用法 Sections(index) を使用して 1 つの Section オブジェクトを取得する index にはインデックス番号を指定する 次の使用例は 作業中の文書の最初のセクションで左右のページ余白を設定する With ActiveDocument.Sections(1).PageSetup.LeftMargin = MillimetersToPoints(15).RightMargin = MillimetersToPoints(15) Add 又は InsertBreak メソッドを使用して 新しいセクションを文書に追加する 次の使用例は 作業中の文書の先頭に新しいセクションを追加する Set myrange = ActiveDocument.Range(Start:=0, End:=0) ActiveDocument.Sections.Add Range:=myRange myrange.insertparagraphafter 次の使用例は 選択範囲の最初の段落の上にセクション区切りを追加する Selection.Paragraphs(1).Range.InsertBreak Type:=wdSectionBreakContinuous 指定された Section オブジェクトの Headers 及び Footers プロパティは HeadersFooters オブジェクトを返す Paragraph オブジェクト Paragraph オブジェクトは 選択範囲 指定範囲 又は 文書の 1 つの段落を表すオブジェクトで有る Paragraph 9

10 オブジェクトは Paragraphs コレクションのメンバーで有る Paragraphs コレクションには 選択範囲 指定範囲 又は 文書の総ての段落が含まれる 使用法 Paragraphs(index) を使用して 1 つの Paragraph オブジェクトを取得する index にはインデックス番号を指定する 次の使用例は 作業中の文書の最初の段落を右揃えに配置する ActiveDocument.Paragraphs(1).Alignment = wdalignparagraphright Add InsertParagraph InsertParagraphAfter 又は InsertParagraphBefore メソッドを使用して 新しい空白の段落を文書に追加する 次の使用例は 選択範囲の最初の段落の前に段落記号を追加する Selection.Paragraphs.Add Range:=Selection.Paragraphs(1).Range 次の使用例も 選択範囲の最初の段落の前に段落記号を追加する Selection.Paragraphs(1).Range.InsertParagraphBefore 文書の一部を操作する Visual Basic に含まれるオブジェクトを使用する事で 文字 単語 文 段落 セクション等の文書の構成要素を変更出来る 次の表は 文書の此等の構成要素に対応するプロパティと 其のプロパティが取得するオブジェクトを示す Words(index) Characters(index) Sentences(index) Paragraphs(index) Sections(index) 式 Range Range Range Paragraph Section 取得するオブジェクト 此等のプロパティをインデックスを指定しないで使用した場合 同じ名前のコレクションオブジェクトを取得する 例えば Paragraphs プロパティでは Paragraphs コレクションオブジェクトを取得する事に成る 但し 此等のコレクション内の項目をインデックスで識別すると 表の 2 列目に表示されて居るオブジェクトを取得出来る 例えば Words(1) を指定すると Range オブジェクトを取得する Range オブジェクトを取得したら 此のオブジェクトに関連するプロパティやメソッドを使用して Range オブジェクトを変更出来る 例えば 次のコードは 選択範囲内の先頭の単語をクリップボードにコピーする Selection.Words(1).Copy Paragraphs 及び Sections コレクションのメンバーは Range オブジェクトではなく コレクションの単数形で有る 但し Range オブジェクトを取得する Range プロパティは Paragraph オブジェクト 及び Section オブジェクトの両方で使用出来る 例えば 次のコードは 作業中の文書内の先頭の段落をクリップボードにコピーする ActiveDocument.Paragraphs(1).Range.Copy 10

11 上の表に示した文書の構成要素を取得するプロパティは総て Document Selection 及び Range オブジェクトで使用出来る 次の使用例は Document Selection 及び Range オブジェクトで此等のプロパティを使用する方法を示す 次の使用例は 作業中の文書の中で 先頭の英単語を大文字に設定する ActiveDocument.Words(1).Case = wduppercase 次の使用例は 現在のセクションの下余白を 10mm に設定する Selection.Sections(1).PageSetup.BottomMargin = MillimetersToPoints(10) 次の使用例は 作業中の文書の 文字列の行間を 2 倍に設定する Content プロパティは Range オブジェクトを取得する ActiveDocument.Content.ParagraphFormat.Space2 文書の構成要素の集合を変更する 様々な構成要素の集合 ( 文字 単語 文 段落 又は セクション ) で構成されて居る文字列の指定範囲を変更するには Range オブジェクトを作成する必要が有る Range メソッドに指定範囲の開始位置 及び 終了位置を指定して Range オブジェクトを作成する 例えば 次のコードは 作業中の文書の先頭の 10 文字を参照する Range オブジェクトを作成する Set myrange = ActiveDocument.Range(Start:=0, End:=10) Range オブジェクトに対して Start 及び End プロパティを使用すると 構成要素の集合を参照する新しい Range オブジェクトを作成出来る 例えば 次のコードは 作業中の文書の先頭の 3 つの単語を参照する Range オブジェクト (myrange) を作成する Set Doc = ActiveDocument Set myrange = Doc.Range(Start:=Doc.Words(1).Start, End:=Doc.Words(3).End) 次の使用例は 2 番目の段落の先頭から 3 番目の段落の末尾迄続く Range オブジェクト (arange) を作成する Set Doc = ActiveDocument Set myrange = Doc.Range(Start:=Doc.Paragraphs(2).Range.Start, _ End:=Doc.Paragraphs(3).Range.End) Selection オブジェクトを使用する 通常 Word で文書を操作する場合は 最初に文字列を選択してから 書式の設定や 文字列の入力を行う Visual Basic の場合 文字列を変更する前に文字列を選択する必要は無い 其の代わりに 文書の特定の範囲を参照する Range オブジェクトを作成する 但し コードで選択範囲に応答したり 此れを変更する場合は Selection オブジェクトを使用する オブジェクトを選択するには Select メソッドを使用する 例えば 次のコードは 作業中の文書の先頭の単語 11

12 を選択する ActiveDocument.Words(1).Select Selection プロパティを使用して 文書のウィンドウ枠内の有効な選択範囲を参照する Selection オブジェクトを取得する 文書のウィンドウ枠には Selection オブジェクトは 1 つ丈で 有効な Selection オブジェクトも 1 つ丈で有る 例えば 次の使用例は 選択範囲内の段落の 段落書式を変更する Selection.Paragraphs.LeftIndent = MillimetersToPoints(10) 次の使用例は 選択範囲の後に はじめまして と謂う単語を挿入する Selection.InsertAfter Text:=" はじめまして " 次の使用例は 選択範囲の文字列に太字を設定する Selection.Font.Bold = True マクロ記録機能は Selection プロパティを使用するマクロを屡作成する 次の使用例は マクロ記録機能で作成された物で有る 此のマクロは 文書の先頭の 2 つの単語に太字を設定する Selection.HomeKey Unit:=wdStory Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend Selection.Font.Bold = wdtoggle 次の使用例は Selection プロパティを使用しないで同じ処理を実行する ActiveDocument.Range(Start:=0, End:=ActiveDocument.Words(2).End).Bold = True 表を使用する 表のセルに文字列を挿入する 次の使用例は 作業中の文書に含まれる最初の表の 1 番目のセルに 文字列を挿入する Cell メソッドは Cell オブジェクトを取得する Range プロパティは Range オブジェクトを取得する Delete メソッドで既存の文字列を削除し InsertAfter メソッドで セル 1,1 と謂う文字列を挿入する If ActiveDocument.Tables.Count >= 1 Then With ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Delete.InsertAfter Text:=" セル 1,1" 表の作成 文字列の挿入 書式の設定 次の使用例は 文書の先頭に 4 列 3 行の表を挿入する For Each...Next 構造を使用して 表の中の各セルを順に参照する For Each...Next 構造の中では InsertAfter メソッドを使用して表のセルに文字列 ( セル 1 セル 12

13 2 等 ) を追加する Set odoc = ActiveDocument Set otable = odoc.tables.add( _ Range:=oDoc.Range(Start:=0, End:=0), NumRows:=3, _ NumColumns:=4) icount = 1 For Each ocell In otable.range.cells ocell.range.insertafter " セル " & icount icount = icount + 1 Next ocell otable.autoformat Format:=wdTableFormatColorful2, _ ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True 表のセルから 文字列而巳 ( セル区切り記号を除く ) を取得する 次の使用例は 作業中の文書に含まれる最初の表の先頭行の内容を取得し 表示する Set otable = ActiveDocument.Tables(1) For Each acell In otable.rows(1).cells Set myrange = ActiveDocument.Range(Start:=aCell.Range.Start, _ End:=aCell.Range.End - 1) MsgBox myrange.text Next acell Set otable = ActiveDocument.Tables(1) For Each acell In otable.rows(1).cells Set myrange = acell.range myrange.moveend Unit:=wdCharacter, Count:=-1 MsgBox myrange.text Next acell 既存の文字列を表に変換する 次の使用例は 作業中の文書の先頭にタブで区切られた文字列を挿入し 其の文字列を表に変換する Set orange1 = ActiveDocument.Range(Start:=0, End:=0) orange1.insertbefore "1" & vbtab & "2" & vbtab & "3" & vbcr Set otable1 = orange1.converttotable( Separator:=Chr(9), NumRows:=1, NumColumns:=3) 表の各セルの内容を取得する 次の使用例は 文書の最初の表に含まれるセル数に等しい配列を定義する (Option Base 1 を仮定する ) For Each...Next 構造を使用して 表の各セルの内容を取得し 其の文字列を対応する配列要素に代入する If ActiveDocument.Tables.Count >= 1 Then Set otable = ActiveDocument.Tables(1) inumcells = otable.range.cells.count 13

14 ReDim acells(inumcells) i = 1 For Each ocell In otable.range.cells Set myrange = ocell.range myrange.moveend Unit:=wdCharacter, Count:=-1 acells(i) = myrange.text i = i + 1 Next ocell 作業中の文書内の総ての表を新しい文書にコピーする 次の使用例は 作業中の文書の表を新しい文書にコピーする If ActiveDocument.Tables.Count >= 1 Then Set odoc1 = ActiveDocument Set MyRange = Documents.Add.Range(Start:=0, End:=0) For Each otable In odoc1.tables otable.range.copy With MyRange.Paste.Collapse Direction:=wdCollapseEnd.InsertParagraphAfter.Collapse Direction:=wdCollapseEnd Next 作業中の文書の要素を参照する 選択されて居る段落 表 フィールド 又は 其他の文書の構成要素を参照するには Selection プロパティを使用して Selection オブジェクトを取得する Selection オブジェクトを介して 選択範囲内の総ての段落にアクセスしたり 選択範囲内の先頭の段落にアクセスする事が出来る 次の使用例は 選択範囲内の先頭の段落の回りに 罫線を設定する Selection.Paragraphs(1).Borders.Enable = True 次の使用例は 選択範囲内の総ての段落の回りに 罫線を設定する Selection.Paragraphs.Borders.Enable = True 次の使用例は 選択範囲内の最初の表の先頭行に 網掛けを設定する Selection.Tables(1).Rows(1).Shading.Texture = wdtexture10percent 選択範囲に表が含まれて居ない場合 エラーが発生する 選択範囲に表が含まれるか何うかを判断するには Count プロパティを使用する 次の使用例は 選択範囲内の最初の表の先頭行に 網掛けを設定する 14

15 If Selection.Tables.Count >= 1 Then Selection.Tables(1).Rows(1).Shading.Texture = wdtexture10percent Else MsgBox " 選択範囲の中に表は含まれて居ない " 次の使用例は 選択範囲内の各表の先頭行に 網掛けを設定する For Each...Next ループを使用して 選択範囲内の各表を順に処理する If Selection.Tables.Count >= 1 Then For Each atable In Selection.Tables atable.rows(1).shading.texture = wdtexture10percent Next atable 文字列を使用する 文書に文字列を挿入する Selection 又は Range オブジェクトの前後に文字列を挿入するには InsertAfter 又は InsertBefore メソッドを使用する 次の使用例は 作業中の文書の末尾に文字列を挿入する ActiveDocument.Content.InsertAfter Text:=" the end." 次の使用例は 選択範囲の前に文字列を挿入する Selection.InsertBefore Text:="new text " InsertBefore 又は InsertAfter メソッドを使用すると Range 又は Selection オブジェクトの選択範囲が拡張し 新しい文字列が其処に挿入される Selection 又は Range オブジェクトの選択範囲を解除して 開始位置 又は終了位置にカーソルを移動するには Collapse メソッドを使用する 文書内の文字列を選択する 文書内の項目を選択するには Select メソッドを使用する Select メソッドは Bookmark Field Range Table 等 様々なオブジェクトから使用出来る 次の使用例は 作業中の文書内の最初の表を選択する ActiveDocument.Tables(1).Select 次の使用例は 作業中の文書内の最初のフィールドを選択する ActiveDocument.Fields(1).Select 次の使用例は 作業中の文書の先頭から 4 つの段落を選択する 此処では Range メソッドを使用して 此の 4 つの段落を参照する Range オブジェクトを作成する 次に Range オブジェクトに Select メソッドを設定する Set myrange = ActiveDocument.Range( _ 15

16 Start:=ActiveDocument.Paragraphs(1).Range.Start, _ End:=ActiveDocument.Paragraphs(4).Range.End) myrange.select 文字列に書式を設定する 選択範囲に書式を設定する 次の使用例は Selection プロパティを使用して 選択されて居る文字列に文字書式 及び 段落書式を設定する 文字書式のプロパティやメソッドにアクセスするには Font プロパティを使用し 段落書式のプロパティやメソッドにアクセスするには ParagraphFormat プロパティを使用する With Selection.Font.Name = "MS ゴシック ".Size = 14.AllCaps = True With Selection.ParagraphFormat.LeftIndent = MillimetersToPoints(12).Space1 指定範囲に書式を設定する 次の使用例は 作業中の文書内で 最初の 3 つの段落を参照する Range オブジェクトを定義する Range (myrange) オブジェクトの書式設定は Font オブジェクト 及び ParagraphFormat オブジェクトのプロパティを設定して行う Set myrange = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(1).Range.Start, _ End:=ActiveDocument.Paragraphs(3).Range.End) With myrange.font.name = "MS ゴシック ".ParagraphFormat.Alignment = wdalignparagraphjustify 文字列を挿入し 文字書式及び段落書式を設定する 次の使用例は 作業中の文書の先頭に はじめに と謂う単語を追加する 先頭の段落は中央揃えに配置され 段落の後には 12mm の間隔が追加される はじめに と謂う単語には 24 ポイントの MS ゴシックフォントが設定される Set orange = ActiveDocument.Range(Start:=0, End:=0) With orange.insertafter Text:=" はじめに ".InsertParagraphAfter.Font.Name = "MS ゴシック ".Font.Size = 24 16

17 With ActiveDocument.Paragraphs(1).Alignment = wdalignparagraphcenter.spaceafter = MillimetersToPoints(12) 段落前の間隔を 12 ポイント又は 0 ポイントに切り替える 次の使用例は 選択範囲内の最初の段落の 段落前の間隔の書式を切り替える マクロで 段落前の間隔の現在の値を取得し 其の値が 12 ポイントの場合 段落前の書式を削除する SpaceBefore プロパティに 0 を設定する 段落前の間隔が 12 ポイント以外の値の場合 SpaceBefore プロパティに 12 ポイントを設定する Set oparagraph = Selection.Paragraphs(1) If oparagraph.spacebefore = 12 Then oparagraph.spacebefore = 0 Else oparagraph.spacebefore = 12 太字の書式を切り替える 次の使用例は 選択されて居る文字列の太字の書式を切り替える Selection.Font.Bold = wdtoggle 左余白を 10mm 丈増やす 次の使用例は 左余白を 10mm 丈増やす PageSetup オブジェクトには 文書の総てのページ設定属性 ( 左余白 下余白 用紙サイズ等 ) がプロパティとして用意されて居る 左余白を設定するには LeftMargin プロパティを使用する imargin = ActiveDocument.PageSetup.LeftMargin imargin = imargin + MillimetersToPoints(10) ActiveDocument.PageSetup.LeftMargin = imargin 17