Word VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
16 / 45 ﾍﾟｰｼﾞ ←次へ　｜　前へ→
【601】Re:Word上のUserformから得た情報を所定の...
発言  マクロマン  - 09/2/24(火) 15:50 -
引用なし
パスワード
   >Excelファイルを開く動作が現れることなく記録したいです。

ExObj.Visible = True
としたらエクセルが表示されます。

>ExObj.Visible = True
を入れないか、あるいは
ExObj.Visible = False
としたらエクセルが非表示になります。
非表示にはなってますがエクセルは起動してますので、
作業完了後はブック、アプリケーションを閉じる必要があります。
・ツリー全体表示
【600】Re:Word上のUserformから得た情報を所定の...
発言  マクロマン  - 09/2/24(火) 15:46 -
引用なし
パスワード
   ワードVBAでエクセルを制御する方法です。
一度エクセルをオブジェクトとして設定したら後は
エクセルVBAと変わりはないです。

'参照設定：Microsoft Excel **.* Object Library

Sub xlseigyo()
Dim ExObj As Object
Dim objwb As Object
Dim wbpath As String
　wbpath = "D:\test\AA.xls"
　Set ExObj = CreateObject("Excel.Application")
　Set objwb = ExObj.Workbooks.Open(wbpath)
　objwb.Worksheets(1).Cells(1, 1).Value = "hoge"
　objwb.Save
　objwb.Close
　Set objwb = Nothing
　ExObj.Quit
End Sub
・ツリー全体表示
【599】Word上のUserformから得た情報を所定のExc...
質問  青  - 09/2/24(火) 9:01 -
引用なし
パスワード
   HP上で、Wordにて作成したUserformにてアンケートを実施し、その際にアンケート結果を自動的に所定のExcelファイルに保存する場合どのようにすればいいのかわからなくて困っています。
可能であるならば、Excelファイルを開く動作が現れることなく記録したいです。
要するに、Wordにて入力したデータを所定のExcelファイルに、Excelファイルを開くことなく保存したいです。
(Excelのみであるならば作成したUserformから自動保存はできましたが、Wordとなると勝手が違って途端にできなくなりました。)
・ツリー全体表示
【598】Re:ワード内の色がついた文字をマクロ（VB...
発言  とおりすがり  - 09/2/8(日) 18:07 -
引用なし
パスワード
   マルチ先で解決したのでこちらは放置のようです。
・ツリー全体表示
【597】Re:ワード内の色がついた文字をマクロ（VB...
発言  とおりすがり  - 09/1/27(火) 21:13 -
引用なし
パスワード
   回答者への参考のため張ってておきます。

ワード内の色がついた文字をマクロ（VBA）で削除したい
ｈｔtp://security.okwave.jp/qa4665405.html?ans_count_asc=20
・ツリー全体表示
【596】ワード内の色がついた文字をマクロ（VBA）...
質問  たろう  - 09/1/27(火) 19:24 -
引用なし
パスワード
   お世話になります。

色指定で置換処理を実行するマクロを作成したいと思っています。

置換￥オプション￥書式￥色指定で空白と置換　の作業を
「マクロを記録」の状態で実行したのですが、マクロに記録されません。。。

VBAに追記する形、どのような形でもいいのでマクロで色指定も含めた置換方法を教えていただけないでしょうか？

何卒よろしくお願いします。
・ツリー全体表示
【595】Re:VBE（Word)に入力できなくて困っています
お礼  VBE困り中  - 09/1/27(火) 16:13 -
引用なし
パスワード
   りる様、アドバイスありがとうございます。

おっしゃるとおり、IMEの問題でした。
ただし、再起動だけでは直りませんでした。
どうやら、IMEの機能の「テキストサービス」が影響していたみたいです。

IMEの設定を下記のサイトを参照して、トラブルを解決することが出来ました。

テキストサービスが有効になっている際に発生する現象について
htt p://support.microsoft.com/default.aspx?scid=kb;ja;898663
・ツリー全体表示
【594】Re:VBE（Word)に入力できなくて困っています
発言  りる  - 09/1/17(土) 16:31 -
引用なし
パスワード
   VBE困り中 さん、こんにちは。

>また、解決方法等ご存知でしたら、お知恵を貸してください。

