質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.96%

RTFファイルのフィールドを解除し、文字列に変換する

受付中

回答 0

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 2,457

score 9

WordVBAの初心者です。
宜しくお願い致します。

RTFファイルのフィールドコードにページ数があります。
それを固定し、RTFファイル複数を結合した時
フィールドコードが更新されないようにしたいです。

下記のコードを試し、上書き保存をしても変更になりませんでした。
なので、結合する際ページ数が振り直されてしまいました。。

■ActiveDocument.Fields.Unlink
■ActiveDocument.Fields.Locked = True

やりたいことは
[Ctrl]+[Shift]+[F9]キーを押した時の処理をVBAで行いたいです。
参考URL
https://www.moug.net/tech/woopr/0110040.html

Sub RTFファイル結合()

Dim app As Excel.Application
Dim doc_name As String

pathname = "C:\Users\9A150\Desktop\RTF格納\"

'Excelを起動する
Set app = CreateObject("Excel.Application")

'abc.xlsを開く
Dim book As Excel.Workbook
Set book = app.Workbooks.Open("C:\Users\9A150\Desktop\RTF格納\bbb.xlsx")
app.Visible = True

'ファイル名一覧シートを指定
Dim sht As Object
Set sht = book.Worksheets("Sheet1")

'A列を基準に昇順で並べ替えます
sht.Range("A2:B10").Sort Key1:=sht.Range("A1"), Order1:=xlAscending, Header:=xlYes

For r = 2 To sht.Cells(sht.Rows.Count, "A").End(xlUp).Row     '行を2から最終行まで

If sht.Cells(r, "A").Value <> "" Then 'A列注目行の値が""でなければ

'B列からファイル名を取得する
doc_name = sht.Cells(r, "B").Value

Documents.Open FileName:=pathname & doc_name

Selection.Fields.Unlink

'Selection.Fields.Locked = True

'SetAttr ActiveDocument, vbNormal

ActiveDocument.SaveAs2 FileName:=pathname & doc_name, _
FileFormat:=wdFormatRTF

ActiveDocument.Close

ChDir ThisDocument.Path  'Wordファイルと同じフォルダ

Dim doc As Document

For Each doc In Documents
doc.PageSetup.Orientation = wdOrientLandscape
Next doc

With Selection
'.TypeText "ファイル名 = " & doc_name & vbCr
'.InsertBreak wdPageBreak
.InsertFile doc_name
.InsertBreak wdSectionBreakNextPage
End With

End If
Next

'RTFにて保存
ActiveDocument.SaveAs2 FileName:=pathname & "Text.rtf", _
FileFormat:=wdFormatRTF
ActiveDocument.Close

book.Close

Call PDFに変換

End Sub

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正の依頼

  • coco_bauer

    2017/06/23 12:40

    3ページのRTFファイルに、10ページのRTFファイルを結合した結果のRTFファイルのフィールドコードが持つページ数を、13ではなく3にしたいという事ですか??

    キャンセル

  • Goebo

    2017/06/26 09:10

    連絡遅れまして申し訳ありません。総ページ数は13ですが、表示しません。3ページのRTFファイルは[1][2][3]で10ページのRTFファイルを結合した時[1][2][3][4][5][6][7][8][9][10]と結合する前のRTFのページ表示を保ちたいです。

    キャンセル

まだ回答がついていません

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.96%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る