エクセルの学校：全文検索：Hyper Estraier： VBA ��

Results of 1 - 1 of about 14736 for VBA �� (0.003 sec.)

[[20140314102659]]: #score: 3407; @digest: 7a6dafd899ab0b6523758309e7f51afc; @id: 64693; @mdate: 2014-03-14T03:33:37Z; @size: 2347; @type: text/plain; #keywords: inlineshapes (36149), objword (27930), ドvb (5492), objdoc (5048), ルvb (4494), activedocument (3508), folderpath (2967), 低レ (2698), 前段 (1895), document (1869), myfile (1634), getextensionname (1593), ド文 (1589), documents (1343), ワー (1046), リケ (985), word (915), visible (904), getfolder (901), やシ (837), アレ (786), 名" (744), 依存 (737), ルや (665), ーシ (633), ダ名 (630), アプ (604), ード (585), 番目 (570), 文書 (564), filesystemobject (562), ファ (544); 『エクセルvbaからワードの操作』（とまと）
vbaを初めてまだまだ少しの初心者です。エクセルvbaからワードを開き、ワード文書内のInlineShapesの2番目のものをコピーして、エクセルのシートにペーストしたいです。エクセルvbaからワードを開くところはできているのですが、 InlineShapesを指定してコピーするところで困っています。ワードvbaで、InlineShapesの2番目のものをコピーする時は以下のコードから操作できたのですが、これをエクセルvba上で行うにはどのようにアレンジしたらよろしいでしょうか? Dim doc As Document Set doc = ActiveDocument doc.InlineShapes(2).Select Selection.Copy 低レベルな質問でしたら申し訳ございません。ご教示お願い致します。＜使用 Excel:Excel2007、使用 OS:unknown ＞ ---- Word の処理に依存した部分は内容が不明ですが、前段だけ。 http://www.simple-sys.com/blog/2008/03/29/172/ にあるように、参照設定で Word をチェックします。 EXCEL でのコードは Sub Sample() Dim wd As New Word.Application wd.Visible = True Dim doc As Document Set doc = wd.Documents.Open("D:¥sample.docx") : End Sub EXCEL でファイルやシートにまたがるときはファイルやシートを指定するようにアプリケーションをまたがるときはアプリケーションを指定して処理します。（Mook） 2014/03/14(金) 10:57 ---- ご回答ありがとうございます。説明不足で申し訳ありませんでした。ワードを開くところは以下のコードを作りました。 'フォルダの中のファイルを読み込む Const FolderPath = "フォルダ名" Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Set objWord = CreateObject("Word.Application") objWord.Visible = True Dim i As Integer i = 1 For Each myFile In fso.GetFolder(FolderPath).Files If fso.GetExtensionName(myFile.Path) = "RTF" Then Set objDoc = objWord.Documents.Open(myFile.Path) ワードで開きたいファイルはRTFファイルです。その後は objWord.InlineShapes(2).Select objWord.Selection.Copy Sheets("Sheet1").Select Cells(A,1).PasteSpecial Paste:=xlPasteValues objDoc.Close End If i = i + 1 Next としたのですが、「objWord.InlineShapes(2).Select」のコードがうまくいきませんでした。よろしくお願い致します。（とまと） 2014/03/14(金) 11:07 ---- 解決いたしました。ありがとうございました。（とまと） 2014/03/14(金) 12:33 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201403/20140314102659.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