Software/Word

Microsoft Word に関する情報 †

• [MS] Word 製品サポート
  • http://support.microsoft.com/default.aspx?scid=fh;JA;wordJPN
• [MS] Word 2002 製品サポート
  • http://support.microsoft.com/default.aspx?scid=fh;JA;wd2002
• [MS] Office How-To インデックス
  • http://www.microsoft.com/japan/msdn/howto/howtoOffice.asp

• サービスパック
  • Office 製品アップデート
  • Office 製品のアップデート / ダウンロード
  • Office XP Service Pack 3
  • Office 2000 Service Pack 3
  • Office 97 Service Release 2

ワイルドカード（正規表現）を使った検索と置換 †

• ちょっと特殊ですが Word でも正規表現（風）の置換が行えるようです。

  1. [編集] - [置換] を選択します。
  2. [オプション] ボタンを押下して検索オプションを表示させます。
  3. 「ワイルドカードを使用する」にチェックを入れます。
     これで、以下のような特殊置換が行えるようになります。

＜アルファベットに続くカンマの置換＞
検索：([A-Z])，
置換：\1,

＜数字に続くピリオドの置換＞
検索：([0-9])．
置換：\1.

＜英字、数字に続く読点、カンマを半角カンマに置換＞
検索：([A-ZＡ-Ｚ0-9０-９])([、，])
置換：\1,

＜英字、数字に続く句点、ピリオドを半角ピリオドに置換＞
検索：([A-ZＡ-Ｚ0-9０-９])([。．])
置換：\1.

＜変換前＞
あいうえお、かきくけこ。さしすせそ，たちつてと．
ＡＢＣ、ＤＥＦ。ＧＨＩ，ＪＫＬ．
ABC、DEF。GHI，JKL．
１２３、４５６。７８９，０１２．
123、456。789，012．

＜変換後＞
あいうえお、かきくけこ。さしすせそ，たちつてと．
ＡＢＣ,ＤＥＦ.ＧＨＩ,ＪＫＬ.
ABC,DEF.GHI,JKL.
１２３,４５６.７８９,０１２.
123,456.789,012.

＜参考情報＞
Word 2002 のヘルプより。
-----------------------------------------------
[Microsoft Word のヘルプ]
　+[文書の基本概念]
　　+[検索と置換]
　　　+[文字列やその他の項目を検索して置換する]
-----------------------------------------------
で「すべて表示」を選択。

• http://www.hatena.ne.jp/1084858974

サンプルコード †

ページ単位でファイルに保存するマクロ †

' ページ単位でファイルに保存するマクロ
Sub PageToDoc()
    Dim strFilePath
    Dim strPageList
    Dim strPageArray
    Dim strPageFromTo
    Dim nPageFrom
    Dim nPageTo
    
    strFilePath = "D:\home\edu\word\test\page_" ' 保存先
    strPageList = "1,2-3,4,5-6,7"   ' ページ数の指定。
    strPageArray = Split(strPageList, ",")
    For Each strPageFromTo In strPageArray
        GetPageFromTo strPageFromTo, nPageFrom, nPageTo
        Debug.Print "nPageFrom = " & nPageFrom & ", " & "nPageTo = " & nPageTo
        SaveAsPageFromTo strFilePath, nPageFrom, nPageTo
    Next
    
End Sub

' ページの開始と終了を求める
Function GetPageFromTo(ByVal strPageFromTo, ByRef nPageFrom, ByRef nPageTo)
    Dim strPageArray
    strPageArray = Split(strPageFromTo, "-")
    
    nPageFrom = -1
    nPageTo = -1
    
    ' 要素数を求める
    nCount = UBound(strPageArray, 1) - LBound(strPageArray, 1) + 1
    If nCount = 1 Then
        nPageFrom = CInt(strPageArray(0))
        nPageTo = strPageArray(0)
    ElseIf nCount = 2 Then
        nPageFrom = CInt(strPageArray(0))
        nPageTo = strPageArray(1)
    End If
    
End Function

' 指定ページをファイルに保存
Function SaveAsPageFromTo(ByVal strFilePath, ByVal nPageFrom, ByVal nPageTo)
    For i = nPageFrom To nPageTo
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i ' 指定ページに移動
        Selection.GoTo What:=wdGoToBookmark, Name:="\page"          ' ページを選択
        Selection.Copy                                              ' ページをコピー
        If i <> nPageFrom Then
            Documents.Open strFilePath & nPageFrom                  ' 既存の文書をオープン
            Selection.EndKey Unit:=wdStory                          ' 文書の最後に移動
        Else
            Documents.Add DocumentType:=wdNewBlankDocument          ' 新規に作成
        End If
        Selection.PasteAndFormat (wdPasteDefault)                   ' ページを貼り付け
        Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend ' 選択を解除
        If i <> nPageFrom Then
            ActiveDocument.SaveAs FileName:=strFilePath & nPageFrom ' 既存の文書を更新
        Else
            ActiveDocument.SaveAs FileName:=strFilePath & i         ' 新規に保存
        End If
        ActiveWindow.Close
    Next i
End Function

リンク集 †

• MS Wordを使いこなす
  • http://www.ritsumei.ac.jp/kic/~tyv07679/chuden/teach/word/index-j.html
• MS-Wordのワイルドカードを使った検索例
  • http://www5c.biglobe.ne.jp/~yamag/data/Soft/MSWord-WCard.htm
• Word一般機能 Q&A掲示板
  • http://www2.moug.net/app/bbs/thread.php?cat=wordopr
• Word VBA Q&A掲示板
  • http://www2.moug.net/app/bbs/thread.php?cat=wordvba

はてな †

• Word で索引を作る方法？
  • http://www.hatena.ne.jp/1091086910