Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
99 / 308 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【588】VBでワードの書式を設定したい みかん 08/9/9(火) 9:12 質問[未読]
【589】Re:VBでワードの書式を設定したい りる 08/9/12(金) 15:28 回答[未読]
【590】Re:VBでワードの書式を設定したい みかん 08/9/12(金) 17:26 お礼[未読]
【588】VBでワードの書式を設定したい
質問  みかん  - 08/9/9(火) 9:12 -
引用なし
パスワード
   VB6.0でワードファイルにデータを出力するツールを作成しています。
ワードファイルには、セルを作成しており、
ワードだと、[書式]-[段落]-[インデントと行間隔]の行間の設定を
VBだとどうやっていいのかわかりません。
#行間：固定値
#間隔：7pt
#に設定したい。

ワードのマクロを取って上記処理をやってみたのですが、
そうすると、セル以外の行まで行間隔が7ptになってしまいました。

ご存知の方教えてください。
よろしくお願い致します。
【589】Re:VBでワードの書式を設定したい
回答  りる  - 08/9/12(金) 15:28 -
引用なし
パスワード
   みかん さん、こんにちは。

>VB6.0でワードファイルにデータを出力するツールを作成しています。
>ワードファイルには、セルを作成しており、
>ワードだと、[書式]-[段落]-[インデントと行間隔]の行間の設定を
>VBだとどうやっていいのかわかりません。
>#行間：固定値
>#間隔：7pt
>#に設定したい。

アクティブな文書の一つ目の表の段落書式に＃の条件を適用します。
Sub Macro1()
　 '段落書式＝＞ParagraphFormat
　 With ActiveDocument.Tables(1).Range.ParagraphFormat
　　　.LineSpacingRule = wdLineSpaceExactly
　　　.LineSpacing = 7
　 End With
End Sub

です。お試しください。
【590】Re:VBでワードの書式を設定したい
お礼  みかん  - 08/9/12(金) 17:26 -
引用なし
パスワード
   りるさん

教えていただいてありがとうございました。
本当に困っていたので助かりました。
今後ともよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
99 / 308 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207162
(SS)C-BOARD v3.8 is Free