Word VBA質問箱 IV

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

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


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

12 / 45 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【696】Re:数値列タイトルを検出しページ更新

mimikoqa - 10/6/17(木) 10:11 -


	引用なし

	パスワード

▼りるさん：
>mimikoqa さん、こんばんは。
>>必ず８ないし１０桁の数値列タイトルで始まり、次の行に複数行のＷＯＲＤ文書が続く文書構成を１つの単位構成とします。この単位構成が数千もあります。ここでの課題はこの単位構成毎に改ページさせることです。８ないし１０桁の数値列タイトルを検出して改ページさせようと思いますがなかなか思うようにいきません。よろしくご指導のほどをお願いします。
>
>たとえばどんな感じの文書ですか？
>12345678
>あああああああああああああ
>あああああああああああああ
>あああああああああああああ
>999999999
>あああああああああああああ
>
>こんな？

早速、お目通しいただき有難うございます。
全くこの通りです。ただし、文字列とＷＯＲＤ文書の間に空き行が入ったり、ＷＯＲＤ文書内に空き行が入ったりはします。また、数値列は全くのランダムな配列で規則性はありません。以上ですがよろしくお願いします。

・ツリー全体表示


	【695】Re:数値列タイトルを検出しページ更新

りる - 10/6/16(水) 21:50 -


	引用なし

	パスワード

mimikoqa さん、こんばんは。
>必ず８ないし１０桁の数値列タイトルで始まり、次の行に複数行のＷＯＲＤ文書が続く文書構成を１つの単位構成とします。この単位構成が数千もあります。ここでの課題はこの単位構成毎に改ページさせることです。８ないし１０桁の数値列タイトルを検出して改ページさせようと思いますがなかなか思うようにいきません。よろしくご指導のほどをお願いします。

たとえばどんな感じの文書ですか？
12345678
あああああああああああああ
あああああああああああああ
あああああああああああああ
999999999
あああああああああああああ

こんな？

・ツリー全体表示


	【694】数値列タイトルを検出しページ更新

mimikoqa - 10/6/16(水) 14:59 -


	引用なし

	パスワード

必ず８ないし１０桁の数値列タイトルで始まり、次の行に複数行のＷＯＲＤ文書が続く文書構成を１つの単位構成とします。この単位構成が数千もあります。ここでの課題はこの単位構成毎に改ページさせることです。８ないし１０桁の数値列タイトルを検出して改ページさせようと思いますがなかなか思うようにいきません。よろしくご指導のほどをお願いします。

・ツリー全体表示


	【693】Re:ドキュメント内検索でヒットした箇所を...

田吾作 - 10/6/5(土) 22:23 -


	引用なし

	パスワード

閉じます。
お騒がせしました。

・ツリー全体表示


	【692】ドキュメント内検索でヒットした箇所をハイ...

田吾作 - 10/6/2(水) 18:05 -


	引用なし

	パスワード

こんばんは。よろしくお願いいたします。

編集→検索
表示されるウィンドウで検索タブを選択し、
検索する文字列に
「検索したい文字列」
と指定し、
「見つかった全ての項目を強調表示する」
にチェックを入れ、
「すべて検索」
を実行する作業をマクロの自動記録したものです。

Sub Macro1()
'
' Macro1 Macro
' 記録日 2010/06/02 記録者 hoge
'
　　Selection.Find.ClearFormatting
　　With Selection.Find
　　　　.Text = "検索したい文字列"
　　　　.Replacement.Text = ""
　　　　.Forward = True
　　　　.Wrap = wdFindContinue
　　　　.Format = False
　　　　.MatchCase = False
　　　　.MatchWholeWord = False
　　　　.MatchByte = False
　　　　.MatchAllWordForms = False
　　　　.MatchSoundsLike = False
　　　　.MatchWildcards = False
　　　　.MatchFuzzy = True
　　End With
End Sub

このマクロの自動記録で生成したコードを実行しても何も
起こりません。
確かに「検索したい文字列」はドキュメント上に存在します。

マクロで行いたい作業は、
指定した文字列をドキュメント全体で検索し、ヒットした全箇所
をハイライト表示させる、ということです。

コードをどのように書き換えればいいでしょうか？
ご教示お願いいたします。

・ツリー全体表示


	【691】Re:Word VBA 囲い文字

CAN - 10/5/10(月) 8:46 -


	引用なし

	パスワード

りる様

ありがとうございます。
イメージしていた物がこんなにシンプルに出来るなんて感激です。

