Excel VBA質問箱 IV

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

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


54992 / 76732 ←次へ | 前へ→

【26520】エクセルから、ワードに数値を代入したい
質問  row  - 05/7/7(木) 16:08 -

引用なし
パスワード
   みなさん、こんにちは。

今日は、どうしても分からない処理があったので書き込みしました。
ワードファイルを開いて、
決まった場所に、テキスト文字と 数値(0.0002など小数点が入る)を
入れて保存するという作業をしたいのです。

電波強度値(i)という配列には、既に数値が入っています。

どうしても、分からない部分は、
数値を入れるという所です。(文字列を代入するのは成功しています)

数値は変動しますので、特定する事ができません。
コードを記述しますので、
ご指摘下さい。

よろしくお願いいたします。

-------------------------------------------------------------------------
  Set oApp = CreateObject("Word.Application")
  With oApp
    .Visible = True
    With .Documents.Open(Filename:=strDesktop + "\原紙類\登録点検結果通知書_.DOC")
     .ActiveWindow.Selection.MoveDown , Count:=12
     .ActiveWindow.Selection.Moveright , Count:=40
     .ActiveWindow.Selection.Typetext Text:=局名(i)
     .ActiveWindow.Selection.MoveDown , Count:=1
     .ActiveWindow.Selection.Moveleft , Count:=7
     .ActiveWindow.Selection.Typetext Text:=市町村(i)
     .ActiveWindow.Selection.Moveright , Count:=6
     If Mid(免許番号(i), 1, 4) = "放" Then
     .ActiveWindow.Selection.Typetext Text:=Mid(免許番号(i), 1, 4)
     .ActiveWindow.Selection.TypeParagraph
     .ActiveWindow.Selection.Typetext Text:=Mid(免許番号(i), 5, 30)
     Else
     .ActiveWindow.Selection.Typetext Text:=Mid(免許番号(i), 1, 3)
     .ActiveWindow.Selection.TypeParagraph
     .ActiveWindow.Selection.Typetext Text:=Mid(免許番号(i), 4, 30)
     End If
     .ActiveWindow.Selection.MoveDown , Count:=44
     .ActiveWindow.Selection.Moveleft , Count:=8

  ' ↓数値をワードに書き込みたいのですが、どうすれば・・・?
     .ActiveWindow.Selection.Typetext Value:=電波強度値(i)
  ' ↑このコードが、間違っているのですが、どうすれば・・・?   

     ファイル名 = FORDA & "\" & 契約番号(i) & "_" & Mid(局名(i), 5, 20) & "\登録点検結果通知書_" & 局名(i) & ".DOC"
     .SaveAs Filename:=ファイル名
     .Close False
     End With
    .Quit
  End With
-------------------------------------------------------------------------
0 hits

【26520】エクセルから、ワードに数値を代入したい row 05/7/7(木) 16:08 質問
【26530】Re:エクセルから、ワードに数値を代入したい G-Luck 05/7/8(金) 0:06 発言
【26552】Re:エクセルから、ワードに数値を代入したい row 05/7/8(金) 18:25 お礼

54992 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free