Sử dụng Excel VBA để di chuyển đến trang 136 trên Mẫu Word

Sử dụng Excel VBA để di chuyển đến trang 136 trên Mẫu Word

Câu hỏi:

1) Tôi muốn sử dụng Excel VBA để di chuyển con trỏ đến trước chữ "C" trong tiêu đề "Kết hợp Báo cáo Nguồn lực Ngân sách theo Tài khoản Tổ chức Con" (tiêu đề này nằm ở khoảng trang 136) của Mẫu Word. Ngoài ra, tôi muốn con trỏ di chuyển nhanh hơn.

Xin lưu ý rằng dòng mã objParagraph.Find.Text bên dưới không hoạt động với tôi. Vậy cú pháp đúng là gì?

Tên tập tin:

Tệp Word: FY20 AFR-2.docx

Tệp Excel: FY2020 PD12 RSI-SBR RFWD TIER Revise.xlsx (không liên quan đến câu hỏi này)

Mã VBA trong Excel:

Sub DHSBOTRSISBR()

Dim objWord

Làm mờ objDoc

Dim objSelection

Đặt objWord = CreateObject("Word.Application") 'Tạo đối tượng của Microsoft Word

Đặt objDoc = objWord.Documents.Open("C:\Users\david.surti\OneDrive - Bộ An ninh Nội địa\USB_Current\1W\Tệp Chương trình Chính VB\BOT\DHS FY20 AFR-2.docx")

objWord.Visible = Đúng

Đặt objSelection = objWord.Selection

objParagraph.Find.Text = "Kết hợp Báo cáo Nguồn lực Ngân sách theo Tài khoản Tổ chức Phụ"

Kết thúc phụ đề

[Chuyển từ Excel/Windows 10/Microsoft 365 Apps hoặc Office 365 Business]




Trả lời:

Đoạn mã sau sẽ đặt lựa chọn ngay trước chữ C của từ Combining trong cụm từ Combining Statement of Budgetary Resources by Sub-Organization Accounts

Sub DHSBOTRSISBR()

Dim objWord

Làm mờ objDoc

Dim objrng

Dim i As Long

Đặt objWord = CreateObject("Word.Application") 'Tạo đối tượng của Microsoft Word

Đặt objDoc = objWord.Documents.Open("C:\Users\david.surti\OneDrive - Bộ An ninh Nội địa\USB_Current\1W\Tệp Chương trình Chính VB\BOT\DHS FY20 AFR-2.docx")

objWord.Visible = Đúng

Đặt objrng = objDoc.Range

i = InStr(objrng, "Kết hợp Báo cáo Nguồn lực Ngân sách theo Tài khoản Tổ chức Phụ")

objrng.MoveStart wdCharacter, i - 1

objrng.Collapse wdCollapseStart

objrng.Select

Kết thúc phụ đề



Trả lời:

Xin chào Doug,

Trước tiên, cảm ơn phản hồi của bạn. Tôi thực sự trân trọng điều đó.

Trên dòng mã "objrng.MoveStart wdCharacter, i - 1" (vui lòng xem dòng được tô sáng màu đỏ bên dưới), tôi nhận được thông báo lỗi sau:

"Lỗi thời gian chạy '4120':

Tham số không hợp lệ"

Tôi không biết cách sửa lỗi cú pháp này. Hy vọng bạn có thể giúp tôi.

Sub DHSBOTRSISBR()

Dim objWord

Làm mờ objDoc

Dim objrng

Dim i As Long

Đặt objWord = CreateObject("Word.Application") 'Tạo đối tượng của Microsoft Word

Đặt objDoc = objWord.Documents.Open("C:\Users\david.surti\OneDrive - Bộ An ninh Nội địa\USB_Current\1W\Tệp Chương trình Chính VB\BOT\DHS FY20 AFR-2.docx")

objWord.Visible = Đúng

Đặt objrng = objDoc.Range

i = InStr(objrng, "Kết hợp Báo cáo Nguồn lực Ngân sách theo Tài khoản Tổ chức Phụ")

objrng.MoveStart wdCharacter, i - 1

objrng.Collapse wdCollapseStart

objrng.Select

Kết thúc phụ đề


Dưới đây là hình ảnh trang được chọn (trang 136) trong tài liệu Word. Bạn có thể thấy hình ảnh này hữu ích:



Trả lời:

Thử

Sub DHSBOTRSISBR()

Dim objWord

Làm mờ objDoc

Dim objrng

Dim i As Long

Đặt objWord = CreateObject("Word.Application") 'Tạo đối tượng của Microsoft Word

Đặt objDoc = objWord.Documents.Open("C:\Users\david.surti\OneDrive - Bộ An ninh Nội địa\USB_Current\1W\Tệp Chương trình Chính VB\BOT\DHS FY20 AFR-2.docx")

objWord.Visible = Đúng

Đặt objrng = objDoc.Range

i = InStr(objrng, "Kết hợp Báo cáo Nguồn lực Ngân sách theo Tài khoản Tổ chức Phụ")

MsgBox i

