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

Question

Word2000を使用しています。
ひとつのWordファイルを何人もが閲覧することを想定しています。
閲覧者は不特定多数で、Wordに関して知識はほとんどありません。
表組みを利用した文書なので、随所に段落記号があります。

閲覧者が見やすいように、そのWordファイルを開いたときに、段落記号を自動的に非表示にする設定をしたいのですが、何かいい方法はありますか？
また、ファイルを閉じるときに元の設定に戻せると一番いいのですが。

マクロだとすると、そのマクロはどのように書けばよいのでしょうか？

ついでに表のグリッド線も非表示にできるとうれしいです。

どなたか教えてください。よろしくお願いします。

moon00 · Accepted Answer

補足をいただいたので、元に戻すマクロを追加します。
前掲したマクロも一部変更しましたので、全部載せますね。
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さんにもできると思います。

セキュリティレベルはしょうがないですね。
そのコントロールができたら、ウイルス作れちゃいますから。

ufufuehehe · Answer

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

ufufuehehe · Answer

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

moon00 · Answer

段落記号、及び表のグリッドの表示については、
作成したファイルに保存されるものではないので、
ファイルそのものに、開いたＰＣでの設定を変更するような
マクロが必要だということですよね。
ただ、閉じるときに元に戻しても、開くときにまた同じマクロが開けば、
全部非表示になりますので、
それよりは自分の作業されるＰＣで、マクロで自分の表示したい
編集記号を一発表示できるボタンを作った方がよいかと、
思います。
以下のマクロを、操作したいファイルを開いた状態で、
ツール→マクロ→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

また、表示したい編集記号をコントロールするボタンは
マクロの記録を使えば簡単にできます。

分かりにくければ補足をお願いします。

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

補足をいただいたので、元に戻すマクロを追加します。

#2です。

Webページとして保存されてはいかがでしょうか？（登録する時に「ファイルの種類」の中から選ぶ）

この回答への補足

段落記号、及び表のグリッドの表示については、

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング