質問: いつもお世話になっております。 Word97で罫線をずーと0.75ptで使用したいのです。 初期値が常に0.5ptなのでなにか方法はございますでしょうか?
回答: マクロを使って設定する方法を書いてみます。この方法だと、文書を開いたり、新 規作成したときでも、自動的に0.75ptに設定されるので、便利かもしれません。 尚、Word97で確認したわけではありません。多分大丈夫だとは思うんですが... マクロの設定の仕方 1:文書を新規作成して、[ツール]-[マクロ]-[VisualBasicEditor],[Normal]- [Microsoft Word Objects]と選択し、[ThisDocument]をダブルクリックして ください。 2:開いた画面に、下記内容をコピー、貼り付けしてください。 不明点があれば、補足で質問するか、Wordの参考書を見るかしてください。 '*********ここから********* Private Sub Document_New() Call SetBorderWeight End Sub Private Sub Document_Open() Call SetBorderWeight End Sub Private Sub SetBorderWeight() '罫線の太さを0.75Ptに設定する Dim cmbTAndB As CommandBar Dim CBCMB As CommandBarComboBox Dim i As Long On Error Resume Next '罫線ツールバーを取得 Set cmbTAndB = CommandBars("Tables and Borders") For i = 1 To cmbTAndB.Controls.Count '「罫線の太さ」を検索する。 If cmbTAndB.Controls(i).Type = 9 Then Set CBCMB = cmbTAndB.Controls(i) If CBCMB.Caption Like "罫線の太さ*" Then '上から3つ目(0.75Pt)に設定 CBCMB.ListIndex = 3 End If End If Next End Sub '*********ここまで********