エクセルの学校：全文検索：Hyper Estraier：差し込み印刷

Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)

[[20170921153700]]: #score: 8241; @digest: b7fd40fc62aa1277a8cb9e14a6ea0afc; @id: 74443; @mdate: 2017-09-25T05:36:11Z; @size: 3036; @type: text/plain; #keywords: word2010 (9777), cfile (6362), 表フ (5180), 刷ht (4759), 」ー (3276), し込 (3217), cpath (3083), 流し (2629), ミ様 (2500), 目名 (2445), 類( (1533), synapse (1474), コナ (1467), ナミ (1438), 成済 (1257), doevents (1199), 2017 (1163), 完結 (1112), ーマ (972), マッ (919), ー「 (917), 項目 (853), 差し (828), エク (826), 作成 (788), ィー (773), ワー (747), 込み (733), クセ (726), 金) (602), 成さ (589), 文書 (564); 『ワードで作成した表フォーマットをエクセルへ変換したい』（ぽーちゃん）
ワードで、すでに作成された表フォーマット（国で決められたフォーマットで作成された検査記録用紙）をエクセルで作成しなおしたいです。ここへ入力したい情報が書かれているデータがエクセルで作成されていてこれを、流し込みで作成したいためです。ワードで、すでに、80枚ほど作成済で今回は完結しているのですがエクセルへ変換して次期工事からエクセルで管理したいのですがゼロから作成しなおすしかないでしょうか? ＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- >ここへ入力したい情報が書かれているデータがエクセルで作成されていて >これを、流し込みで作成したいためです。えっ?それは差し込みということではなくてですか? （コナミ） 2017/09/21(木) 15:50 ---- 「名前を付けて保存」ー「ファイルの種類(T):」ー「Webページ（html）」形式保存エクセルでそのファイルを開く（++） 2017/09/21(木) 16:06 ---- コナミ様差し込みでは、なく流し込み?です。転記? たとえば、コピー元ファイルのA1セルを転記先ファイルのB10 のような感じです。同じ項目内容を、入れたりするので最終的には、マクロかなと思ってます。（ぽーちゃん） 2017/09/22(金) 06:34 ---- >差し込みでは、なく流し込み?ですえっと、エクセル・ワード間にはワードの原稿にデータ部分だけエクセルのデータを入れて書類を作る「差し込み印刷」という機能があるのですが、それはご存知であえてエクセルでつくり直すということですか? （コナミ） 2017/09/22(金) 08:38 ---- ご参考まで。文書への差し込み印刷 http://www4.synapse.ne.jp/yone/word2010/word2010_sasi_bunsyo.html （1111） 2017/09/22(金) 09:10 ---- コナミ様 111様ありがとうございます。やってみたのですがフィールドの挿入のところでセル内に入力されている項目名ではなく F1、F2、F3・・・F6 と、表示されてしまいます。（ぽーちゃん） 2017/09/22(金) 14:16 ---- Excelのデータの1行目が項目名ではないのでF1(フィールド1）と出てきてるんじゃないかな。 1行目が項目名じゃなくても出てくることはあるけど、上の行から見て行って最初にデータが入っている行を項目名=タイトル行だと認識するので、表のタイトルとか他のことが書いてあると、項目名が出てこないよ。流し込み用に先頭行が項目名の表を作って試してみて。（1111） 2017/09/22(金) 15:50 ---- 多数のブックをExcelシートに持ってこれさえすれば良さそうなので、以下とか? 新規ブックで動かしてみてください。（Excel以外のオブジェクトを操作するので、お薦めしたくないコードですが…） Sub test() Const cPATH = "c:¥tmp¥" Dim WD As Object Dim cFile As String Dim i As Long With CreateObject("Word.Application") cFile = Dir(cPATH & "*.docx") While cFile <> "" .Visible = True Set WD = .Documents.Open(cPATH & cFile) With ThisWorkbook .Sheets.Add after:=.Sheets(.Sheets.Count) ActiveSheet.Name = cFile WD.Tables(1).Range.Copy DoEvents ActiveSheet.Paste DoEvents End With WD.Close cFile = Dir Wend .Quit End With End Sub （???） 2017/09/25(月) 14:36 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201709/20170921153700.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