VBA Word、Information()ランタイムエラー4608範囲外の値
ChengRu 受付中
最終更新日:2021-06-14 17:10
コードは、DOCXファイルからすべてのコメントを取得し、ページと各コメントの行を取得することです
`` `サブexportWordComments_Click()
コメントとしての薄暗いCMT
オブジェクトとしてのDim ExcelApp
オブジェクトとしてのobjwdapp.
Dim CommentsArray
薄暗い行、TEMP、i整数
文字列としての薄暗いファイル名
Word.Documentとして「Dim MyWDoc
'ファイル名を取得します
filename= application.getOpenFileName.
filename= "false"の場合
退場する
終わり
objwdapp= createObject( "word.application")を設定してください
objwdapp.visible= true 'WordApplicationを起動します
mywdoc= objwdapp.documents.open(filename)を設定する
行= mywdoc.commandion.Count.
Redim CommentsArray(1から5行目)
i= 1から列まで
TEMP= TEMP + 1
'ページ
** CommentArray(TEMP、1)= mywdoc.commandion(i).scope.information(WDActiveDpageNumber)**
'ライン
** CommentArray(TEMP、2)= mywdoc.commandion(i).Scope.Information(WDFirstCharacterLineNumber)**
'メモリファレンスコンテンツ
CommentArray(TEMP、3)= mywdoc.commandion(i).scope
'コンテンツを妨げる
コメント保存(TEMP、4)= mywdoc.commandion(i).range.text
'
CommentArray(Temp、5)= MyWDoc.com(i).author
次
ExcelApp= CreateObject( "Excel.Application")を設定します.
'オープンアノテーションtable
set xlswbk= excelapp.workbooks.add.
xlswbk.sheets(1)
.Clecle.Clear
.Range( "A2")サイズ変更(行、5)=コメントアレイ
.Range( "A1")= "ページ番号"
···( "b1")= "行番号"
.Range( "C1")= "元のテキスト"
・.Range( "D1")= "Note Content"
.Range( "e1")= "Note Author"
.columns.AutoFit.
際に終わる
XLSWBK.SAVEAS MYWDOC.PATH&Application.PathSeartor&「Revision Form .XLSX」
xlswbk.close.
excelapp.application.quit.
終了サブ
`` `
私は単語のファイルまたは情報スタイルを変更し、この問題を解決することはできません
返信リスト(回答:1)
1 #
RichMic
あなたはこれをExcelマクロとして実行しているので、あなたがそれらの専門家から助けを求めるならば、それはおそらく最高ですので、これをそのOfficeプログラミングカテゴリに動かしています.
ほとんどの場合、エラーメッセージがREDIMステートメントから来ています.redimステートメントで動作する1次元配列のみが機能します.