| |
ワードマクロで質問です。
ワードで、一つのドキュメントに行数は不確定 7列の表を複数作成しています。
3列目のセルに指定文字列が含まれていた場合、6列目のセルの末尾に
指定文字列を追加するマクロを作成するのが目的です。
リファレンスやネット等で調べて、どうにかこうにか
下記二つのマクロ候補を作成しましたが
これをどう、発展させれば、希望のマクロになるのか
詰まってしまいました。
アドバイス等、いただけないでしょうか。
Sub カーソル位置のセルの文字列の末尾に指定文字列を挿入()
Dim myRange As Range
Set myRange = Selection.Range
With myRange
.Expand Unit:=wdParagraph
.InsertAfter "【二】"
End With
Set myRange = Nothing
End Sub
Sub 表の指定セルに指定文字を追加()
'1番目の表の1番目のセルに文字列を追加
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range
.InsertAfter Text:="セル 1,1"
End With
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
