Cách Dán Chuỗi Văn Bản Có Định Dạng Vào Word Bằng Tự Visual ...

Bỏ qua để tới nội dung chính Đăng nhập với Microsoft Đăng nhập hoặc tạo một tài khoản. Xin chào, Chọn một tài khoản khác. Bạn có nhiều tài khoản Chọn tài khoản bạn muốn đăng nhập.

Tóm tắt

Với Tự động hóa, bạn có thể thực hiện theo lập trình hầu như bất kỳ điều gì mà người dùng có thể thực hiện thủ công Microsoft Office Word. Tuy nhiên, nếu bạn có nhiều văn bản mà bạn muốn nhập và định dạng, nó có thể yêu cầu nhiều mã. Nếu bạn có thể biểu thị dữ liệu dưới dạng chuỗi Văn bản Có định dạng (RTF), bạn có thể thường xuyên giảm mã Tự động hóa. Bạn có thể tạo chuỗi RTF, sao chép chuỗi RTF vào bảng tạm, rồi dán chuỗi RTF vào tài liệu.Bài viết này mô tả cách xây dựng một ví dụ Visual Basic đơn giản khởi động Word, tạo tài liệu mới và thêm một số văn bản được định dạng vào tài liệu bằng cách sử dụng chuỗi RTF dựng sẵn.

Thông tin Bổ sung

Để tạo dự án ví dụ, hãy làm theo các bước sau:

1. Bắt Visual Basic, rồi tạo một EXE Chuẩn mới. Theo mặc định, một biểu mẫu có tên là Form1 sẽ được tạo.

2. Thêm Nút Lệnh vào biểu mẫu, bấm đúp vào Nút Lệnh, rồi thêm mã sau đây vào sự kiện Click.

   'sRTF represents the rich-text-formatted string to paste into WordDim sRTF As StringsRTF = "{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl" & _ "{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}" & _ "{\f2\froman\fprq2 Times New Roman;}}" & _ "{\colortbl\red0\green0\blue0;\red255\green0\blue0;}" & _ "\deflang1033\horzdoc{\*\fchars }{\*\lchars }" & _ "\pard\plain\f2\fs24 Line 1 of \plain\f2\fs24\cf1" & _ "inserted\plain\f2\fs24 file.\par }"'Copy the contents of the Rich Text to the clipboardDim lSuccess As LongDim lRTF As LongDim hGlobal As LongDim lpString As LonglSuccess = OpenClipboard(Me.hwnd)lRTF = RegisterClipboardFormat("Rich Text Format")lSuccess = EmptyClipboardhGlobal = GlobalAlloc(GMEM_MOVEABLE Or GMEM_DDESHARE, Len(sRTF))lpString = GlobalLock(hGlobal)CopyMemory lpString, ByVal sRTF, Len(sRTF)GlobalUnlock hGlobalSetClipboardData lRTF, hGlobalCloseClipboardGlobalFree hGlobal'Paste into a new Word documentDim oWord As ObjectDim oDoc As ObjectSet oWord = CreateObject("word.application")Set oDoc = oWord.Documents.AddoWord.Selection.PasteoWord.Visible = True

3. Thêm mã sau vào phần Khai báo Chung của mô-đun Biểu mẫu.

   Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function RegisterClipboardFormat Lib "user32" Alias _ "RegisterClipboardFormatA" (ByVal lpString As String) As LongPrivate Declare Function EmptyClipboard Lib "user32" () As LongPrivate Declare Function CloseClipboard Lib "user32" () As LongPrivate Declare Function SetClipboardData Lib "user32" ( _ ByVal wFormat As Long, ByVal hMem As Long) As LongPrivate Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _ ByVal dwBytes As Long) As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ ByVal Destination As Long, Source As Any, ByVal Length As Long)Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As LongPrivate Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As LongPrivate Declare Function GlobalFree Lib "kernel32" Alias "GlobalFree" ( _ ByVal hMem As Long) As LongPrivate Const GMEM_DDESHARE = &H2000Private Const GMEM_MOVEABLE = &H2

4. Nhấn phím F5 để chạy dự án. Word sẽ bắt đầu, rồi một tài liệu mới được tạo có chứa văn bản đã định dạng.

Tham khảo

Để biết thêm thông tin và về các mẫu cho việc phát triển Office pháp, hãy truy cập website Microsoft sau đây:

http://support.microsoft.com/ofd http://msdn.microsoft.com/office

ĐĂNG KÝ NGUỒN CẤP DỮ LIỆU RSS

Bạn cần thêm trợ giúp?

Bạn muốn xem các tùy chọn khác?

Khám phá Cộng đồng

Khám phá các lợi ích của gói đăng ký, xem qua các khóa đào tạo, tìm hiểu cách bảo mật thiết bị của bạn và hơn thế nữa.

Lợi ích đăng ký Microsoft 365

Nội dung đào tạo về Microsoft 365

Bảo mật Microsoft

Trung tâm trợ năng

Cộng đồng giúp bạn đặt và trả lời các câu hỏi, cung cấp phản hồi và lắng nghe ý kiến từ các chuyên gia có kiến thức phong phú.

Hỏi Cộng đồng Microsoft

Cộng đồng Kỹ thuật Microsoft

Người dùng Nội bộ Windows

Người dùng nội bộ Microsoft 365

Thông tin này có hữu ích không?

Có Không Xin cảm ơn! Bạn có thêm ý kiến phản hồi nào cho Microsoft không? Bạn có thể giúp chúng tôi cải thiện không? (Gửi ý kiến phản hồi cho Microsoft để chúng tôi có thể trợ giúp.) Bạn hài lòng đến đâu với chất lượng dịch thuật? Điều gì ảnh hưởng đến trải nghiệm của bạn? Đã giải quyết vấn đề của tôi Hướng dẫn Rõ ràng Dễ theo dõi Không có thuật ngữ Hình ảnh có ích Chất lượng dịch thuật Không khớp với màn hình của tôi Hướng dẫn không chính xác Quá kỹ thuật Không đủ thông tin Không đủ hình ảnh Chất lượng dịch thuật Bất kỳ thông tin phản hồi bổ sung? (Không bắt buộc) Gửi phản hồi Khi nhấn gửi, phản hồi của bạn sẽ được sử dụng để cải thiện các sản phẩm và dịch vụ của Microsoft. Người quản trị CNTT của bạn sẽ có thể thu thập dữ liệu này. Điều khoản về quyền riêng tư.

Cảm ơn phản hồi của bạn!

×