文字を下付にするマクロを教えて
やりたいことは、マクロの中で ExcelファイルとWordファイルの行き来です。
具体的には、Word文章で文字の下付を走らせたいです。
Excelのシート「条件設定2」に下付けしたい文字を入力しておき、そのデータを読みとってWord文章で下付したいです。
マクロのイメージは次のように考えています。
Windows("マクロ集").Activate
Sheets("条件設定2").Select
対象文字 = Cells(17,12) …… L17セルの 「TiO2」
下付文字 = Cells(17,13) …… M17セルの 「2」
Set 対象ファイル = GetObject(, "Word.Application")
Windows(対象ファイル).Activate
上記の「対象文字」、「下付文字」データでWord文章の文字下付を行う。
お礼
ありがとうございます! よく分かりました。