段落記号を自動で非表示にしたい

質問

Word2000を使用しています。
ひとつのWordファイルを何人もが閲覧することを想定しています。
閲覧者は不特定多数で、Wordに関して知識はほとんどありません。
表組みを利用した文書なので、随所に段落記号があります。

閲覧者が見やすいように、そのWordファイルを開いたときに、段落記号を自動的に非表示にする設定をしたいのですが、何かいい方法はありますか？
また、ファイルを閉じるときに元の設定に戻せると一番いいのですが。

マクロだとすると、そのマクロはどのように書けばよいのでしょうか？

ついでに表のグリッド線も非表示にできるとうれしいです。

どなたか教えてください。よろしくお願いします。

回答No.4

moon00 · ベストアンサー

補足をいただいたので、元に戻すマクロを追加します。
前掲したマクロも一部変更しましたので、全部載せますね。
ption Explicit
Dim Tpro As Boolean　'タブのプロパティ
Dim Spro As Boolean　'スペースのプロパティ
Dim Ppro As Boolean　'段落のプロパティ
Dim OBpro As Boolean　'任意改行のプロパティ
Dim Hpro As Boolean　'ハイフンのプロパティ
Dim HTpro As Boolean　'隠し文字のプロパティ
Dim Apro As Boolean　’すべてのプロパティ
Dim TGpro As Boolean　’表のグリッド線のプロパティ

Private Sub Document_Open()
'それぞれの初期状態のプロパティを取得
Tpro = ActiveWindow.View.ShowTabs
Spro = ActiveWindow.View.ShowSpaces
Ppro = ActiveWindow.View.ShowParagraphs
OBpro = ActiveWindow.View.ShowOptionalBreaks
Hpro = ActiveWindow.View.ShowHyphens
HTpro = ActiveWindow.View.ShowHiddenText
Apro = ActiveWindow.View.ShowAll
TGpro = ActiveWindow.View.TableGridlines

'それぞれのプロパティを非表示に
ActiveWindow.View.TableGridlines = False
With ActiveWindow.View
.ShowTabs = False 'タブ
.ShowSpaces = False 'スペース
.ShowParagraphs = False '段落記号
.ShowOptionalBreaks = False '任意改行
.ShowHyphens = False 'ハイフン
.ShowHiddenText = False '隠し文字
.ShowAll = False '全て
End With
End Sub

Private Sub Document_Close()
　'初期状態に戻す
ActiveWindow.View.TableGridlines = TGpro
With ActiveWindow.View
.ShowTabs = Tpro 'タブ
.ShowSpaces = Spro 'スペース
.ShowParagraphs = Ppro '段落記号
.ShowOptionalBreaks = OBpro '任意改行
.ShowHyphens = Hpro 'ハイフン
.ShowHiddenText = HTpro '隠し文字
.ShowAll = Apro '全て
End With

End Sub

こんな感じです。
私も記録マクロから始めてます。専らExcelのマクロが多いので
こういう場でWordのマクロも勉強させていただいてます。
このマクロも最初は記録マクロから、変化させただけですよ。
慣れればkitune35さんにもできると思います。

セキュリティレベルはしょうがないですね。
そのコントロールができたら、ウイルス作れちゃいますから。

お礼

ありがとうございます！できました！感激。
こんなこともすぐできちゃうんですね。
これを機に、私も、少しずつマクロの勉強をしてみます。

回答No.3

ufufuehehe

#2です。
ちょっと思ったんですけど、不特定多数の閲覧者って、それぞれ自分のＰＣで閲覧するんですよね？
そしたら、その人たちに印刷プレビューで見てもらうようにすれば良いのでは？
例えばそのファイルの文頭のどこか余白にテキストボックスで、目立つように大きな赤文字で
「このファイルは印刷プレビュー（ALTキーを押しながらＦ、Ｖを押す）で見て下さい」
とでも隠し文字で入力しておけば、ワードに不慣れな人でもわかるんじゃないかと・・・
隠し文字にしておけば、プレビューには映りませんし。駄目でしょうか？

私もあまりネットワークは詳しくないんですが、「Wordでweb保存したものはそのままUPできない」のに、マクロ入りのDOCは大丈夫なんですか？

お礼

なるほどぉ。プレビュー、いいかもしれません。
なるべく操作をさせないことを考えてていました。
でも、それくらいならできますよね。
発想の転換、すばらしいです。ありがとうございます。検討してみます。

回答No.2

ufufuehehe

Webページとして保存されてはいかがでしょうか？（登録する時に「ファイルの種類」の中から選ぶ）
拡張子がhtmなら普通にダブルクリックすればIEで開くと思うので、段落記号もグリッド線も見えなくなりますし。
修正する必要が出てきた時はファイル名を右クリック→プログラムから開く（“アプリケーションから開く”だったかも）でワードで開くということで。

補足

ありがとうございます。
Webで保存も考えたのですが・・・。
説明が足りなくてすみません。

イントラ上で使用するのですが、なんでも、Wordでweb保存したものは、そのままUPできないんだそうで。そのサーバがフォルダ形式をサポートしていないとかそういう問題なのでしょうか・・・。（ネットワークに関してあまり知識がないので、なぜ、ダメなのかいまひとつ理解していないのですが・・）
web保存のオプションかなにかで、どうにかする（さっぱり要領を得ない書き方でごめんなさい）方法はご存知ですか？

PDFに変換できればいいのですが、それもダメなんだそうです。

回答No.1

moon00

段落記号、及び表のグリッドの表示については、
作成したファイルに保存されるものではないので、
ファイルそのものに、開いたＰＣでの設定を変更するような
マクロが必要だということですよね。
ただ、閉じるときに元に戻しても、開くときにまた同じマクロが開けば、
全部非表示になりますので、
それよりは自分の作業されるＰＣで、マクロで自分の表示したい
編集記号を一発表示できるボタンを作った方がよいかと、
思います。
以下のマクロを、操作したいファイルを開いた状態で、
ツール→マクロ→VisualBasicを開き、プロジェクトウインドウで
Project（ファイル名）→MicrosoftWordオブジェクト→
ThisDocumentをダブルクリックしてでたウインドウに貼り付けて下さい。
Private Sub Document_Open()

ActiveWindow.View.TableGridlines = Not ActiveWindow.View.TableGridlines
With ActiveWindow.View
.ShowTabs = False　'タブ
.ShowSpaces = False　'スペース
.ShowParagraphs = False　'段落記号
　　　　　　 .ShowOptionalBreaks = False　'任意改行
.ShowHyphens = False　'ハイフン
.ShowHiddenText = False　'隠し文字
.ShowAll = False　'全て
End With
End Sub

また、表示したい編集記号をコントロールするボタンは
マクロの記録を使えば簡単にできます。

分かりにくければ補足をお願いします。

補足

おお！素晴しい。こんな感じです！
このファイルに関しては編集記号を表示させる必要はないので、表示する編集記号をコントロールするボタンはなくてもよいかと思ってます。
ただ、非表示のままこのファイルを閉じると、別ファイルを開いたときに非表示のままになってしまうので、「閉じるときに元に戻しておきたい」のです。

と書いていてふと思いました。
ファイルを開くユーザーがセキュリティレベルを高していたら無意味ですね・・・。

でも、閉じるときに元に戻すマクロも教えていただけるとうれしいです。書いていただいたのの応用なんでしょうが、記録マクロくらいしか使ったことないので、中身はさっぱりわかりません・・・。
よろしくお願いします。