#lookup(Google.jp,検索,Microsoft Word)

#contents

*Microsoft Word に関する情報 [#x94439a5]
-[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 製品アップデート>http://office.microsoft.com/japan/downloads/]]
--[[Office 製品のアップデート / ダウンロード>http://www.microsoft.com/japan/office/downloads/]]
--[[ Office XP Service Pack 3>http://www.microsoft.com/japan/office/downloads/xpsp3/default.asp]]
--[[Office 2000 Service Pack 3>http://www.microsoft.com/japan/Office/downloads/office2000sp3/default.asp]]
--[[Office 97 Service Release 2>http://www.microsoft.com/Japan/Office/downloads/Office97SR2/]]

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

 <アルファベットに続くカンマの置換>
 検索:([A-Z]),
 置換:\1,
 
 <数字に続くピリオドの置換>
 検索:([0-9]).
 置換:\1.

 <英字、数字に続く読点、カンマを半角カンマに置換>
 検索:([A-ZA-Z0-90-9])([、,])
 置換:\1,
 
 <英字、数字に続く句点、ピリオドを半角ピリオドに置換>
 検索:([A-ZA-Z0-90-9])([。.])
 置換:\1.

 <変換前>
 あいうえお、かきくけこ。さしすせそ,たちつてと.
 ABC、DEF。GHI,JKL.
 ABC、DEF。GHI,JKL.
 123、456。789,012.
 123、456。789,012.
 
 <変換後>
 あいうえお、かきくけこ。さしすせそ,たちつてと.
 ABC,DEF.GHI,JKL.
 ABC,DEF.GHI,JKL.
 123,456.789,012.
 123,456.789,012.

 <参考情報>
 Word 2002 のヘルプより。
 -----------------------------------------------
 [Microsoft Word のヘルプ]
  +[文書の基本概念]
   +[検索と置換]
    +[文字列やその他の項目を検索して置換する]
 -----------------------------------------------
 で「すべて表示」を選択。
--http://www.hatena.ne.jp/1084858974

**サンプルコード [#b97d4799]
***ページ単位でファイルに保存するマクロ [#e727e12c]
 ' ページ単位でファイルに保存するマクロ
 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

**リンク集 [#n41750c8]
-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

*はてな [#t08c9ccf]
-Word で索引を作る方法?
--http://www.hatena.ne.jp/1091086910

//#comment
#access
//#access

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS