【最大10000ポイント】当たる!!質問投稿キャンペーン!

XPsp3 で Word2007 Pro を使用しています。

バックスラッシュ(アスキーコード&h5C)を
"\"に変えずに、バックスラッシュのまま、
表示させる処理について教えてください。

人がオペレーションするには
Wordのオプション中の
「バックスラッシュを円記号に変換する」
をアンチェックにすればOKですが、

これをマクロから設定する方法、
あるいはここがCheckedでも
ASCII &h5CをASCII &h5Cのフォントのままに表示させる方法は
あるでしょうか?

よろしくお願いします。

(マクロ記録とOptions Objectメンバのブラウズ
 はしてみましたがわかりませんでした)

このQ&Aに関連する最新のQ&A

A 回答 (1件)

Word2002でマクロ記録を取ってみました。



Sub Macro1()
'
'半角¥記号を半角バックスラッシュに変換する(しない)
'
ActiveDocument.Compatibility(wdLeaveBackslashAlone) = False '( or True )

End Sub

http://msdn.microsoft.com/ja-jp/library/microsof …(office.11).aspx

上記で半角バックスラッシュを表記させることができるかも
しれませんが、フォント名によっては半角の文字表記が違い
日本語用フォントが含まれないフォントを指定してあれば、
半角の¥記号になることはありませんが、日本語用フォント
を英語用フォントでも指定してあると、意味がありません。
日本語用フォントのほとんどが半角¥記号がわりあてられて
いますので。

ちなみに、この質問にある半角¥記号がバックスラッシュで
表記されている閲覧者がいるかもしれません。
ブラウザ上で指定しているフォントによって表記が違うので。
私の環境では半角¥記号になっていますね。
「Word2007 バックスラッシュをマク」の回答画像1
    • good
    • 0
この回答へのお礼

できました!
Compatibility で設定できたんですね。
すばやいレス、助かりました。
ありがとうございました。

お礼日時:2011/07/02 00:21

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルでマクロを作成してますが、バックスラッシュが入力出来ません。 設定方法等教えて頂けないでしょ

エクセルでマクロを作成してますが、バックスラッシュが入力出来ません。
設定方法等教えて頂けないでしょうか。

よろしくお願いします。

Aベストアンサー

下記URLのページをご覧ください。
次のように説明されています。

「005C」というコードを欧文フォント(英数字用フォント)では半角の「\」という形で表示させていますが、和文フォント(日本語用フォント)では半角の「¥」という形で表示させることにしてしまったので、和文フォントを使うかぎり、半角のバックスラッシュを入力できないのです。

従って、現状の日本語用フォントを英数字用フォントに変更すれば、バックラッシュが表示されると思います。


「バックスラッシュを入力したい」
http://www.relief.jp/itnote/archives/001280.php

Qバックスラッシュを入力する方法について

ネットで調べるといくつか出てくるのですが、私の環境では入力できません。Windows7 64bit IME2010
google検索欄と、ExcelでArielをフォント選択した時は入力できますが、Wordやテキストエディタでは入力できません。コピペしても\に替わってしまいます。「ファイル名を指定して実行」で入力したいのですが、できずにとても困っています。解決方法をご存知の方いらしゃいましたら何卒よろしくお願いします。

Aベストアンサー

バックスラッシュと「\」は同じものです。
表示する時に、システム/アプリによってどちらかを表示しているだけです。
例えば、今入力している画面では円マークキーを押しても画面上ではバックスラッシュが表示されます。
英語入力モードで円マークキーと「ろ」のキー(バックスラッシュ)を押してみてください。同じ文字が入力てきるはずです。

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For ~ To ~
  Worksheets("シートA").Activate
  シートAの値取得
       :
  Worksheets("シートB").Activate
  シートBの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください!

Aベストアンサー

Worksheets("シートA").Range("A1")

みたいな感じでできませんか?

QEXCEL VBA で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

>現在開いているブックのファイル名
 ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

 しかし、
>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

Qフォルダ内の全てのBookに同じ処理を繰り返す

フォルダ内にエクセルファイルが約3,000個あります。
この全てのBookに同じ処理をしたいのですが、マクロで繰り返す方法がわからないので教えて下さい。
処理をする内容は簡単なもので、マクロで作りました。

・ 各Bookには1つのシートしか存在せず、シート名は重要ではないので全て「Sheet1」になっています。
・ 各Bookのデータの配置や表形式は同じです。
・ レコードの行数がBookによって異なります。

処理の内容をマクロで作るところまではできましたが、知識がないためタイムアウトです。

ご教示宜しくお願い致します。

Aベストアンサー

だいたいこんな流れで。

sub macro1()
 dim myPath as string
 dim myFile as string

 mypath = "C:\test\"

’指定フォルダのブックを順繰り拾う
 myfile = dir(mypath & "*.xls*")
 do until myfile = ""

 ’ブックを開いて処理を行い保存して閉じる
  workbooks.open mypath & myfile
  activesheet.range("A1") = "DONE"
  activeworkbook.close true

  myfile = dir()
 loop
end sub


必要に応じて
・画面の表示を抑制する
・再計算を手動にする
といった手管を追加して高速化を図ります。

Q逆向き/(スラッシュ)の入力方法

タイトルの通り、逆向き/(スラッシュ)の入力方法がわかりません。

記号⇒変換 で出てくるのは\、大文字ですよね、
これの小文字バージョンの出し方がわからないのです。
cgiのプログラミングにチャレンジ中でブチ当たって
しまい、途方にくれています。
ちなみに使ってるキーボードは106です。

Aベストアンサー

殆どの場合、バックスラッシュを使うのであれば、¥記号で代用できます
これは、フォントの問題であって、内部的な数値は同じ物だからです

もし、cgiプログラミングの本などでバックスラッシュを使うように指示があった
場合は、スラッシュではなく¥記号にするのが間違いがないはずです

Qエクセル マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか?
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub

QEXCELで「¥」マーク表示されない。

EXCELで「¥」を打ってENTERを押すと、「\」バックスラッシュが表示されてしまいます。教えてください。会計報告書作成時(英語)
OS:2000 OFFICE:2000

Aベストアンサー

バックスラッシュが打てない
http://www.junmas.com/wwwboard2/messages/397.html
と逆のケースであろうと思います。
ソフトが英語版だからと思います。
上記WEBにもあるように、バックスラッシュと¥
は、文字コードの点で古くより因縁のある問題であります。
http://www.watch.impress.co.jp/internet/www/column/ogata/part1_2.htm(この中でバックで検索し、最後の
辺りを読んで下さい)

QExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。

以下のようなプログラムをVBAで作成したいと考えています。

A1のセルに値があれば、その値をB1に返す。
次にA2のセルに値があれば、その値をB2に返す。
A行に値がある一番下のセルまで同じようなことをさせたいと考えています。

VBAは初心者です。
どなかた宜しくお願い致します。

Aベストアンサー

#2さんと似たものですが・・・・参考にしてください。

Sub test001()
Dim i As Long
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 2) = Cells(i, 1)
i = i + 1
Loop
End Sub


人気Q&Aランキング