Software/Word のバックアップの現在との差分(No.1)

バックアップ一覧
差分を表示
ソースを表示
バックアップを表示
Software/Word へ行く。
- 1 (2005-08-07 (日) 00:52:00)
- 2 (2007-02-24 (土) 18:52:21)
- 3 (2007-02-28 (水) 00:00:00)
追加された行はこの色です。
削除された行はこの色です。
#lookup(Google.jp,検索,Microsoft Word)

#contents

*Microsoft Word に関する情報
*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-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

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