私なりにやってみた方法ですと○の中の文字の位置や大きさがむちゃくちゃで
フィールドコード内をどうやってやっつけるのか悩んでました。

本当にありがとうございました

・ツリー全体表示


	【690】Re:Word VBA 囲い文字

りる - 10/5/9(日) 15:16 -


	引用なし

	パスワード

CAN さん、こんにちは。

>vbaを使ってwordの文章中の決まった文字を囲い文字にするにはどうしたらよいのでしょうか？
>例えば『あいうえおかきくけこ』の『あ』だけ○で囲んだＡに、『い』だけ○で囲んだ『Ｂ』したいです。
>よろしくお願いいたします。
あをＡ、いをＢに置換して拡張書式の囲み文字を設定しました。

ちなみに、↓こういう文書でテストしました。

あいうえおかきくけこ
ＢＢＡＡＢＢ
あきくけこ

Sub まとめて置き換える()
　 Dim s1 As String, s2 As String
　 '２パターン
　 For NN = 1 To 2
　　　Select Case NN
　　　　 Case 1: s1 = "あ": s2 = "Ａ"
　　　　 Case 2: s1 = "い": s2 = "Ｂ"
　　　End Select
　　　With ActiveDocument.Range.Find
　　　　 Do
　　　　　　'文字を探す　s1
　　　　　　resp = .Execute(FindText:=s1, Wrap:=wdFindContinue, Replace:=wdReplaceOne)
　　　　　　If resp = True Then
　　　　　　　 '○で囲んだ新しい文字　s2
　　　　　　　 .Parent.ModifyEnclosure Style:=wdEncloseStyleSmall, _
　　　　　　　　　　　　　 Symbol:=wdEnclosureCircle, EnclosedText:=s2
　　　　　　Else
　　　　　　　 '置き換える文字がなくなった
　　　　　　　 Exit Do
　　　　　　End If
　　　　 Loop
　　　End With
　 Next
End Sub

・ツリー全体表示


	【689】Word VBA 囲い文字

CAN

- 10/5/6(木) 15:05 -


	引用なし

	パスワード

どなたかおわかりになる方教えてください。

vbaを使ってwordの文章中の決まった文字を囲い文字にするにはどうしたらよいのでしょうか？
例えば『あいうえおかきくけこ』の『あ』だけ○で囲んだＡに、『い』だけ○で囲んだ『Ｂ』したいです。
よろしくお願いいたします。

・ツリー全体表示


	【688】Re:連番とｲﾝﾃﾞﾝﾄを設定したい。

りる - 10/5/5(水) 11:17 -


	引用なし

	パスワード

ゆうさん、こんにちは。

>４行目の 6.6 が 13.2
>７，８行目の 22 が 28.6 に変わります。
両方に6.6が足されている感じですよね。

そのまんまのマクロで、文字列全部選択して実行したらうまく行ったような気がします（実際の文字列がどんな風になっているのかわからないので適当に入れた文章でしたが）。

・ツリー全体表示


	【687】Re:Wordの章、項、目のスタイル設定

りる - 10/5/5(水) 10:37 -


	引用なし

	パスワード

花丸さん、こんにちは。
かなり遅いですが。

>Wordのスタイル設定で質問があります。
>Wordで章、項、目をスタイルを使って設定しようと思います。

オフライン時のヘルプの「1 行に複数の段落番号を付ける」に書いてあるとおりにアウトラインを設定し、1.1.1.となっている書式のレベル１を「第1章」に変更しみたところお望みの結果（のよう）になりました。

・ツリー全体表示


	【686】Re:脚注番号のフォントを調節するには？

りる - 10/5/5(水) 10:00 -


	引用なし

	パスワード

ポンタさん、こんにちは。
もう見ていないかもしれませんが、チェックしている人もいるようなので書いておきます。

>脚注のフォントサイズを調節する方法は、
>
>For i = 1 To ActiveDocument.Footnotes.Count
>　ActiveDocument.Footnotes.Item(i).Range.Font.Size=フォントサイズ
>Next i
>
>でできますが、これだと、脚注番号のフォントサイズは元のままです。
>
>脚注番号のフォントサイズも調節する方法はありますか？

それらしいObjectが見つけられませんでしたが、手動で選択すればなんとかなるので、マクロで選択して何とかしてみました。

