Word2000で作成したファイルが100ほど入っているフォルダがあるのですが、そのすべてのファイルの文字数をまとめてカウントする方法ってないのでしょうか?もしありましたら、おしえていただけないでしょうか?

A 回答 (2件)

マクロを使えば可能だと思います。


1.マクロは使えますか。
2.ワードでマクロを作成できますか。
3.100ファイルのワードをテキスト形式で保存
をマクロで一括処理できますか。
これができたら可能です。

ちなみに
テキスト形式をエクセルで読み込んで
合計文字数を記録するということはできます。
1から3が不明で自分ではできませんでした。
エクセルでワード形式が読めたらできるのですが。
不明、不足は質問ください。
    • good
    • 0
この回答へのお礼

お返事いただきありがとうございました。
マクロに関しては全くの無知なので難しそうですね。地道に各ファイルのプロパティで調べようと思います。

お礼日時:2002/02/10 22:29

テキストファイルではないので数えられません。

    • good
    • 0
この回答へのお礼

お返事いただきありがとうございます。
大変ですが、各ファイルごとの文字数を地道に足していこうと思います。

お礼日時:2002/02/10 22:32

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qwordファイルから他のwordファイル参照

2つのwordファイルがあるとします。(a.doc、b.docとします。)この時、a.docの内容の一部分をb.docの内容にしたいです。a.docを開く毎に、b.docの内容を参照するような設定はwordであるのでしょうか?b.docの内容が更新されるたびに、a.docに反映するのは、かなり面倒です。ご存知の方、宜しくお願いします<(_ _)>

Aベストアンサー

リンク貼付で。
元が更新されれば差し込み先も更新されます。

編集>形式を指定して貼付>リンク貼付にチェックして、Word形式でOK

QOutlookで作成したメール数100件にまとめて添付ファイルをつけたい

職場でOutlook2007を使っています。
試験の結果を学生に送信する場合、Wordの差し込み印刷機能を使って各データを添付ファイルとして送信します。
この時に、いったん送信ボックスに置いたメール(成績通知のWordファイルが添付済)に、全学生共通のお知らせが書かれたPDFファイルを、すべてのメールに一度で追加する方法があったら教えてください。
件数が多いので、まとめて添付が出来ると良いなと思ったのですが…

Aベストアンサー

なかなか回答がつかないようなので、とりあえず叩き台として。

私はOutlook2003を使用しているのですが、マクロを使わない限り難しいようです。
(2007に新機能でもあれば別です)

で、見よう見まねで書いてみました。

動作の概要
 ダイアログで選択したファイルを、直前に選択していた全てのメールに添付する。
 (すでに添付ファイルがある場合も、それにプラスして添付します)

Sub Sample()

 Set xlApp = CreateObject("Excel.Application")
 Set mySelectedMailItems = Application.ActiveExplorer.Selection

 myAttachment = xlApp.getopenfilename()
 If myAttachment = False Then Exit Sub

 For Each Item In mySelectedMailItems
  Item.Attachments.Add myAttachment
  Item.Save
 Next Item

End Sub
(Outlook2003で動作確認)

いろいろとダメ出しされそうなコードですが、一応動くことは動くはずです。
なお、わけあって、Excelがインストールされている必要があります。

Wordで差し込んだ上にOutlookでVBAを使うくらいなら、いっそ、
「成績管理・アドレス管理からメール送信まで、一貫してExcelVBAでやる」
というのも選択肢になるかもしれません。

なかなか回答がつかないようなので、とりあえず叩き台として。

私はOutlook2003を使用しているのですが、マクロを使わない限り難しいようです。
(2007に新機能でもあれば別です)

で、見よう見まねで書いてみました。

動作の概要
 ダイアログで選択したファイルを、直前に選択していた全てのメールに添付する。
 (すでに添付ファイルがある場合も、それにプラスして添付します)

Sub Sample()

 Set xlApp = CreateObject("Excel.Application")
 Set mySelectedMailItems = Application.A...続きを読む

Qword2000で作成した文書はword2003で開けるか

word2000で作成した文書はword2003でも開けますか?
教えてください

Aベストアンサー

全く問題なく開けます。逆も、特殊な機能を使ってない限り可能です。

QWord2000(未だに2000)、1画面に2ページ表示にしてしまい困っています。

主題の通りなのですが、
表示→ズーム→倍率で調整する方法以外で、1画面1ページ表示の対応策はないものでしようか?

Aベストアンサー

[ズーム]サイズを変更しないでの対応方法だと、Wordのウィンドウ幅を
現在の幅よりも狭くするしかないと思いますよ。

表示で2ページに並ぶかどうかは、用紙サイズに対してのズームサイズと
ウィンドウ幅の割合で決まります。
指定したズームサイズで2ページ並ぶだけのウィンドウ幅が必要なので、
ズームで指定したときに並ぶかどうかが決まるのです。

Q複数のCSVファイルを1つのファイルにまとめる方法

EXCELで、あるフォルダ(例:Dir1)に格納されている複数のCSVファイルを読み込んで、そのファイルの1行目をコピーし、別ファイル(a.csv)にペーストしたいと思っております。
例えば、Dir1には1.csv,2.csv,3.csvの3つのCSVファイルが存在した時に、a.csvに出力されるのは、

-----------------------------------
1.csvの1行目
2.csvの1行目
3.csvの1行目
-----------------------------------

となるのが、理想の形です。
方法を知っている方がいらっしゃったら
お教えいただければと思います。

Aベストアンサー

簡単に作ってみました。

Sub Macro1()
Dim FolderName As String

FolderName = "C:\dir1" 'csvが入ってるフォルダまでのパス

'ファイル検索
With Application.FileSearch
.NewSearch
.Filename = "*.csv" '.csvを全て検索
.FileType = msoFileTypeAllFiles
.LookIn = FolderName 'csvが入ってるフォルダを検索対象
.SearchSubFolders = False
.Execute '検索実行

'検索結果が0の場合終了
If .FoundFiles.Count = 0 Then GoTo Exit_GetTextInformation

FNum = FreeFile 'ファイル番号確保

'新規csv作成
Workbooks.Add

For i = 1 To .FoundFiles.Count

'csvファイルから一行目を取得
Open .FoundFiles(i) For Input As FNum

Line Input #FNum, Buff

Close FNum

'テキストファイルの情報をa.csvに書き込み
Cells(i, 1) = Buff '一行目

Next i

End With

'a.csvという名前で同階層に保存
ActiveWorkbook.SaveAs Filename:="C:\dir1\a.csv"

ActiveWorkbook.Close


Exit_GetTextInformation:

End Sub

こいつをボタンに組み込んでみてください。
適当に作ったので修正必要かもしれません。。。^^;
ご参考までに。

簡単に作ってみました。

Sub Macro1()
Dim FolderName As String

FolderName = "C:\dir1" 'csvが入ってるフォルダまでのパス

'ファイル検索
With Application.FileSearch
.NewSearch
.Filename = "*.csv" '.csvを全て検索
.FileType = msoFileTypeAllFiles
.LookIn = FolderName 'csvが入ってるフォルダを検索対象
.SearchSubFolders = False
.Execute '検索実行

'検索結果が0の場合終了
If .FoundFiles.Coun...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報