objrng.MoveStart wdCharacter, i - 1

objrng.Collapse wdCollapseStart

objrng.Select

Kết thúc phụ đề

và xem Hộp thông báo hiển thị những gì.

Nếu bạn gửi cho tôi một bản sao của tài liệu, ghi chú lại chủ đề này trong email đính kèm, tôi sẽ điều tra vấn đề này.



Trả lời:

Hộp thông báo hiển thị thông tin sau:

Microsoft Excel

1

Tôi muốn gửi cho bạn tài liệu Word nhưng làm sao để đính kèm nó vào chủ đề này? Hoặc làm sao để gửi tài liệu Word cho bạn và tham chiếu đến chủ đề này? Tôi đã thử sử dụng biểu tượng "Chèn hình ảnh" nhưng nhận được thông báo lỗi cho biết kích thước tệp quá lớn (kích thước tệp = 22.160 KB)).

David Surti

Email: *** Địa chỉ email đã bị xóa vì lý do riêng tư ***

C: 202-731-9207

Comments

Post a Comment

Popular posts from this blog

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Image
Excel 2016 - mở tất cả các tệp trong MỘT phiên bản Xin chào, Tôi gặp sự cố với Excel 2016 (16.0.10228.20051 32-bit): Tôi có một phiên bản Excel đang chạy. (NB - hộp kiểm " Bỏ qua các ứng dụng khác sử dụng Trao đổi dữ liệu động (DDE) " trong Tùy chọn nâng cao KHÔNG được chọn.) Điều tôi cần là - đối với tất cả các tệp Excel mà tôi sắp mở để mở trong phiên bản Excel đầu tiên và duy nhất của mình e, luôn luôn và bất kể: - tôi mở bao nhiêu tập tin cùng một lúc, - nơi chứa các tập tin (tức là trên ổ đĩa cục bộ hoặc trên OneDrive nên hệ thống cần tải chúng xuống trước khi mở) và kể cả khi mở tệp Excel từ các ứng dụng Office khác, tức là tệp đính kèm Outlook. Hành vi mà tôi thấy trong Excel 2016 tốt nhất là không nhất quán: 1. Khi mở nhiều tệp bổ sung cùng một lúc từ đĩa (chọn nhiều tệp/nhấp chuột phải/Mở) - nó sẽ mở n tệp đầu tiên trong phiên bản Excel đầu tiên, nhưng sau đó từ tệp n +1, nó bắt đầu mở chúng trong phiên bản mới . 2. Một biến thể của trường hợp trên là k...
Read more

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Image
Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể. Trong excel 2003, trong mục tùy chỉnh thanh công cụ, người ta có thể lấy một nút và chỉnh sửa hình ảnh của nút đó. Điều tôi muốn làm trong excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy cập nhanh và để nút đó chạy một macro cụ thể. Ví dụ, tạo nút có chữ G lớn và khi nhấp vào, nút sẽ thực hiện truy vấn web và nhập giá vàng từ kitco.com. Có cách nào để thực hiện việc này trong Excel 2010 không? Trả lời: Xin chào, Để bật tab Nhà phát triển 1. Trên tab Tệp , chọn Tùy chọn để mở hộp thoại Tùy chọn . 2. Nhấp vào Tùy chỉnh Ribbon ở phía bên trái của hộp thoại. 3. Trong mục Chọn lệnh từ ở phía bên trái hộp thoại, chọn Lệnh phổ biến . 4. Trong mục Tùy chỉnh Dải băng ở phía bên phải hộp thoại, chọn Tab chính trong hộp danh sách thả xuống, sau đó chọn hộp kiểm Nhà phát triển . 5. Nhấp vào OK . Để biết thêm thông tin về cách tạo ...
Read more

Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ

Image
Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ Chào mọi người, Tôi biết có nhiều bài viết liên quan đến vấn đề này nhưng câu trả lời không thỏa đáng với môi trường của tôi. Chúng tôi xử lý số lượng tài liệu mỗi ngày và lưu vào máy tính để bàn -> việc bỏ chặn không cắt được tài liệu đó cũng như vô hiệu hóa chế độ xem được bảo vệ bằng phần mềm ransomware gần đây mà NHS nhận được (bảo mật cần được giữ nguyên). Thông báo có nội dung: 'Không thể mở hoặc lưu thêm bất kỳ tài liệu nào vì không có đủ bộ nhớ hoặc dung lượng ổ đĩa' -> mặc dù việc thực hiện 2 giải pháp trên sẽ khắc phục được điều này (đó không phải là bộ nhớ, chỉ là một tin nhắn ngu ngốc nếu tôi thành thật) . Tuy nhiên, tôi chỉ cần có thể mở tệp ở chế độ xem được bảo vệ, không gặp lỗi. Có ai có thể sửa lỗi này 'đúng cách' chưa? Nếu vậy xin vui lòng cho tôi biết để tôi có thể triển khai rộng rãi hoạt động kinh doanh này. Tôi đã tìm thấy cài đặt gpe trong cấu hình người dùng -> thành phần windo...
Read more