تحديد موقع الشكل المضمّن الجديد في Word VBA؟
https://stackoverflow.com/questions/103980
italiano
english
français
española
中国
日本の
العربية
Deutsch
한국어
Português
Russianسؤال
أنا أعمل على "معالج" المستندات للشركة التي أعمل بها.إنه ملف .dot برأس يتكون من بعض النصوص وبعض حقول النماذج والكثير من تعليمات VBA البرمجية.يتم سحب النص الأساسي للمستند ككائن OLE من ملف .doc منفصل.
حاليًا، يتم ذلك باعتباره Shape, ، بدلاً من InlineShape.لقد فعلت ذلك لأنني أستطيع تحديد موضع الشكل تمامًا، بينما يظهر الشكل المضمن دائمًا في بداية المستند.
المشكلة في هذا هي أن أ Shape لا يتحرك عندما يتغير حجم الرأس.إذا احتاج شخص ما إلى إضافة أو إزالة سطر من الرأس بسبب حالة خاصة، فإنه يحتاج أيضًا إلى نقل الكائن الذي يحدد الجسم.هذا مؤلم، وأريد تجنبه إن أمكن.
قصة قصيرة طويلة، كيف يمكنني وضع InlineShape باستخدام VBA في Word؟
الإصدار الذي أستخدمه هو Word 97.
المحلول
يتم التعامل مع InlineShape كحرف.وبالتالي نفس التقنية.
ThisDocument.Range(15).InlineShapes.AddPicture "1.gif"
نصائح أخرى
انتهى الكود النهائي الخاص بي باستخدام ThisDocument.Paragraphs للحصول على النطاق الذي أحتاجه.لكن GSerg وجهني في الاتجاه الصحيح لاستخدام ملف Range للحصول على كائني حيث يجب أن يكون.
