A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんにちは。
なるべく、Normal.Dot に登録してください。Alt + F11 で、VBEditor を開き、挿入--標準モジュールを設けて、以下を貼り付けて、一旦、Word を閉じてください。
開けたら、マウスの右メニューに「テキスト逆転」という名称で登録されているはずですから、確認してください。
使い方:
1,2,3,4
とあったら、マウスで選択して、右クリック--「テキスト逆転」をクリックします。
このマクロは、半角空白があると、一旦、取り去られます。再び戻す段で、コンマ+半角空白が入ります。半角空白が不要なら、以下にコメントが書かれている場所を調整してください。
コンマのないものは、何も起こりません。また、「1,2,3,4と書いたところを」とまで選択してしまったら、「4と書いたところを, 3, 2, 1」となりますから、ご注意ください。失敗したら、Ctrl + Z として戻せばよいです。
'------------------------------------------
'標準モジュール
Sub AutoOpen()
On Error Resume Next
With Application.CommandBars("TEXT")
.Controls("テキスト逆転").Delete
End With
On Error GoTo 0
With Application.CommandBars("TEXT").Controls.Add _
(Type:=msoControlButton, Temporary:=True)
.BeginGroup = False
.Caption = "テキスト逆転"
.OnAction = "ConverseText"
End With
End Sub
Sub ConverseText()
Dim r As Range
Dim sData As String
Dim i As Integer
Dim j As Integer
Dim ar As Variant
Dim arT As Variant
Dim crFlg As Integer
With Selection
sData = ""
crFlg = 0
Set r = Selection.Range
sData = Trim(r.Text)
If InStr(sData, vbCr) > 0 Then
sData = Replace(sData, vbCr, "")
crFlg = 1
End If
If Len(sData) - Len(Replace(sData, ",", "")) > 0 Then
ar = Split(sData, ",")
arT = ar
For i = UBound(ar) To LBound(ar) Step -1
arT(j) = Trim(ar(i))
j = j + 1
Next i
sData = Join(arT, ", ")
r.Text = sData & String(crFlg, vbCr)
End If
End With
End Sub
No.2
- 回答日時:
Mac用?
エクセルなら
データ→区切り位置
で","を区切り文字に指定して分割転記
↓
セル範囲を降順でソート
↓
=A1&","&B1&","&・・・・
のように2,"を挟みながら文字列を結合
とできます。
Win用のエクセルで試してますのでMacで出来るかは
不明です。
VBAなら配列に格納して逆から文字列を取り出して行って
蓄積、というのもできます。
この回答への補足
早速ご教示有り難うございます。
説明不足のところを補わせていただきます。
Mac OS10.4, office 2004
Wordで、文章中に有る数値を、
123, 456, 789と書いたのを
789, 456, 123と何か操作で出来る方法はないかと悩んでおります。
具体的には、本来数値の大きい順位書くべきところを小さい順に書いてしまいました。
よろしくお願い致します。
No.1
- 回答日時:
1,2,3,4と書いたところを4,3,2,1と逆にする事は出来るのでしょうか。
1,2,3,4と書かれた複数箇所を4,3,2,1にするなら、編集の置換で可能です。
1,2,3 や 5,6 など不特定の部分を直すと言う意味でしたら、その様に変換するプログラムを作成すれば可能ですが、普通の方には出来ないと思います。
この回答への補足
早速ご教示有り難うございます。
説明不足のところを補わせていただきます。
Mac OS10.4, office 2004
Wordで、文章中に有る数値を、
123, 456, 789と書いたのを
789, 456, 123と何か操作で出来る方法はないかと悩んでおります。
具体的には、本来数値の大きい順位書くべきところを小さい順に書いてしまいました。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
txtはフォント,サイズ関係ない...
-
office365 のアプリについて
-
txtはおそらく,フォントやサイ...
-
txtって、ページの概念なくなり...
-
ワードで途中のページからペー...
-
http://oshiete.goo.ne.jp/qa/1...
-
パワーワードとは?
-
テキストボックスの文字列を上...
-
再起動が必要です
-
ワードが白と黒が反転してしま...
-
フォントについて フォントは購...
-
42×34でレイアウト設定して文字...
-
ワードの文字の大きさについて
-
ワードの保存について
-
どのフォントを使用しているの?
-
ワードやエクセルのリボンについて
-
「niger fk」 ↑外国人にこの文...
-
エクスプローラーについて。
-
ワードでルビを振ると「単語が...
-
ワードでプリンターがA4までな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
http://oshiete.goo.ne.jp/qa/1...
-
フォントについて フォントは購...
-
ワードの文字の大きさについて
-
どのフォントを使用しているの?
-
ワードが白と黒が反転してしま...
-
ワード レイアウトの崩れ
-
ワードやエクセルのリボンについて
-
ワードの保存について
-
一番最初にワード開いた時文字...
-
ワード PDF化した際、背景の...
-
ワードでルビを振ると「単語が...
-
再起動が必要です
-
42×34でレイアウト設定して文字...
-
ワードってスマホから見ると、...
-
最近MacBookに変えました。 マ...
-
Office2012の起動が遅い
-
ワードで大量の図形を一括でグ...
-
A4サイズ横位置というのは ワー...
-
参照用数字配列がいつの間か変...
-
MicrosoftのOfficeに代わるソフ...
おすすめ情報