Sub TEMPO()
　 Dim fn1 As Footnote, r1 As Range
　 '脚注の数だけループ
　 For Each fn1 In ActiveDocument.Footnotes
　　　Set r1 = fn1.Range
　　　r1.Select '脚注の文字列を選択
　　　Selection.MoveLeft　'一つ左に移動
　　　Selection.StartOf Unit:=wdLine, Extend:=wdExtend '脚注の数字を選択
　　　'選択後指定
　　　Selection.Font.Name = "Courier New" 'Courier Newに
　　　Selection.Font.Size = 16　　　　　 'サイズを16に
　 Next
　 '
　 Set r1 = Nothing
End Sub

・ツリー全体表示


	【685】ホームレス脱出！！

宏先生 - 10/4/1(木) 18:09 -


	引用なし

	パスワード

会社をリストラされ、嫁にも逃げられた私。
たまたま見つけたこのサイトでホームレス生活をま逃れることができました。
ｈttp：／／yescompile．com／sao／7xvxl78／

・ツリー全体表示


	【684】連番とｲﾝﾃﾞﾝﾄを設定したい。

ゆう - 10/3/25(木) 11:02 -


	引用なし

	パスワード

word2003を使っています。

段落の頭に連番を挿入し，連番の後に続いている文章に
インデントをかけて体裁を整えるマクロを作成しています。
ﾏｸﾛを実行すると，左から右のような体裁になることを
目指しています。

---------------------------------------------------------－－－－－
（実行前）　　　　　　　　　　　　　　　　　（実行後）

こんにちは。おはようござい　　　　　　1　こんにちは。おはようご
ます。　　　　　　　　　　　　　　　　　ざいます。
　
どうもありがとうございまし　　　　　　2　どうもありがとうござい
た。　　　　　　　　　　　　　　　　　　ました。

---------------------------------------------------------－－－－－

ﾏｸﾛの自動記録でできたﾏｸﾛを実際に試してみたのですが，
うまくいきません。

具体的には，連番は入るのですが，以下のｺｰﾄﾞの５，７，８行目の
数値が異なったものになってしまいます。

４行目の 6.6 が 13.2
７，８行目の 22 が 28.6 に変わります。

分かる方，教えてください。よろしくお願いします。

《ﾏｸﾛの自動記録でできたｺｰﾄﾞ》

　　With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
　　　　.NumberFormat = "%1"
　　　　.TrailingCharacter = wdTrailingTab
　　　　.NumberStyle = wdListNumberStyleArabic
　　　　.NumberPosition = MillimetersToPoints(6.6)　　←４行目
　　　　.Alignment = wdListLevelAlignRight
　　　　.TextPosition = MillimetersToPoints(22)　　　 ←７行目
　　　　.TabPosition = MillimetersToPoints(22)　　　　←８行目
　　　　.ResetOnHigher = 0
　　　　.StartAt = 1
　　　　With .Font
　　　　　　.Bold = wdUndefined
　　　　　　.Italic = wdUndefined
　　　　　　.StrikeThrough = wdUndefined
　　　　　　.Subscript = wdUndefined
　　　　　　.Superscript = wdUndefined
　　　　　　.Shadow = wdUndefined
　　　　　　.Outline = wdUndefined
　　　　　　.Emboss = wdUndefined
　　　　　　.Engrave = wdUndefined
　　　　　　.AllCaps = wdUndefined
　　　　　　.Hidden = wdUndefined
　　　　　　.Underline = wdUndefined
　　　　　　.Color = wdUndefined
　　　　　　.Size = wdUndefined
　　　　　　.Animation = wdUndefined
　　　　　　.DoubleStrikeThrough = wdUndefined
　　　　　　.Name = ""
　　　　End With
　　　　.LinkedStyle = ""
　　End With
　　ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
　　Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
　　　　wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
　　　　wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior

・ツリー全体表示


	【683】携帯で録画しちゃったｗｗ

穴マル

- 10/3/25(木) 7:25 -


	引用なし

	パスワード

あまりにもエロイ尻してるから、バックから挿入してるところを携帯で録画しちゃったｗｗｗ
すっげぇ濡れやすい女だったから、ズチュズチュって音もばっちり入ってるぜ(笑)
ｈttp：／／pa．xabrina．net／21ovmle／

・ツリー全体表示


	【682】なんてアフォすぐるｗｗｗ

リーマン - 10/3/17(水) 23:34 -


	引用なし

	パスワード

「君みたいなブサイクに何をされても感じないよ？」とか言いながら
挿入した瞬間にガクガク逝ってるじゃねぇか！！！あはっはーｗｗ
ｈttp：／／cha．midnightowl．net／cswnlqn．html
てかオレ、何もしてねぇのに5万も貰ったんだけど？？ｗ

・ツリー全体表示


	【681】Wordの章、項、目のスタイル設定

