Excel VBA質問箱 IV

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

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


73902 / 76732 ←次へ | 前へ→

【7302】Re:Wordのプロパティの変更について
回答  くま  - 03/9/2(火) 1:21 -

引用なし
パスワード
   自己レスですんません。
解決しました。(単に代入のあと保存すればOKでした。)
ちなみにWord板の方が良かったですね。
Excelで作っていたものですから・・・
重ね重ねお詫びいたします。

ちなみにこんな感じです。見せられるようなソースではないですが、
良かったら利用してください。

Sub WordProperty()
Dim Msg As String
Dim FileName As String
Dim FilePath As String
Dim WordApp As Word.Application
Dim Wodrdoc As Word.Document


FilePath = Application.ActiveWorkbook.Path

Msg = " ディレクトリ=" + FilePath + "のファイルプロパティリストを作成します。"
MsgBox Msg
Application.ScreenUpdating = False

Worksheets("結果").Select
Range("A1:IV65536").Clear
Range("A1").Value = "ファイル名"
Range("B1").Value = "副題"
Range("C1").Value = "タイトル"
Range("D1").Value = "作成日時"
Range("E1").Value = "ページ数"
Range("F1").Value = "英文ワード数"
Range("G1").Value = "日本語文字数"
Range("H1").Value = "バイト数"
Range("I1").Value = "作者"
Range("J1").Value = "会社名"


Set WordApp = CreateObject("word.application")
WordApp.Visible = True

FileName = Dir(FilePath & "\*.doc")
i = 2
  
Do While FileName <> ""

  Set Worddoc = WordApp.Documents.Open(FilePath & "\" & FileName)
   
  Range("A" & i).Value = FileName
  Range("B" & i).Value = Worddoc.BuiltinDocumentProperties("Subject")
  Range("C" & i).Value = Worddoc.BuiltinDocumentProperties("Title")
  Range("D" & i).Value = Str(Worddoc.BuiltinDocumentProperties("Creation Date"))
  Range("E" & i).Value = Worddoc.BuiltinDocumentProperties("Number of Pages")
  Range("F" & i).Value = Worddoc.BuiltinDocumentProperties(wdPropertyWords)
  Range("G" & i).Value = Worddoc.BuiltinDocumentProperties("Number of Characters")
  Range("H" & i).Value = Worddoc.BuiltinDocumentProperties("Number of Bytes")
  Range("I" & i).Value = Worddoc.BuiltinDocumentProperties("Author")
  Range("J" & i).Value = Worddoc.BuiltinDocumentProperties("Company")
  Worddoc.BuiltinDocumentProperties("Company") = "test"
  i = i + 1
  Worddoc.Close
  FileName = Dir()
Loop

WordApp.Quit

'オブジェクトのクリア
Set Worddoc = Nothing
Set WordApp = Nothing

End Sub
0 hits

【7285】Wordのプロパティの変更について くま 03/8/31(日) 6:34 質問
【7302】Re:Wordのプロパティの変更について くま 03/9/2(火) 1:21 回答

73902 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free