« マクロインストーラーの更新 | トップページ | 【再再改良】フォルダ中のすべてのワードファイルの内容をコピペする »

2009年11月11日 (水)

【再改良】フォルダ中のすべてのワードファイルの内容をコピペする

先日、こちらのページにとんちんかんさんからいただいたご質問への回答です。

ファイル名の着色と文字サイズの変更をしました。
「copy_paste_3.dot」をダウンロード

以下、とんちんかんさん仕様のプログラムです。

基本的には、上記のテンプレートのものと同じですが、橙色文字部分だけ
とんちんかんさん用に変更しました。

310行以降のfor next文を取り出しています。

380行~420行に、フォントのサイズと色の設定があります。

コピペ2のプログラムでは、rangeオブジェクトでコピペを実行
していました。

今回のように、フォントに着色をしたりフォントのサイズを
変更したりするためのrangeオブジェクトのプロパティが
よくわかりませんでした。

結果、selectionオブジェクトを用いてご要望のことを実現しました。

とんちんかんがご指摘の通り、
selection.font.colorと
selection.font.size
を用いています。

お試しください。

310   For i = 1 To FC
         
320       With Documents.Open(FileName:=varTMP(i), Visible:=False)
330           .Content.Copy
340           .Close
350       End With
         
          'ファイル名の入力位置へカーソルを移動(文書の末尾へ)
360       Selection.Start = actDoc.Range.End - 1
370       Selection.End = actDoc.Range.End - 1
         
          'ファイル名の着色
380       With Selection
390           .Font.Color = wdColorRed
400           .Font.Size = 14
410           .TypeText Text:= "氏名管理番号 : " & varNam(i)
420       End With
         
430       Selection.TypeParagraph
440       Selection.TypeParagraph
             
          'コピー内容の貼り付け
450       Selection.Paste
         
          '最後の文書でなければ、改ページをする
460       If i <> FC Then
470           Selection.InsertBreak Type:=wdPageBreak
480       End If
         
490   Next i

|

« マクロインストーラーの更新 | トップページ | 【再再改良】フォルダ中のすべてのワードファイルの内容をコピペする »

▼ファイル統合」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/519619/46738979

この記事へのトラックバック一覧です: 【再改良】フォルダ中のすべてのワードファイルの内容をコピペする:

« マクロインストーラーの更新 | トップページ | 【再再改良】フォルダ中のすべてのワードファイルの内容をコピペする »