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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードで複数ページを縦書き2...
-
http://oshiete.goo.ne.jp/qa/1...
-
我慢の左上に文字が表示される現象
-
ワード 校閲 編集
-
ワード PDF化した際、背景の...
-
ワード レイアウトの崩れ
-
パソコンで、請求書の入力する...
-
禁則処理しましたが、文字の大...
-
chatgptで、2000000トークンと...
-
office365 のアプリについて
-
テキストボックスの文字列を上...
-
ワードの保存について
-
ワードが白と黒が反転してしま...
-
ワードでフリガナの付け方
-
txtってパソコンでも横書きに表...
-
ワードで途中のページからペー...
-
txtって、ページの概念なくなり...
-
フォントについて フォントは購...
-
「niger fk」 ↑外国人にこの文...
-
ワードでルビを振ると「単語が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
http://oshiete.goo.ne.jp/qa/1...
-
テキストボックスの文字列を上...
-
txtって、ページの概念なくなり...
-
txtはフォント,サイズ関係ない...
-
ワードでフリガナの付け方
-
office365 のアプリについて
-
ワードが白と黒が反転してしま...
-
パワーワードとは?
-
txtはおそらく,フォントやサイ...
-
ワードで途中のページからペー...
-
ワード PDF化した際、背景の...
-
42×34でレイアウト設定して文字...
-
ワードの文字の大きさについて
-
ワードの保存について
-
ワード レイアウトの崩れ
-
ワードってスマホから見ると、...
-
Office2012の起動が遅い
-
どのフォントを使用しているの?
-
A4サイズ横位置というのは ワー...
-
フォントについて フォントは購...
おすすめ情報