
No.1ベストアンサー
- 回答日時:
VC6にはそういった機能がないので マクロで実現といった具合になりそうですよ
VC6のサンプルマクロに CommentOutといったものがあるので参照してみましょう
以下はサンプルマクロを参照して作成したものです
Sub myMacro1()
dim ss
dim StartLine, EndLine
' 選択範囲の行番号の取得
startLine = ActiveDocument.Selection.TopLine
EndLine = ActiveDocument.Selection.BottomLine
for n = StartLine to EndLine
' 選択範囲の単一行の選択
ActiveDocument.Selection.GoToLine n
ActiveDocument.Selection.SelectLine
' 選択行を取得
ss = ActiveDocument.Selection
' コメント位置を確認
nIndex = InStr( ss, "//" )
'MsgBox ss & nIndex
sLeft = ""
if nIndex > 1 then
' コメント位置が行頭でなければ左側を取得
sLeft = Left( ss, nIndex - 1 )
end if
if nIndex > 0 then
' コメントの右側を取得
ss = Mid( ss, nIndex + 2 )
end if
if nIndex = 0 then
' コメントでなければコメント化
sLeft = Left( ss, InStr( ss, Trim(ss) ) - 1 )
ss = "//" & Trim( ss )
end if
'MsgBox sLeft & vbcrlf & ss
' 選択行の更新
ActiveDocument.Selection = sLeft & ss
next
End Sub
# インデントに全角スペースを使っています
ご教授ありがとうございます。
(返答が大変遅れてしまい、すみませんでした。)
初めてマクロを使ってできました!
範囲を指定して、
「//」がない行には、「//」を先頭に追加し
「//」がある行には、「//」を削除すること
が確認できました。
ありがとうございました。
>VC6のサンプルマクロに CommentOutといったものがあるので参照してみましょう。
すみません、上記は何を示しているのでしょうか。
今回、私の実行した方法は、メニューバーの「ツール」⇒「マクロ」で
「マクロ」ダイアログボックスが出現するので、
その中にある「編集」ボタンを押して、
マクロ名「myMacro1」と教えていただいたコードを記入しました。
このマクロ実行したいときは、
コメントアウトしたい範囲を選択してから、
先ほどの「マクロ」ダイアログボックスで実行したいマクロ名を
選択して「実行」ボタンを押してできました。
(分かっている人にはこんなことわざわざ書くな、と思いますが、、)
ここで、さらに質問なのですが、マクロを実行するときは、
上記のようにするしかありませんでしょうか。
(このマクロをボタン一発で呼び出す方法はありませんでしょうか。)
もし宜しければ、再度ご教授頂きたく思います。
No.2
- 回答日時:
>> VC6のサンプルマクロに CommentOutといったものがあるので参照してみましょう
は ツール > マクロのダイアログの中段あたりの『マクロファイル(F)』を『SAMPLE』にした場合に表示されます
キー割り当てをしたいのであれば
ツール > マクロのダイアログで『オプション>>』をクリック
『キーストローク』をクリック
コマンドにキー設定をしたいマクロ名が選択されているのかを確認して
新しいショートッカットに希望のキーストロークを追加してみましょう
ご回答、ありがとうございます。
>> VC6のサンプルマクロに CommentOutといったものがあるので参照してみましょう
>は ツール > マクロのダイアログの中段あたりの『マクロファイル(F)』を『SAMPLE』にした場合に表示されます
上記では確認できなかったので、
メニューバーの「ツール」、「マクロ」、「オプション」、「キーストローク」で
「カスタマイズ」というダイアログボックスが出るので、
その中の「アドインおよびマクロファイル」タブを選択することによって、
『SAMPLE』にチェックすることで、確認することができました。
『SAMPLE』内のCommentOutを使用しましたが、
教えていただいたマクロの方が使いやすいので
そちらを使わせていただきたいと思います。
また、「キーストローク」のおかげで、
VC2005のコメント一括挿入コマンドに限りなく近い操作が
できるようになりました。
(とても快適です!)
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- docomo(ドコモ) ocnで使用可能なガラケー 2 2023/03/18 16:55
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- メルカリ メルカリにて、購入していないのに購入した事になっています!? 3 2022/05/05 19:58
- Excel(エクセル) Excel VBA 指定フォルダに格納されている全エクセルファイルに指定シートを挿入する方法について 1 2022/08/22 11:53
- その他(税金) 派遣社員の給与差押え解除までの日数を教えてください。 1 2023/06/21 09:00
- 金銭トラブル・債権回収 分割希望 3 2023/01/11 00:39
- その他(プログラミング・Web制作) linuxで列の挿入 1 2023/08/08 22:11
- Chrome(クローム) Google Cromeのブックマークのリストの複数の項目を一括して消去する方法はないのでしょうか? 1 2023/08/16 21:15
- 金銭トラブル・債権回収 知り合いからお金を借りました。 毎月返済していましたが 今月返済できず一括で返せと言われています。 3 2023/08/02 11:47
- Mac OS Mac iPhoneの連絡帳の大量のリストを削除したい 1 2023/05/12 23:30
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・【お題】甲子園での思い出の残し方
- ・【お題】動物のキャッチフレーズ
- ・人生で一番思い出に残ってる靴
- ・これ何て呼びますか Part2
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・あなたが好きな本屋さんを教えてください
- ・かっこよく答えてください!!
- ・一回も披露したことのない豆知識
- ・ショボ短歌会
- ・いちばん失敗した人決定戦
- ・性格悪い人が優勝
- ・最速怪談選手権
- ・限定しりとり
- ・性格いい人が優勝
- ・これ何て呼びますか
- ・チョコミントアイス
- ・単二電池
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・泣きながら食べたご飯の思い出
- ・一番好きなみそ汁の具材は?
- ・人生で一番お金がなかったとき
- ・カラオケの鉄板ソング
- ・自分用のお土産
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
テキストボックスのカーソル位置
-
Wordのマクロから書式(O)⇒箇条...
-
どのドキュメントは暗号化され...
-
Powerpointでランダムな数字の...
-
VBA[Private Sub]のコードをシ...
-
最初の1回のみにボタンクリッ...
-
エクセルVBAで、画像の倍率を知...
-
ピボットグラフの書式の固定に...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルのコマンド作成のやり...
-
VBAとマクロについての質問です。
-
エクセルのマクロでSelection.S...
-
htmlまたはJavascriptからファ...
-
エクセルのストップウォッチ
-
エクセルワークシート上に印刷...
-
VBからPowerPointのマクロを実...
-
wordのマクロで縮小して貼り付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
cellsで特定の離れた範囲を選択...
-
ファイル名を今日の日付、時刻...
-
VBA[Private Sub]のコードをシ...
-
Powerpointでランダムな数字の...
-
VBAを使ってエクセルシート...
-
最初の1回のみにボタンクリッ...
-
ピボットグラフの書式の固定に...
-
エクセルVBAで、画像の倍率を知...
-
エクセルのマクロでSelection.S...
-
どのドキュメントは暗号化され...
-
別ブックからユーザーフォーム...
-
Pictures.Insertメソッド⇒Shape...
-
【ExcelVBA】クエリの更新とピ...
-
エクセル2007 テキストボ...
-
wordのマクロで縮小して貼り付...
-
エクセルシートをまとめて印刷...
-
EXCELにクリップボードにある画...
-
VBA ChartWizardで円グラフが書...
おすすめ情報