参考程度ですが。
htt　p://www.accessclub.jp/bbs3/0444/superbeg130568.html

PCの再起動をされましたか？
再起動で治る問題はけっこう多いです。

あと、Wordのバージョンは何ですか？
MacのWordでそういう現象がある（あった）事もログで出てきました。
マイクロソフトの情報へのリンクは残念ながら消えているようですが。
・ツリー全体表示
【593】VBE（Word)に入力できなくて困っています
質問  VBE困り中  - 09/1/13(火) 11:26 -
引用なし
パスワード
   Wordで、マクロの編集を行っていたところ、
急にVisual Basic Editor(VBE)にて入力できなくなりました。

日本語の入力を行おうとすると、現在アクティブなVBE画面ではなく、
表示されていないWord文書の方に入力されています。

半角英数字のみの場合は、VBEに入力できるのですが、
スペース(半角・全角両方)と日本語入力をすると、
Word文書に入力されてしまいます。

上記の現象で、まともにマクロの編集ができません・・・
同じような現象を経験した方、いませんか？
また、解決方法等ご存知でしたら、お知恵を貸してください。
宜しくお願いします。
・ツリー全体表示
【592】エクセルからの差込印刷で空白エラー
質問  カーレスキュウリ  - 08/12/13(土) 14:06 -
引用なし
パスワード
   助けてください。

　職場のエクセルシートからワードへ差込による帳票を作成しています。
以下の条件の時にうまく表示されません。どのように設定すればうまく表示されるのでしょうか？

・　住所録のようなシートですがＥ列は日付けの列です。
・　Ｅ列はセルの書式設定で日付（H13.5.19の形式です）
・　その他の列には住所や氏名が並んでいます。
・　Ｅの日付は行によって入っているもの、いない行があります。
・　ワード上ではフィールドの表示設定によって「平成○年○月○日」と表示させています。
・　１レコード目（すなわちセルＥ２）空白であったときワードでは表示されないのはいいんですが、Ｅ３に例えば「H20.1.1」とのデータが入力されていても「平成20年1月1日」ではなく本日の日付である「平成20年12月13日」と表示されるときがある。

といった状態です。で、これをなんとか１レコード目が空白であっても２レコード目が正しく表示されるようにしたいのです。

　これはワードの設定なのでしょうか？それともエクセルの設定なのでしょうか？どのように設定すればよいのでしょうか？よろしくお願いします。

ちなみにエクセルワードは２００３、ＯＳはＸＰ　ＳＰ２です。
・ツリー全体表示
【591】Re:変更履歴のページ番号
回答  りる  - 08/9/13(土) 17:49 -
引用なし
パスワード
   夏虫 さん、こんにちは。

>Revisionsプロパティを使用して、内容は抽出できましたが、
>履歴に紐付くページ番号の抽出方法が分かりません。
紐付くページ番号という意味がわかりませんが、履歴に関連するのがどこのページが知りたいという意味でしょうか？

範囲に関する情報（ページ番号とか）を取得するにはInformationプロパティを使用します。

Sub Macro1()
　 Dim obj As Revision, msg As String
　 For Each obj In ActiveDocument.Revisions
　　　With obj
　　　　 'ページとタイプと内容を表示
　　　　 msg = "TYPE: "
　　　　 'タイプを分岐 wdRevisionInsert => Insertと表示しています。
　　　　 Select Case .Type
　　　　　　Case 1: msg = msg & "Insert"
　　　　　　Case 2: msg = msg & "Delete"
　　　　　　Case 3: msg = msg & "Property"
　　　　　　Case 4: msg = msg & "ParagraphNumber"
　　　　　　Case 5: msg = msg & "DisplayField"
　　　　　　Case 6: msg = msg & "Reconcile"
　　　　　　Case 7: msg = msg & "Conflict"
　　　　　　Case 9: msg = msg & "Replace"
　　　　　　Case 10: msg = msg & "ParagraphProperty"
　　　　　　Case 24: msg = msg & "Marking"
　　　　　　Case Else: msg = msg & "???"
　　　　 End Select
　　　　 msg = msg & vbCrLf
　　　　 msg = msg & "TEXT:" & .Range.Text
　　　　 '
　　　　 MsgBox msg, vbInformation, "Page " & _
　　　　　　　　.Range.Information(wdActiveEndAdjustedPageNumber)
　　　End With
　 Next
End Sub
・ツリー全体表示
【590】Re:VBでワードの書式を設定したい
お礼  みかん  - 08/9/12(金) 17:26 -
引用なし
パスワード
   りるさん

