| |
みなさん、こんにちは。
今日は、どうしても分からない処理があったので書き込みしました。
ワードファイルを開いて、
決まった場所に、テキスト文字と 数値（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
-------------------------------------------------------------------------
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
