Word VBA質問箱 IV

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

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


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

9 / 306 ﾂﾘｰ

←次へ　｜　前へ→

▼

【869】ファイル分割 あおぎんこ 19/4/24(水) 19:42

【871】Re:ファイル分割 あおぎんこ 19/4/25(木) 19:17

【872】Re:ファイル分割 マナ 19/4/25(木) 21:31

【873】Re:ファイル分割 あおぎんこ 19/4/26(金) 9:14

【874】Re:ファイル分割 あおぎんこ 19/4/26(金) 12:07

【875】Re:ファイル分割 マナ 19/4/26(金) 18:06

【876】Re:ファイル分割 あおぎんこ 19/5/8(水) 14:38


	【871】Re:ファイル分割

あおぎんこ - 19/4/25(木) 19:17 -


	引用なし

	パスワード

▼マナさん：

レスポンスありがとうございます。

>具体的には、どうなるのでしょうか？

今のコードですと、i=2のときに　myPage=4 なのですが
３ページ目の頭に移動し、従って3ページ目の１ページ分しかコピーしません。
i=3のときmyPage=6 なのですが4ページ目の頭に移動し、4ページ目の1ページ分しかコピーしません。

文末がうまく取得できていないと思ったのは、作成された分割ファイルが型崩れしていたからですが、
.Range(myPageStart, myPageEnd).Copy　
の前に
.Range(myPageStart, myPageEnd).select
で選択範囲を明示してみたところ、
カーソルのあるページの末尾まできちんと選択されていましたので、こちらは問題なさそうです。きちんと確認しないまま投稿してしまい、申し訳ありません。

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=myPage
↑このコードだと、myPageの数値にかかわらず、一つずつしか進まないようなのですがmypageのページ数に行くという意味ではないのでしょうね？
（すみません、Selection.GoToで検索してみたのですがいまいちどういう動きをするのか・・。）
指定ページに行くようなコードはあるのでしょうか？
検索の仕方もあるのでしょうが、なかなかこれというのが見つかりません。
ご教示いただけると幸いです。
よろしくお願いいたします。


	【872】Re:ファイル分割

マナ - 19/4/25(木) 21:31 -


	引用なし

	パスワード

▼あおぎんこさん：

これだとどうなりますか
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=myPage

動作確認のために、ほとんど同じですが、書き換えてみました。

Sub test()
　　Dim mySplit As Long
　　Dim doc As Document
　　Dim myTotalPage As Long
　　Dim myPage As Range
　　Dim r As Range
　　Dim k As Long

　　mySplit = 2

　　Set doc = ActiveDocument
　　
　　myTotalPage = doc.Range.Information(wdNumberOfPagesInDocument)

　　Set myPage = doc.Range(0, 0)
　　Set r = myPage
　　
　　k = 0

　　Do Until k > myTotalPage
　　　　k = k + mySplit
　　　　myPage.Start = r.End
　　　　If k >= myTotalPage Then
　　　　　　myPage.End = doc.Range.End
　　　　Else
　　　　　　Set r = r.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=k + 1)
　　　　　　myPage.End = r.Start - 1
　　　　End If
　　　　myPage.Copy
　　　　Documents.Add.Range.Paste
　　Loop

End Sub


	【873】Re:ファイル分割

あおぎんこ - 19/4/26(金) 9:14 -


	引用なし

	パスワード

▼マナさん：
さっそくのご回答ありがとうございます。

>これだとどうなりますか
>Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=myPage

これだときちんと2ページずつ選択できました！

>
>動作確認のために、ほとんど同じですが、書き換えてみました。
>

そして書き換えてくださったコード。
同じようにしっかり分割できました！

今はレイアウトが違うので、新規ファイルは3ページになったりしてますけど、無事に2ページずつ分割できました。
これでページレイアウトを設定して、１ファイルずつ任意の名前をつけて保存できるように、コードを加えていきたいと思います。

またわからなくなったら質問させてください。

ありがとうございました。


	【874】Re:ファイル分割

