| |
教えていただきたく投稿いたしました。
環境はWinXP Word2000です。
Accessで作成したCSVファイルを読み込み、
文章を自動作成したいと考えてます。
フォームは下記のような感じです。
┌──────────────┐
│┌─────┐ │
││ │←(ﾃｷｽﾄﾎﾞｯｸｽ) │
││ │ │
││ │ │
│└─────┘ こ│←段組みしています。
│ こ│
│ か│
│ ら│
│ 縦│
│ 書│
│ き│
└──────────────┘
（テキストボックスと縦書き部分は段組みしています）
CSVファイルの内容
郵便番号、住所、氏名、文章
（項目名はデータに入れません）
郵便番号、住所、氏名はテキストボックス内に入力して、
文面は縦書きの部分に入力し、改ページをさせたいです。
例）
データ内容
111-1111 東京都○○ 山本太郎 元気ですか！
222-1111 東京都△△ 山下花子 久しぶり！
┌──────────────┐
│┌─────┐ │
││111-1111 │ │
││東京都○○│ │
││山本太郎 │ │
│└─────┘ 元│
│ 気│
│ で│
│ す│
│ か│
│ ！│
│ │
└──────────────┘
改ページ
┌──────────────┐
│┌─────┐ │
││222-1111 │ │
││東京都△△│ │
││山下花子 │ │
│└─────┘ 久│
│ し│
│ ぶ│
│ り│
│ ！│
│ │
│ │
└──────────────┘
と動作させたいのです。
Selection.TypeText Text:="元気ですか！"
や
ActiveDocument.Shapes("ﾃｷｽﾄﾎﾞｯｸｽ").Select
Selection.TypeText Text:="111-1111"
Selection.TypeParagraph
Selection.TypeText Text:="東京都○○"
Selection.TypeParagraph
Selection.TypeText Text:="山本太郎"
などの処理は解るのですが、データを読み込み、
１件読み込んだら改ページして次の１件…、の
部分がさっぱり･･･。
よろしければヒントをいただきたいと思います。
よろしくお願いします。
|
|
HIRO
- 09/12/10(木) 17:28 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
≪
