Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

463 / 886

←次へ　｜　前へ→


	【435】Re:パス取得ほか

H. C. Shinopy - 06/5/25(木) 22:48 -


	引用なし

	パスワード

取り敢えず、
ヘルプの使用例を載せますので、
参考にして下さい。

１．ファイル（コードの書かれている原本）のパスについて
　MsgBox CurDir()
　MsgBox ActiveDocument.Path

２．一行目の文字列をファイル名にする
文字列の取得・表示
　MsgBox "[" & ActiveDocument.Sentences(1).Text & "]"
　MsgBox Replace("[" & ActiveDocument.Sentences(1).Text & "]", vbCr, "") ' 改行を取る
　MsgBox "[" & ActiveDocument.Paragraphs(1).Range.Text & "]"
　MsgBox Replace("[" & ActiveDocument.Paragraphs(1).Range.Text & "]", vbCr, "") ' 改行を取る

　　ファイル保存
　　myNewFileName = Replace("[" & ActiveDocument.Sentences(1).Text & "]", vbCr, "")
　　myNewFileName = CurDir() & "\" & myNewBaseName & ".doc"
　 .ActiveDocument.SaveAs FileName:=myNewFileName

３．ページ数の取得について
元ファイルを見ている状態で実行してみて下さい。
但し、新規文書で保存していない場合は「-1」と表示されます。

　Rem 次の使用例は､作業中の文書の現在のページ番号と総ページ数を表示します｡
　MsgBox "選択範囲は、" & _
　　　Selection.Information(wdActiveEndPageNumber) & " ページ目にあります。総ページ数は " _
　　　& Selection.Information(wdNumberOfPagesInDocument) & " ページです。"
　‘
　Dim Ccc As Long
　'　Rem 作業中の文書の現在のページ番号を変数Cccに取得。
　Ccc = Selection.Information(wdActiveEndPageNumber)
　MsgBox Ccc

3,269 hits

▼

【434】パス取得ほか 代奈 06/5/25(木) 19:41