あおぎんこ - 19/4/26(金) 12:07 -


	引用なし

	パスワード

▼マナさん：

さっそく追加質問をさせてください。

ファイルを保存するときに、分割元ファイルにある文字をファイル名にしたいと考えています。

使用したい文字の位置は一定ではないのですが、必ず「番号」という文字があるセルの次のセルに入っているので、
「番号」を検索し、右に一つタブ移動し取得した文字列をファイル名の変数に格納という方法で何とか取得できないかと考えているのですが
検索はできるのですが、見つかった個所を選択するというのができずにいます。

myPage内に必ず1つ「番号」はあるので、myPageの範囲確定後に
検索文字列を赤で表示するコードを参考に下記のように記述しています。

with myPage.Find
.text="番号"
Do While .Execute
myPage.HighlightColorIndex= wdRed
Loop
End With

これで赤く表示されるのですが、カーソルは動いていないので、
検索文字列に一つ右というのがうまくいきません。
検索文字にカーソルを持っていきたいのですが、方法がよくわかりません。
myPage.HighlightColorIndex= wdRed　をどのように変えたらいいのか。。
検索文字にカーソルが移動できたら、
その後は
Selection.MoveRight Unit:=wdCell
で右に一つカーソル移動し
その文字列をコピーすればいいのかなと思っております。（ここはまだコードを思いついていませんがなんとか）

もしくはファイル名をうまく取得できる方法がほかにありましたら、ご教示いただけると幸いです。

よろしくお願いいたします。


	【875】Re:ファイル分割

マナ - 19/4/26(金) 18:06 -


	引用なし

	パスワード

▼あおぎんこさん：

こんな感じでできると思います。

Sub test()
　　Dim myPage As Range
　　Dim r As Range
　　Dim s As String

　　Set myPage = ActiveDocument.Range
　　Set r = myPage.Duplicate

　　With r.Find
　　　　.Text = "番号"
　　　　If .Execute Then
　　　　　　If r.Information(wdWithInTable) Then
　　　　　　　　s = r.Cells(1).Next.Range.Text
　　　　　　　　s = Left(s, Len(s) - 2)
　　　　　　End If
　　　　End If
　　End With

　　MsgBox s

　　myPage.Select

End Sub

この操作が、ファイル分割の後で
myPage の範囲が変わってもよいのであれば
変数 r を使う必要ないです。

　　


	【876】Re:ファイル分割

あおぎんこ - 19/5/8(水) 14:38 -


	引用なし

	パスワード

▼マナさん：

すっかり遅くなってすみません。
ご教示ありがとうございます。
ご提示いただいたコードを試してみたところ、ばっちりできました。

ファイル分割のあとなので　変数rを使用しなくてもうまくいきました。
でも.Duplicateで複製する方法があるのですね。勉強になりました。

それと　s = r.Cells(1).Next.Range.Textで次のセルのテキストを取得
したときに *が末尾に入ることや、*が2文字となることも今回勉強にな
りました。

今回分割したファイルを配布し、また回収して1つのファイルに結合する
予定です。
こちらは今コードを書いている途中です。
自力で頑張りますが、つまづいたときにはまた質問をさせてください。
どうぞよろしくお願いいたします。

>こんな感じでできると思います。
>
>Sub test()
>　　Dim myPage As Range
>　　Dim r As Range
>　　Dim s As String
>
>　　Set myPage = ActiveDocument.Range
>　　Set r = myPage.Duplicate
>
>　　With r.Find
>　　　　.Text = "番号"
>　　　　If .Execute Then
>　　　　　　If r.Information(wdWithInTable) Then
>　　　　　　　　s = r.Cells(1).Next.Range.Text
>　　　　　　　　s = Left(s, Len(s) - 2)
>　　　　　　End If
>　　　　End If
>　　End With
>
>　　MsgBox s
>
>　　myPage.Select
>
>End Sub
>
>
>この操作が、ファイル分割の後で
>myPage の範囲が変わってもよいのであれば
>変数 r を使う必要ないです。


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

9 / 306 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free