كيفية لصق سلسلة تنسيق Rich Text في Word باستخدام التنفيذ التلقائي Visual Basic

ملخص

باستخدام التنفيذ التلقائي، يمكنك القيام برمجياً أي شيء يمكن للمستخدم القيام يدوياً في Microsoft Office Word. ومع ذلك، إذا كان لديك الكثير من النص الذي تريده لإدخال وتنسيق، قد يتطلب العديد من التعليمات البرمجية. إذا كنت تمثل البيانات كسلسلة تنسيق Rich Text (RTF)، يمكنك تقليل كثرة التعليمات البرمجية التنفيذ التلقائي. يمكنك إنشاء سلسلة RTF، نسخ السلسلة RTF إلى "الحافظة" وقم بلصق سلسلة RTF في المستند.

توضح هذه المقالة كيفية إنشاء مثال بسيط Visual Basic الذي يقوم بتشغيل Word إنشاء مستند جديد وإضافة بعض النص المنسق إلى المستند باستخدام سلسلة RTF تم إنشاؤه مسبقاً.

مزيد من المعلومات

لإنشاء نموذج المشروع، اتبع الخطوات التالية:

  1. بدء تشغيل Visual Basic ثم قم بإنشاء EXE قياسي جديد. بشكل افتراضي، يتم إنشاء نموذج يسمى Form1.

  2. إضافة CommandButton إلى النموذج، انقر نقراً مزدوجاً فوق CommandButton، وقم بإضافة التعليمات البرمجية التالية إلى حدث انقر فوق .

    'sRTF represents the rich-text-formatted string to paste into Word
    Dim sRTF As String
    sRTF = "{\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 clipboard
    Dim lSuccess As Long
    Dim lRTF As Long
    Dim hGlobal As Long
    Dim lpString As Long
    lSuccess = OpenClipboard(Me.hwnd)
    lRTF = RegisterClipboardFormat("Rich Text Format")
    lSuccess = EmptyClipboard
    hGlobal = GlobalAlloc(GMEM_MOVEABLE Or GMEM_DDESHARE, Len(sRTF))
    lpString = GlobalLock(hGlobal)

    CopyMemory lpString, ByVal sRTF, Len(sRTF)
    GlobalUnlock hGlobal
    SetClipboardData lRTF, hGlobal
    CloseClipboard
    GlobalFree hGlobal

    'Paste into a new Word document
    Dim oWord As Object
    Dim oDoc As Object
    Set oWord = CreateObject("word.application")
    Set oDoc = oWord.Documents.Add
    oWord.Selection.Paste
    oWord.Visible = True

  3. أضف التعليمات البرمجية التالية إلى المقطع "تعريفات عام" من الوحدة النمطية للنموذج.

    Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function RegisterClipboardFormat Lib "user32" Alias _
    "RegisterClipboardFormatA" (ByVal lpString As String) As Long
    Private Declare Function EmptyClipboard Lib "user32" () As Long
    Private Declare Function CloseClipboard Lib "user32" () As Long
    Private Declare Function SetClipboardData Lib "user32" ( _
    ByVal wFormat As Long, ByVal hMem As Long) As Long
    Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _
    ByVal dwBytes As Long) As Long
    Private 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 Long
    Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
    Private Declare Function GlobalFree Lib "kernel32" Alias "GlobalFree" ( _
    ByVal hMem As Long) As Long

    Private Const GMEM_DDESHARE = &H2000
    Private Const GMEM_MOVEABLE = &H2
  4. اضغط المفتاح F5 لتشغيل المشروع. بدء تشغيل word، ومن ثم إنشاء مستند جديد يحتوي على نص منسق.

المراجع

لمزيد من المعلومات ونماذج لتطوير حلول Office، قم بزيارة مواقع Microsoft التالية على الويب:



هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Microsoft Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×