3

Micro: Word テンプレート/スタイル セットからスタイル名とその特性の一覧を表示したい。

マクロ: 私のオフィスの他の人々は、さまざまな書式設定でスタイル セットとテンプレートを定義しています。ドキュメントを開いてスタイルを適用し、各スタイルにスタイル インスペクターを使用する以外に、スタイル定義に含まれているものを確認して、スタイルを微調整するか、破棄して最初からやり直すかを決定する方法はありますか?

Windows 7 で Word 2010 を使用しています。

デスクトップ サポート チームは、会社の IT スタイルと呼ばれるスタイル セットを定義しました。このスタイル セットは、ユーザーのテンプレート フォルダーを通じてネットワーク上のすべてのユーザーにプッシュされます。

C:\Users\%MyName%\AppData\Roaming\Microsoft\QuickStyles\Company IT QuickStyle Set.dotx

このスタイル セットに含まれるスタイルの名前のリストを、スタイル リストの [スタイルの変更] ボタンを使用して表示されるように、各スタイルの定義/特性と共にエクスポートしたいと考えています。

例:
標準:
フォント: (デフォルト) Times New Roman、11 pt、左
行間隔: シングル、間隔: 6 pt、Widow/Orphan コントロール、スタイル: クイック スタイル

見出し 1:
フォント: Arial Black、16 pt、インデント:
左: 0インチ、
ぶら下げ: 0.3 インチ、スペースの前: 18 pt、後: 18 pt、次と保持、レベル 1
タブ ストップ: 0.3"、リスト タブ、アウトライン番号付き +レベル: 1 + 番号付けスタイル: 1、2、3、… + 開始位置: 1 + 配置: 左 + 配置位置: 0" + タブの後: 0.3" + インデント: 0.3"、スタイル: リンク、クイック スタイル
に基づく：ノーマル
追従スタイル：ノーマル

テンプレートの設定 (用紙サイズ、向きなど) を明らかにする Word のヒント ニュースレター サイトにマクロがありますが、それを微調整してスタイルの書式設定の特性を明らかにする方法がわかりません。

http://word.tips.net/T010117_Listing_the_Settings_in_a_Template.html

特定のスタイル セットから情報をエクスポートする方法を探しています。理想的には、スタイル名 (そのスタイルで書式設定されたもの) を表示する Word テーブルに、そのスタイルの要素の構造化されたリストが続きます。またはさらに良いことに、XML に。

これを行うための既製のツールはありますか？

私は Word の準パワー ユーザーです。おそらく私の部門で最も上級のユーザーですが、決して専門家ではありません。私はマクロを扱うことができますが、VBA はしばしば私を当惑させます。

ヘルプやポインタをいただければ幸いです。
ジェームズ

編集: MSMVP の Suzanne Barnhill は、私の質問に次のように部分的に答えました。

「簡単な答えは、backstage の [印刷] タブの [すべてのページを印刷] ドロップダウンの [プロパティ] の下にある [スタイル] を選択することで、この情報を印刷できるということです。これをドキュメントとして「印刷」するには、次のように印刷できます。 Microsoft XPS Document Writer または PDF プリンターに送信します。」

ただし、これにより、ドキュメントでアクティブに使用されているスタイルのみが生成されます。調査したいテンプレートとスタイル セットの一部は広範囲にわたるため、ドキュメントを作成して各スタイルを段落または文字に割り当てる必要はありません。

4

2 に答える 2

3

同じ質問を持つ他の人が回答を使用できるように提示されます.....

OPで述べたように、私はWindows 7でWord 2010を使用しています。

[ファイル] -> [印刷] ダイアログの [印刷対象] ドロップダウンには [スタイルの印刷] オプションがありますが、そのドキュメントでアクティブに使用されているスタイルの定義のみが印刷されます。

Word 2007 および 2010 で動作する次のマクロが提供されました。著者の Jessica Weissman は次のように述べています。

「これは私が Word 2007 で使用して、文書内のすべての段落スタイルと文字スタイルの説明を一覧表示するマクロです。テーブル スタイルとリスト スタイルをスキップします。使用されていないものを含め、文書内のすべてのスタイルを一覧表示します。

スタイルが別のスタイルに基づいている場合、スタイルの説明には、基本スタイルと異なるもののみが含まれます。幸いなことに、基本スタイルはスタイルの説明の項目の 1 つです。

すべてのタイプのすべてのスタイルを表示するには、If ステートメントと End If ステートメントをコメントアウトします。

警告: ストレス テストは行われておらず、純粋にそのままの状態で提供され、保証はありません。

  • ジェシカ"

マクロ コードは次のとおりです。思ったより簡単です。

Sub describeAllStylesWeCareAbout()  
'  by Jessica Weissman  
Dim docActive As Document  
Dim docNew As Document  
Dim styleLoop As Style  
Set docActive = ActiveDocument  
Set docNew = Documents.Add  
For Each styleLoop In docActive.Styles  

   If styleLoop.Type < 3 Then  
  ' show only character and paragraph styles, not list or table styles  
     With docNew.Range  
            .InsertAfter Text:=styleLoop.NameLocal & Chr(9) _  
                & styleLoop.Description  
            .InsertParagraphAfter  
            .InsertParagraphAfter  
    End With  
    End If  
Next styleLoop  
End Sub
于 2012-12-05T13:26:24.690 に答える