Software/Word
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#lookup(Google.jp,検索,Microsoft Word)
#contents
*Microsoft Word に関する情報 [#x94439a5]
-[MS] Word 製品サポート
--http://support.microsoft.com/default.aspx?scid=fh;JA;wo...
-[MS] Word 2002 製品サポート
--http://support.microsoft.com/default.aspx?scid=fh;JA;wd...
-[MS] Office How-To インデックス
--http://www.microsoft.com/japan/msdn/howto/howtoOffice.asp
-サービスパック
--[[Office 製品アップデート>http://office.microsoft.com/j...
--[[Office 製品のアップデート / ダウンロード>http://www.m...
--[[ Office XP Service Pack 3>http://www.microsoft.com/ja...
--[[Office 2000 Service Pack 3>http://www.microsoft.com/j...
--[[Office 97 Service Release 2>http://www.microsoft.com/...
**ワイルドカード(正規表現)を使った検索と置換 [#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 & ", " & ...
SaveAsPageFromTo strFilePath, nPageFrom, nPageTo
Next
End Sub
' ページの開始と終了を求める
Function GetPageFromTo(ByVal strPageFromTo, ByRef nPageF...
Dim strPageArray
strPageArray = Split(strPageFromTo, "-")
nPageFrom = -1
nPageTo = -1
' 要素数を求める
nCount = UBound(strPageArray, 1) - LBound(strPageArr...
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 nPage...
For i = nPageFrom To nPageTo
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNe...
Selection.GoTo What:=wdGoToBookmark, Name:="\pag...
Selection.Copy ...
If i <> nPageFrom Then
Documents.Open strFilePath & nPageFrom ...
Selection.EndKey Unit:=wdStory ...
Else
Documents.Add DocumentType:=wdNewBlankDocume...
End If
Selection.PasteAndFormat (wdPasteDefault) ...
Selection.MoveDown Unit:=wdParagraph, Count:=1, ...
If i <> nPageFrom Then
ActiveDocument.SaveAs FileName:=strFilePath ...
Else
ActiveDocument.SaveAs FileName:=strFilePath ...
End If
ActiveWindow.Close
Next i
End Function
**リンク集 [#n41750c8]
-MS Wordを使いこなす
--http://www.ritsumei.ac.jp/kic/~tyv07679/chuden/teach/wo...
-MS-Wordのワイルドカードを使った検索例
--http://www5c.biglobe.ne.jp/~yamag/data/Soft/MSWord-WCar...
-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
終了行:
#lookup(Google.jp,検索,Microsoft Word)
#contents
*Microsoft Word に関する情報 [#x94439a5]
-[MS] Word 製品サポート
--http://support.microsoft.com/default.aspx?scid=fh;JA;wo...
-[MS] Word 2002 製品サポート
--http://support.microsoft.com/default.aspx?scid=fh;JA;wd...
-[MS] Office How-To インデックス
--http://www.microsoft.com/japan/msdn/howto/howtoOffice.asp
-サービスパック
--[[Office 製品アップデート>http://office.microsoft.com/j...
--[[Office 製品のアップデート / ダウンロード>http://www.m...
--[[ Office XP Service Pack 3>http://www.microsoft.com/ja...
--[[Office 2000 Service Pack 3>http://www.microsoft.com/j...
--[[Office 97 Service Release 2>http://www.microsoft.com/...
**ワイルドカード(正規表現)を使った検索と置換 [#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 & ", " & ...
SaveAsPageFromTo strFilePath, nPageFrom, nPageTo
Next
End Sub
' ページの開始と終了を求める
Function GetPageFromTo(ByVal strPageFromTo, ByRef nPageF...
Dim strPageArray
strPageArray = Split(strPageFromTo, "-")
nPageFrom = -1
nPageTo = -1
' 要素数を求める
nCount = UBound(strPageArray, 1) - LBound(strPageArr...
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 nPage...
For i = nPageFrom To nPageTo
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNe...
Selection.GoTo What:=wdGoToBookmark, Name:="\pag...
Selection.Copy ...
If i <> nPageFrom Then
Documents.Open strFilePath & nPageFrom ...
Selection.EndKey Unit:=wdStory ...
Else
Documents.Add DocumentType:=wdNewBlankDocume...
End If
Selection.PasteAndFormat (wdPasteDefault) ...
Selection.MoveDown Unit:=wdParagraph, Count:=1, ...
If i <> nPageFrom Then
ActiveDocument.SaveAs FileName:=strFilePath ...
Else
ActiveDocument.SaveAs FileName:=strFilePath ...
End If
ActiveWindow.Close
Next i
End Function
**リンク集 [#n41750c8]
-MS Wordを使いこなす
--http://www.ritsumei.ac.jp/kic/~tyv07679/chuden/teach/wo...
-MS-Wordのワイルドカードを使った検索例
--http://www5c.biglobe.ne.jp/~yamag/data/Soft/MSWord-WCar...
-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
ページ名: