Word VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

181 / 886

←次へ　｜　前へ→


	【728】ワードマクロ　条件一致の際、表の指定セルに指定文字を追加

みぃ - 12/9/11(火) 22:40 -


	引用なし

	パスワード

ワードマクロで質問です。

ワードで、一つのドキュメントに行数は不確定　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

1,211 hits

▼

【728】ワードマクロ　条件一致の際、表の指定セルに指定文字を追加 みぃ 12/9/11(火) 22:40