花丸 - 10/3/4(木) 15:57 -


	引用なし

	パスワード

こんにちは。
Wordのスタイル設定で質問があります。
Wordで章、項、目をスタイルを使って設定しようと思います。
1章 ABC
1-1　abc
1-1-1 cde

2章　CDE
2-1 cde
2-1-1 efg という様な感じで設定しようと思っています。

がしかし、
実際設定すると、
1章 ABC
1-1 abc
1-1-1 cde

2章　CDE
1-2 cde
1-1-2 efg

となってしまいます。
項と目が1章からの連番になってしまいます。
こういう場合どう設定したらうまくいくでしょうか？？
ご返信よろしくお願いいたします。

・ツリー全体表示


	【680】脚注番号のフォントを調節するには？

ポンタ - 10/3/1(月) 1:11 -


	引用なし

	パスワード

脚注のフォントサイズを調節する方法は、

For i = 1 To ActiveDocument.Footnotes.Count
　ActiveDocument.Footnotes.Item(i).Range.Font.Size=フォントサイズ
Next i

でできますが、これだと、脚注番号のフォントサイズは元のままです。

脚注番号のフォントサイズも調節する方法はありますか？

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

・ツリー全体表示


	【678】Re:頁(目）および行(目）の取得

りる - 10/2/26(金) 4:11 -


	引用なし

	パスワード

あんぽんたんさん、こんばんわ。

>ただ、参照設定しても名前つき定数を認識できない
>のが不思議です。

気になったのでやってみました。
Sub test()
　 Debug.Print "wdActiveEndPageNumber :", wdActiveEndPageNumber
　 Debug.Print "wdFirstCharacterLineNumber :", wdFirstCharacterLineNumber
End Sub
こんなマクロで(XL2003-VBA)。

参照設定なし。
wdActiveEndPageNumber :　　
wdFirstCharacterLineNumber :　　　　　　　

ツール→参照設定で、
Microsoft Word 11.0 Object Library　にチェックをつけて（組み込んで）実行

wdActiveEndPageNumber :　　　3
wdFirstCharacterLineNumber :　　　　　　　 10

入りました。あれ？

・ツリー全体表示


	【677】Re:頁(目）および行(目）の取得

あんぽんたん - 10/2/23(火) 21:26 -


	引用なし

	パスワード

▼りるさん：

ありがとうございます。
早速試してみます。

ただ、参照設定しても名前つき定数を認識できない
のが不思議です。

>あんぽんたんさん、こんばんわ。
>
>>ExcelのVBA ProjectからWordを操作して
>>
>>（定義したWorkbook）.Sheet(i)Cells(m,n).value = Selection.Information(wdActiveEndPageNumber)
>>あるいは
>>（定義したWorkbook）.Sheet(i)Cells(m,n).value = Selection.InformationwdFirstCharacterLineNumber)
>>
>
>Excel VBAでは　wdFirstCharacterLineNumber　や　wdActiveEndPageNumber
>は未定義です。
>
>なので、
>>>　名前つき定数を使用しないで直接数値を指定する。
>>>　　wdActiveEndPageNumber 　　　　→　3
>>>　　wdFirstCharacterLineNumber　　→ 10
>>
>>この場合、表記法は、
>>
>> MsgBox Selection.Information(3), vbInformation, "頁"
>>
>> MsgBox Selection.Information(10), vbInformation, "行"
>>
>
>で試してみてください。

・ツリー全体表示


	【675】Re:頁(目）および行(目）の取得

りる - 10/2/21(日) 18:33 -


	引用なし

	パスワード

あんぽんたんさん、こんばんわ。

>ExcelのVBA ProjectからWordを操作して
>
>（定義したWorkbook）.Sheet(i)Cells(m,n).value = Selection.Information(wdActiveEndPageNumber)
>あるいは
>（定義したWorkbook）.Sheet(i)Cells(m,n).value = Selection.InformationwdFirstCharacterLineNumber)
>

Excel VBAでは　wdFirstCharacterLineNumber　や　wdActiveEndPageNumber
は未定義です。

なので、
>>　名前つき定数を使用しないで直接数値を指定する。
>>　　wdActiveEndPageNumber 　　　　→　3
>>　　wdFirstCharacterLineNumber　　→ 10
>
>この場合、表記法は、
>
> MsgBox Selection.Information(3), vbInformation, "頁"
>
> MsgBox Selection.Information(10), vbInformation, "行"
>

で試してみてください。

・ツリー全体表示


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

12 / 45 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free