| |
何年ぶりかに質問させてもらいます。
ご指導の程、よろしくお願いします。
win2000の
access2000で以下のようなVBA
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(Filename:=wdFile, ReadOnly:=True)
Set wdTable = wdDoc.Tables(1)
Set wdSelection = wdApp.Selection
Options.ReplaceSelection = True
wdTable.Cell(Row:=1, Column:=2).Select
With Selection
.TypeText Text:=rsa!症例番号
.MoveRight Unit:=wdCell, Count:=2
.TypeText Text:=rsa!製品名
.MoveRight Unit:=wdCell, Count:=2
.TypeText Text:=rsa!販社管理番号
End With
wdTable.Cell(Row:=2, Column:=2).Select
With wdSelection
.TypeText Text:=rsa!患者イニシャル
.MoveRight Unit:=wdCell, Count:=2
.TypeText Text:=rsa!性別
.MoveRight Unit:=wdCell, Count:=2
.TypeText Text:=rsa!年齢量
.MoveRight Unit:=wdCell, Count:=2
.TypeText Text:=rsb!MedDRAバージョン
End With
でワードの表の項目にそれぞれ差し込んでいました。
この度、パソコンを買い換えたためwin7、access2013、word2013にへんこうして
ためしてみると、セル（1、2）（2、2）の所にカーソルは移動していますが、
withの中の文字の挿入、セルの移動がうまくいきません。
これの解決策をお教え下さい。よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
