[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/11/10(Fri) 18:40
投稿者名:パワフル
Eメール:
URL :
タイトル:
WORDに書き出す時
いろいろ参考にさせてもらっています。

今回質問させてもらいたいことは、

WORDに書き込む時に、文字の配置、文字サイズ、右寄せなどの処理をして保存がしたいのです。

今作っているプログラムの状態だと左よせのまま、登録されます。


  Dim wd As Object ' Word.Application
    Dim dc As Object ' Word.Document
    
    Dim i As Integer
    
    Set wd = CreateObject("Word.Application")
    
    wd.Visible = True
    
    Set dc = wd.Documents.Add
    
    wd.Selection.TypeText CStr("あいうえお")  
  wd.Selection.TypeParagraph    ' 改行


この書き込みの時に、何かWORDに対応したコードの様なものを付加できるのでしょうか。

そのコードがいろいろ展示されているページなどありますでしょうか。

お願いします。

投稿時間:2006/11/10(Fri) 18:49
投稿者名:aki
Eメール:
URL :
タイトル:
Re: WORDに書き出す時
Wordにもマクロがあります。
自分のやりたいことをマクロに記録してそのコードを参考にしたら如何でしょう。

投稿時間:2006/11/13(Mon) 15:02
投稿者名:パワフル
Eメール:
URL :
タイトル:
Re^2: WORDに書き出す時
> Wordにもマクロがあります。
> 自分のやりたいことをマクロに記録してそのコードを参考にしたら如何でしょう。

akiさん返信ありがとうございます。

マクロに書いてあるコードを使い、文字サイズを変えることができました。

そして、もう一つ聞きたいことがあるのですが、

wd.Selection.TypeParagraph←のようなコードは、使用できたのですが、

wd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter←のように=でつながっているコードはエラーになってしまいます。

どのようにすれば、=でつながっているコードが使えますか?

よろしくお願いします。

投稿時間:2006/11/13(Mon) 15:57
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: WORDに書き出す時
> wd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter←のように=でつながって
ここのサンプルのように事前バインディングを使用しないと、Word 等の定数等は、
そのままでは、VBからは使用できません。
実行時バインディングを使用するなら、定数等は、独自に宣言して下さい。

  Private Const wdAlignParagraphCenter = &H1&

投稿時間:2006/11/14(Tue) 15:42
投稿者名:パワフル
Eメール:
URL :
タイトル:
Re^4: WORDに書き出す時
花ちゃんさん返信ありがとうございます。

おかげさまで、悩みが解消されました。

返信くださったakiさん、はなちゃんさんありがとうございます。