教えていただいてありがとうございました。
本当に困っていたので助かりました。
今後ともよろしくお願いします。
・ツリー全体表示
【589】Re:VBでワードの書式を設定したい
回答  りる  - 08/9/12(金) 15:28 -
引用なし
パスワード
   みかん さん、こんにちは。

>VB6.0でワードファイルにデータを出力するツールを作成しています。
>ワードファイルには、セルを作成しており、
>ワードだと、[書式]-[段落]-[インデントと行間隔]の行間の設定を
>VBだとどうやっていいのかわかりません。
>#行間：固定値
>#間隔：7pt
>#に設定したい。

アクティブな文書の一つ目の表の段落書式に＃の条件を適用します。
Sub Macro1()
　 '段落書式＝＞ParagraphFormat
　 With ActiveDocument.Tables(1).Range.ParagraphFormat
　　　.LineSpacingRule = wdLineSpaceExactly
　　　.LineSpacing = 7
　 End With
End Sub

です。お試しください。
・ツリー全体表示
【588】VBでワードの書式を設定したい
質問  みかん  - 08/9/9(火) 9:12 -
引用なし
パスワード
   VB6.0でワードファイルにデータを出力するツールを作成しています。
ワードファイルには、セルを作成しており、
ワードだと、[書式]-[段落]-[インデントと行間隔]の行間の設定を
VBだとどうやっていいのかわかりません。
#行間：固定値
#間隔：7pt
#に設定したい。

ワードのマクロを取って上記処理をやってみたのですが、
そうすると、セル以外の行まで行間隔が7ptになってしまいました。

ご存知の方教えてください。
よろしくお願い致します。
・ツリー全体表示
【587】Re:PDF Maker が起動出来ない。
発言  りる  - 08/9/3(水) 19:25 -
引用なし
パスワード
   mg さん、こんばんわ。
もう解決されてるかもしれませんが。

>ついこの間まで使用できていた、PDF Makerが表示されなくなってしまいました。
>ツールバーのどこを探しても、ユーザーを見てもコマンドはありません。
>どなたか、復元する方法を教えて下さい。

htt　p://support.adobe.co.jp/faq/qadoc/AJ25.nsf/0/58c684a50595bf3849256d2d001ca982
公式の手順でもだめですか？
ここに示されている*.dotファイルありますか？
・ツリー全体表示
【586】Re:パスワード
回答  kohji  - 08/8/29(金) 17:02 -
引用なし
パスワード
   つよしさん　こんにちは

こんな感じでパスワードをかけることができました
自由にアレンジしてお使いくだされ

----------------------------------------------------
　　Dim objApp As Object

　　Set objApp = CreateObject("Word.Application")

　　With objApp
　　　　.Documents.Open "Wordファイルの絶対パス"

　　　　.ActiveDocument.Password = "読み取りパスワード"
　　　　.ActiveDocument.WritePassword = "書き込みパスワード"

　　　　.ActiveDocument.Save

　　　　.Quit
　　End With

　　Set objApp = Nothing
----------------------------------------------------
・ツリー全体表示
【585】パスワード
質問  つよし E-MAIL  - 08/8/18(月) 11:17 -
引用なし
パスワード
   VBAを使って既存のdocファイルに個別のパスワードをかけたいと思っているんですが、
どのようにすればよいでしょうか？
・ツリー全体表示
【584】PDF Maker が起動出来ない。
質問  mg E-MAIL  - 08/7/18(金) 16:11 -
引用なし
パスワード
   はじめまして。
どなたか詳しい方のアドバイスよろしくお願い致します。

ついこの間まで使用できていた、PDF Makerが表示されなくなってしまいました。
ツールバーのどこを探しても、ユーザーを見てもコマンドはありません。
Excelではコマンドは出てきます。

Wordとpdfのソフトをアンインストールして、もう一度インストールしても
それでも出てきません。
ショートカットを右クリックでもpdfに変換する事は出来ません。

