Word VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
207 / 308 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【320】フォントの上下位置について akki 05/8/16(火) 11:54 質問[未読]
【326】Re:フォントの上下位置について H. C. Shinopy 05/8/17(水) 23:37 回答[未読]
【327】Re:フォントの上下位置について akki 05/8/18(木) 9:45 お礼[未読]
【320】フォントの上下位置について
質問  akki  - 05/8/16(火) 11:54 -
引用なし
パスワード
   文書内で文字位置が上がっている／下がっている文字を上付き／下付きの文字に変換するマクロを作成したいのですが、マクロの記録機能で整数範囲の位置の文字は変更することができました。

次に、小数点の範囲の文字、たとえば
font.position = 2.5
などの文字を変換したいのですが、できませんでした。
マイクロソフトのページを見るとこのコマンド（？）はread/write as Longと書いてあったのですが、これはやはり整数しか認識してくれないということでしょうか？
もしそうであれば、2.5pt等上にずれている文字を通常の上付き文字に変換する方法は他にあるのでしょうか。

よろしくお願いします！
【326】Re:フォントの上下位置について
回答  H. C. Shinopy  - 05/8/17(水) 23:37 -
引用なし
パスワード
   実際に文字の位置に「上げる」「2.5pt」を指定して、
次のマクロを実行すると、「2」と表示されます。
やはり整数しか認識しないようです。
MsgBox Selection.Font.Position

単に上がっている文字を上付き文字に変えるだけなら、
条件に「….Font.Position > 0」を指定すれば、
変換できます。

Sub myChrsFont()
　Dim myChrs As Range
　'
　Selection.HomeKey unit:=wdStory
　'
　For Each myChrs In ActiveDocument.Characters
　　If myChrs.Font.Position > 0 Then
　　　myChrs.Font.Position = 0
　　　myChrs.Font.Superscript = True
　　End If
　Next ' myChrs
　'
　MsgBox "処理が終了しました。"
End Sub
【327】Re:フォントの上下位置について
お礼  akki  - 05/8/18(木) 9:45 -
引用なし
パスワード
   H. C. Shinopy さん、

おぉ！すごいです。これで解決しました！
同様に下がっている文字を下付き文字に変えるようにも設定できました。
ありがとうございました！(*^o^*)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
207 / 308 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207139
(SS)C-BOARD v3.8 is Free