どこかの設定をいじってしまったのでしょうか？
どなたか、復元する方法を教えて下さい。

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

office 2003
windows 2000
PDF Marker6.0
・ツリー全体表示
【583】変更履歴のページ番号
質問  夏虫  - 08/7/3(木) 20:45 -
引用なし
パスワード
   変更履歴を抽出する機能を作っています。

Revisionsプロパティを使用して、内容は抽出できましたが、
履歴に紐付くページ番号の抽出方法が分かりません。


ご存知の方がおられましたら、ご教授下さい。
宜しくお願い致します。
・ツリー全体表示
【582】ＰＤＦ→ワード→エクセル
質問  操否  - 08/7/3(木) 15:20 -
引用なし
パスワード
   こんにちは

こちらでＱしながら、ワード、ＰＤＦ操作共、あまりわかりません
申し訳ありませがよろしくお願いいたします
エクセル、アクセスは、一般、VBA何とか操作できます

行いたい事は
表スタイルPDFをエクセルに取り込みたい
です

状況

最初に元エクセル？もらえればいいのですがこれは不可で
ＰＤＦで配布されています

対象のＰＤＦは見積書で
頭　文書スタイル
以降　表スタイル　で　数百ページあります


ＰＤＦ→ワード
表スタイルPDFをアクロバットでリッチテキストに保存しました


ワード→エクセル
上記ワードで開くと

Ｑ1　ＰＤＦの　表示／ページ表示／単一ページ
　　　のように表示されています
　　　これを、ＰＤＦの　表示／ページ表示／連続ページ
　　　のように表示することは出来るのでしょうか


Ｑ1補足
　ＰＤＦでは
　単一ページ表示だと、CTRL+Aでは、単一ページ内しか選択できない
　連続ページ表示だと、CTRL+Aで全ページ選択できる
　ので、ワードでも全ページ選択できるのでは思ってのＱです


Ｑ２　実際のＰＤＦでは

　内訳001
┌─────┬─────┬─────┬─────┐
│　　　　　│　　　　　│　　　　　│　　　　　│
├─────┼─────┼─────┼─────┤
│　　　　　│　　　　　│　　　　　│　　　　　│
├─────┼─────┼─────┼─────┤
│　　　　　│　　　　　│　　　　　│　　　　　│
└─────┴─────┴─────┴─────┘

が数百ページ連続しています


上記をrtfワードで見ると

印刷レイアウト表示では

　内訳001　が///の枠で囲まれた1つのオブジェト？で１ページ

┌─────┬─────┬─────┬─────┐
│　　　　　│　　　　　│　　　　　│　　　　　│
├─────┼─────┼─────┼─────┤
│　　　　　│　　　　　│　　　　　│　　　　　│
├─────┼─────┼─────┼─────┤
│　　　　　│　　　　　│　　　　　│　　　　　│
└─────┴─────┴─────┴─────┘
　が、///の枠で囲まれた1つのオブジェト？で１ページ

のようになっています

この///の枠で囲まれた　内訳001　オブジェトをエクセルにコピーすると
そのままオブジェクトがエクセルにコピーされてしまいます
で、その中身は表組みはなくなっていて
PDFからテキストコピーと同じように見えます


Ｑ３　///の枠で囲まれた　内訳001　オブジェトの
　　　表内を　CTRL+A　で、選択しコピー
　　　エクセルに貼り付けで表組みのまま貼り付け出来ます
┌─────┬─────┬─────┬─────┐
│　　　　　│　　　　　│　　　　　│　　　　　│
├─────┼─────┼─────┼─────┤
│　　　　　│　　　　　│　　　　　│　　　　　│
├─────┼─────┼─────┼─────┤
│　　　　　│　　　　　│　　　　　│　　　　　│
└─────┴─────┴─────┴─────┘


Ｑ４　やりたいことは、Ｑ３
を、すべて手動で行えば希望の操作がかないますが
これををVBAで処理したい
です


アドバイス　よろしくお願いいたします


また
もっと簡単な方法等あれば、あわせてアドバイスよろしく
お願いいたします
・ツリー全体表示
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
16 / 45 ﾍﾟｰｼﾞ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207177
(SS)C-BOARD v3.8 is Free