Передать картинки из html в word.

Форум Программирование Общие вопросы программирования (Dev)

1. mark_oilbass 24.10.20 14:52 Сейчас в теме

Коллеги, здравствуйте!
В 1С собирается html документ. Потом передается в word и открывается для редактирования/сохранения. В html присутствуют картинки и в водр они успешно передаются, но если сохранить ворд файл и переместить его на другой пк то картинки не будут сохранены (результат на скрине). Как можно сделать, чтобы картинки остались в ворде даже если файл (ворд файл) передать на другой пк?

Прикрепленные файлы:

По теме из базы знаний

Найденные решения

22. uno-c 238 24.10.20 19:43 Сейчас в теме

(12)Мой Ворд только через VBA это осилил, извините за мой английский:

&НаКлиенте
Процедура ТестВорд2(Команда)
	
	ТекстHTML = "<ht ml>
	|<body>
	|<h1>test</h1>
	|<img src=""t:\Ones\macaca.jpg"">
	|</body>
	|</html>";
	
	ТекстHTMLФайл= ПолучитьИмяВременногоФайла("html");
	ЗаписьТекста = новый ЗаписьТекста(ТекстHTMLФайл);
	ЗаписьТекста.Записать(ТекстHTML);
	ЗаписьТекста.Закрыть();
	
	Word = Новый COMОбъект("Word.Application");
	myDocument = Word.Documents.Add();
	myDocument.Range().InsertFile(ТекстHTMLФайл, , , False, False);
	Word.Visible = true;
	
	//https://docs.microsoft.com/ru-ru/office/vba/api/word.wdinlineshapetype
	wdInlineShapeLinkedPicture = 4;//	Linked picture.
	
	For Each InlineShape In myDocument.InlineShapes Do
		If InlineShape.Type() = wdInlineShapeLinkedPicture Then
			InlineShape.LinkFormat.BreakLink();
		EndIf
	EndDo;
	
КонецПроцедуры

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. malikov_pro 1315 24.10.20 16:17 Сейчас в теме

"Потом передается в word и открывается для редактирования/сохранения" - каким образом передается?
Сам с картинками реализовал через google docs https://infostart.ru/1c/articles/1283766/

3. mark_oilbass 24.10.20 16:21 Сейчас в теме

(2)Такой алгоритм.

ТекстHTML = "<ht ml><body>" + ТекстHTML + "</body></html>";
	
ОбработатьРазмещениеКартинок();
	
ТекстHTMLФайл= ПолучитьИмяВременногоФайла("html");
ЗаписьТекста = новый ЗаписьТекста(ТекстHTMLФайл);
ЗаписьТекста.Записать(ТекстHTML);
ЗаписьТекста.Закрыть();
	
Word = Новый COMОбъект("Word.Application");
myDocument = Word.Documents.Add();
myDocument.Range().InsertFile(ТекстHTMLФайл, , , False, False);
Word.Visible = true;

Показать

4. malikov_pro 1315 24.10.20 16:36 Сейчас в теме

(3) Вариант из интерфейса MS Word
https://cybertext.wordpress.com/2008/03/18/word-2003-unlinking-linked-images/

из VBA
https://wordribbon.tips.net/T002357_Breaking_Links_in_Lots_of_Documents.html

Как через COM думаю разберетесь.

11. mark_oilbass 24.10.20 17:58 Сейчас в теме

(4)пытался вникнуть что то не особо понял. Можете помочь разобраться?

5. uno-c 238 24.10.20 17:16 Сейчас в теме

Как вариант - текст HTML сразу формировать со встроенными картинками.

6. mark_oilbass 24.10.20 17:22 Сейчас в теме

(5)

embedded

Можно пример пожалуйста? Я почитал про этот метод, он нужен вроде для отображение видосов.

8. uno-c 238 24.10.20 17:33 Сейчас в теме

(6) Конкретный пример:

<img src="data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBwgHBgkIBwgKCgkLDRYPDQwMDRsUFRAWIB0iIiAdHx8kKDQsJCYxJx8fLT0tMTU3Ojo6Iys/RD84QzQ5OjcBCgoKDQwNGg8PGjclHyU3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3N//AABEIALEAfAMBIgACEQEDEQH/xAAcAAACAgMBAQAAAAAAAAAAAAAEBQMGAAIHAQj/xABAEAACAQIFAQUFBQYFAwUAAAABAgMEEQAFEiExQQYTIlFhFDJxgZEjQqGxwQcVYtHh8DM0Q1JzcoKSJDU2RLL/xAAYAQADAQEAAAAAAAAAAAAAAAAAAQIDBP/EACARAAICAwEAAwEBAAAAAAAAAAABAhESITFBA1FxMiL/2gAMAwEAAhEDEQA/AKZV1YopYy/+HIbXPTB1NKkoJjYMPTAdfFHWUckLAbjYnocB9l+zfaGoMktGYVgRtJM8mlX+GOak106nJrwsRW4xEwsMeSPNSVDUtbF3VQvK3uCPMHqMYzXGJ2aKmRg74IXjApYA82xKs622wkwo3tvjG4xqHBxha+KsKI2G+N1XEgS+Iqh+6BvhIKJ4YZJ5Y4YF1yyMERR1JO2DsypaTKImM1RLNUklQseyIfI2FzsSfkfnr2WnWmhzHOpFLGiQJToBfVK4IG3WwvgbMssqGpFpY1WSY1Dd8xFhI9gptySAFtcbc/KkvWZuXiEKukr6O/alkJusiuZLknjT15wyhWZGamqlC1ERIkUG4HwPUEbg+WFNZThZ5JL64wdOtTuD8v7OGgqzVZclYCplpE0PwC0d+nnbY/C+G+CjpkpTGug4iWujYAg3vjf2pDiUzR0LcteWpIMSq/8ACTzjoeTxW7Oi8JjZZWuvxxzPs9DMQCKWW/8AuQA/TfHS+yzygTUdRFOO9W6GaMLuPgcDSTM7tCetoo6xmp5w4UC8MtvFC3mPMemK+8ktJUPSVq6JUOx+646Mp6jHQJYeAQNj7rIcI8+yVMwptMqt4bsrR+9G3mPT0wfoXRV2lVm5wTCqMNjitV7VOUVj0tbuygMrA7Op4IwXT1zez9+qOUva4F7YWFFr5Ex8VVeox7FKgexYYq1TnRU2Nx8ecDPm0mhZBfckD5YpQZL+VIvqVEe3GEmeVaqG0kbjCWLMqyRtOgqTxqvt8cSZZl9VnucUtBq8Er/aMG2VLjUfSw/HDUNil8lrRf6CKWh7K5FSQRRvNUj96zmQ+BV4W/y3F+oPxDKiNJHliSO4kULpErsNVQ1huNtkHuhj8rXuYe0VRDUV8hjkRaSKFaRQOgQsfoF6W8vLEOS0z5mvtzyLS0SJu8rlmjXoAPdU2PJJbc7eb6TxCLOYqeOKWSSKzSAsvdgINvIA3t/EevU8YXZHN9owta6mysNrdR+eLNnK5aqGJSqO/i1VC3vv72vqfK9h88VnLiP3irx2KavDY7cfAdPLCY1sreZTSZbmM1KLsiP4SeSp3H4YxM0Gkb2wZ2+hCZnSy2AaalUsOD4WZQfooxWhbGqimrMnJp0MKJK9WHctWR/8Yb9MW3JJu0kNXFJHXPIoIuJ3I2+uKZR1DxSh3V3U9LnfFqyjO4FmiYZXSOQb769R+d8KdjjR1mOKtlTvNUTBwGC3wFX1Bp4yKmJUboTe316YFpM/hfLtbUwp+7Ph0m2x9R+u2EOcZg1V3gM8dTH3ZIQrZtPXb59MYs1SEvaiCDNKZ41YiqpnsjSmzgX3Q+m9wcLKvMYsqoIaak0yvoHeMbEauuDqekkqI4DF3japO7Ia7Ai9rfTDWn7B1CGGfOHhhg0K7JIdxtc/nhp62JqtoqUU0VbDevpmBPiVrW1D0OPauiy7u6dYxUDw6gDba7Ebn/tw0zYaSK2jcPBT+FJDYLfcWA63scDVFBWSNGB7oiiRSP8AUbTc9PN2xovsiX0QZ5T1IrlCLYlFL2PQ23/E4aZPNJliqKCKzyAI8ipeRt/dDdATbb4YGqqWuiZXmIJmUsAObEXAO9x7399My2SZGIQl0uAjqNWogL0/H6+uDwa6WA1aTKlOixGNmMlTLewALAafU34HXbyvhnW5vD7GIxTQNTwoWSNwXKkX3VdlJJ41b+Y2thDUxtKrGkgeQVEg0xnjT1vbfc+QvYAC3IcIstPTxgZbJWyWCokCIfF0BYDwKPK5NzwekIuQlq6qaWlb2hQKSXfu6iTUgBtYsALatugva1umA8mFOKx3gLaVFtxbf0GDc1ynOcwq2lraSSiiFiolmKKBb7qna3Gy3Pp5b9naOi0VEkVYtRU0zBmijUgSADpq3PXpzhz4RHoh/aTKr9oUhVbez0scZ3vcm7n/APdvlip4sfaelqCy5nUspapma4X7vFh9MJQy24GNYvRnNUyPUW3Ln674eZHClQ+zlAPvB7H8cV7BdDUCCVWMZk34vbDkrQRdM6TQ5Ok8wBq5WW1nSQ354+v8sWuLIKSIRItOjMdkmO+nxC4Y9DuPx88K+yMXf00E8aGyf6qrqZB1vbp5gi35YfZlWS5dHX1tPZnjh1MunwNta9+LbnqefXblqzeweWoo8jnQwRD2Wjn7yaZhdSxt4QfW/HS+FGeVcWZ0VZ2grpT7C5ugBN9NhZAPP+mKdndZV1+Q06a3WOaVpZFKWd5mN7k/7QDYeVsNc2pmXJezOUVKSiHvZaiohPvKmo2vbyDHbpq9MaYIjN+EHaGgVMrpazOdd5oll7iLZE1HYD4K35+mNsuYZq6MjMYFmjiGn3tKAHSP/Pr1+GPf2q5r3rwxBtUcsZeLS22m5H6cdNsWbsLljZf2OSVI1M7h2Mh2+8RYHm9uo45xXgvSpzQ1ECn2sIWEhPje+onSpJPG2gC/p64Hmmp0GmksGewUCwsTp89+l/njXN1lrUj9lnDeNi+hLqzcWW1xYDYAE2ud73wFQUktLIgnpZ1YDUokTlum39/PBQbC6Wsng7tu7Zoi3di2wO53O9x12/ngmkzeYxM1VNJCsfuQ3KqPU25HIA49DyBiamKKOMDupI7kySAeAEAcHYX9d/xuNPHD3gnmeWRAfFGELb9LltunAFgNuuCkOw+tzmpr4ZRl6zTkHW7uqqqjff8AsjriHstIlLWe0VB0lTdxqudI3xBU14jkiilkljjNpO7Rxdz0G3A9D+eAM7qHC2iYjvLkrqudO/P88Kr0F1s07QZi+YSTKLd17TI6DyuT/PCURt0BxPACBuCCOb3xuhFtzvi0sdGTd7AMH5PTrUVsYkYhA29mAP44AxaOwWQvneai8QeKLdrmwJ6DFSdIIq2dQyrtD2a7OLTe1e0xoxCXaJmVB1JOmx+W+CO0GWJnctZmfZnMoa6GppHiqKaFwdTi5Dbc3uQR5kHzsZm2Q0dFldLS59JG71lRHTU8IUiNNTW2HU79cMBS0FJ2ny7LMry9aecUc0xrUsCGUx21W3Zd91JsQR8sMktM0f2UCOnhikoGmD90CO5jUWsjaiGNgL8nYeRtj3t3PEooJHfTJCzeM3UnUxJPxJ3+uHucacrzWtRWWKmMtQSmtQty9168Xa3na44xQ69KvM83iiIJE7FO8K++p2Gx+HNvQ2ts0M9h7P1OfGiknLoqGzA7mw358yPpiyZ522ybIYUy+lh9sq6eJY7xMFjU6b2v1AvwOpOCv2gSL2T7IUVJT2jqqkEeE26C5HltY4qv7I8qgqs8bMavu5DTeJElAZSSeSDz1HoTfyw7pXLhL7SBT2ura5hUVGWVE7KSWaKQICPK4juOPukXtv1xkfaqmkacLlFRE0urUVqHN/Vraep3x1jsyZKvPc4pMygVUSSP2PSCO8UryB5+fFvIYBGX5T2emzqqlRXhrZgIFb/YqbkWuQNWoC+5AuNsJSUvAVnHpKxKkLYqwX7oB2+F8TLE86a1ULCjgabkgnr63xL2no4qmolqqSARBbMTZVUjzFgAfzwLlNdDLOsUtPFI4Fo7k7H6/lb8cX5of6C5hIA14rxm+6G9tjzckk7bfL1wKCxGmS41WswOLFnNBUdxHUNG66QOLcEcgi23PrhdTu0KCJdRu25DW0+mxw1K0S409g8Qp41+0i3J94C1tvgbn4YjeGHUSspsd9xvghTpIkUQldrBSF3+fwxrBLePV3Aa5JuNPngBiTHS/wBjgkE9U0bbhh4SNiPyxzXHXf2FU1ZJ+8JFpTLTBdmJAAb+/TBP+Qh06dnOWxdrckOWVErUdWtngmTow4Nv0wnRO0WTd5WZ3lsElVT0zxLmEFUojnNvDqU+IMTbgH+TqcSlGmp37oReOTU3hUDkk7/njk3a7tpmHbHNzT0zFMtoXIiWP/VcA+P14sB01fTKlJbK90MM3zMVWaPUNUr9mGLBFJD3JPJ2uCT0448gl/flHQ1H7wiAkMIuqE2I/O/6YrWeyPAxRmkPd2jAJ4I28+dsV+WVmYncAnjFRhktjlLHg7zbOMw7XZkJK+oXwLZNR2UXxbewXZrtZS1S1GWUGuBr/atIqqw3sGHNrnpxfyuMc/y+kkqJl7rY3sORjqsfaLP6bs1T5dl7lIaMiIuhGtiQSL9D5/LfyxUq4St7LH7QlBK0kj0kmYGO0y01QxjXm93IA4v5GwPwxS+1+aVNZNGJmKrGxSMsxWJU8PCDa314G4wLL2jk9jE7vMZ1OovBGNEbdD+HS19+gxXZc6qswmjSWd3hRi6IwVdzzc9SfXExjXBto1qpGnDCF0kbWASNwx678gb9MK0WWnqNcNw6kggEWw+qJaiGENDl8IhYe9GnvDjdubemEGm05ALRm3Frn5emLiTIbNW1NRRKJI5FjPL95cfQ/X5YGjOsFXsdvfF77cXH8vPED1NRTWiazINiCt98RNMk7gl2ST1tbBQZBLvAHIYL3g4Oncn5C2NDJGzEsgf+K38sRCR2YpJofT7rHkfMflic08hN7D/yH64AsVxtpa4tceYvju37E8xE0MtBNXPJqGoLvZem2wA/HHCo2CnxcegH646v+ymqlyicTVirQwy2CPVhYg//AE3ALfIHDkKJ3GtymGTKKjL4tarPGyHTa5B2PPx644bn+W1XYeuqKOCgCUVQ49lqHGzeEAgsPvXvt5fh3xZI5ooqgS3W1wUOzXwh7dZZDnvZavoagC5TVG3VGXcH0IwnFME2mfM3azMY66tbQqhhs+jgG5J+e/4YddjuxlVndKaieF4Yom0qZE095e1rEj5Y6F+x3sBSGGrzvPKVJ52meKmSUXAVdi9rck8HyxaO2VXSUsTUMlfJlk7A+zzpTu6X8ttibA7H15thPUaQ7uWzi9fF+5qtoJKVVIWwkQFka3QkbXFj1/lgig7Q01ZEaYQiAHZkjiRiQOBupsNv0xvW5flValW57TzNCagIVWB2086bKSP146HDOj7OZFUVixtPlkMapbUDNFJ0uWtJYdd7EfjiaXpdsTVmQRVMCVKPJZz9pIuv7VgALDex+gte17Wx4vZCilkKzStTt1UyqlvgGuePUYsOYR0WS02iUVdXQF/DVQOtXHq4sSoSx9CfzIwDW51CYQctkpWSwAR1aF255Q3B+RwraHSYvNNXZJIyu9PUUwtodbSlfToR/YvivzT0VRU+KNYFffvGW2k39P79ca1c9bWTnU+iUm1r2t9bY8mo61FVpqNZNVxqK+In5YtIlv6GdPTwzTRpPPC6D3XvbWOm5G/z3wRL2XWpWQxtHpRveDEWHkebfA2674r0a1FNJoRZIt7GM+6T8D+f0wXBmeZUs2h5GVhsQDcn09d8Jp+MMlW0C1uVVdPUrGlPO29rrGWH5f0xMVWM6Xnp0P8At7xjb02BH44jqKr2xXSVkjZuSLqL83IwC1O19t+mzYrpH4WXJVV6k0vZDLBUVKW7zNK9VPdeTKp8EY2Nibt5WxYctyfJ6OpSpr6mXtDmr2YzFmeBfNrk+IDnW5C9QG4wiqM8mkihoaKBaeJmtBSQRLqZjxqA63tZd+l9RxduyeTVFColqdFRnEo70LM+uOkXpJI33m5t0uNuMNgjrmQ1JmyqIpH3MaoAhawv62G1vK22AM2dVBeaoD6SW0hiAo9fPyxUKbNKilnFFlk80yGTva2tnJLzt6eS9Ao5v8ThrmUMuewzUpqBBNItgAb2+XX++MTkuDxfSqdlO21JT9pK3KaiWRY3luk2ohFfwgqfLj88XirrKuSajV1oJopJW73v4yLxXNtG/vDz3G3S98KuyX7O8jySGSedDVVL31yynUSL7/P4YW5/l9UkksWV1LpLDHqSBE1LpJFwL88cjpt54HpB1iuryiSbLZZKegy6qhFUXgMWhQFLnYvyxvbmx53/ANoGXd3HWd5mXZNGjnvrqNWojbSRptfaw229N7gxVi18EgFbSI/dP3byRghApXe68kabfpbBOXCSrRaKdpmaPVFHqfxzKu5QsP8AVj2KuPeRgDztK2WyHPHTLu7kyii7oTeFZYQtn3sv2gurBuLOpBO11IIxXZsxyTNo+5rKcZdUhrF+4+xJB+8EOpT5kXH8OH6TzZTWrBUmOenqTYBlAjqbjewbwpJYrdT4XBHFw2FHa7s89ZM2ZZNTux0k1EQvd7ba0U+K4tpdD4lIBOq+o2lRDZFUZTT0AhnrbPG/+FLG4nSUfwN4QT877i43w1NVSx0qfu2pQAEFoZ1sr36C/uHbbe30saRlWa1dHKwhk10sotNTv4o5PiD19ecPUy/28Sz5aHQW/wDUwObmK6knf7yHf1H44iS+y1KyDN8ykldoRTupFj4RY349fW/F98JoqCsrJCQkjC3Ok6lPl54teVZXPCI2qgrKH06n8QT69P6G2GX/AKeimZ5UZUF+7KgBTb9enQ4WVaQY30pv7rmN+8Lrt4Ha2h/Qnz/r5YHky2RZGXvAgBtaRgD+OLZmzqss0lO32UoBkjQAA3Gz2J2O+9uevolbMnViPsiepdC1z/3XPyOGmxOKHHZPJBTO9R3kbyoD7RVuCyL0KqRuQDsSN3PgXqQ0rM4qKiobKck1KO8DVVTOfHJJsCWI2JA2sNhsq7All/aHPo6eGLL8qdIY22VksCQPDrAPA95VHFrtyVs07FpCy0qOiwxgXRGFy3rbFSYooufZrKpIqbVM+pm4JXcnz/vjGmaRVlLUrJl8zROp5UC5Plc+eHkFUpURxLqNrE4lUKh7+osCPdXyxDhZWR5l1bNNR+z5iiR1EgJUje/x+eBM3NUAzKuiVbWdRfjr+GN6aJ6yv1xqGl82HhjHmfP4YeT0sdhJK5CKNK3O7euLS0ZvRzutnnaRnmQeKwsBsbfH4YrmZ5tSqVpwNCTgJ3inTodfccEWKkXHH8WOmZxlcU1MS0fjkB0oBuBb8+Mczr+zrGWR6uQ6gbrHGhax3sT9f6jENUzSLtEDZh+/8ukaopRNUxkLX0YAUzc2dCNle9yD/uDDh7GfLZ5Mr0ZdmU8tRlVUtoK+O4kQDbUOupPK91ttcWGDcuy+HKZlr5iTLEtlpdXickb6/LgHe24uOmNq+SIVKjQxymsBZ4hYNHJ1a9tn34GxFxxazzDEDm7MtmGYyU+ZpFDmS3K18ShYa5RwzAbK+1iRsTzva7bJaNMqkrKwp3TLEFKONyuo8/H58Lg6qplSino8xXRl1VabWjnUZHsSVv0J5B2N+BbADSiWiTL8yZ2JPstNWKGFuLK43tY25uRyLrhPYLWhF2hzKHKanxD7GdbeHqpvYgdQBt+u9sLanMmKa1mHfX7wMLmOZbcWvsRtz0xH2mpZ6OQU1el3iOlBpA8JtweOQd/XCpBJHJEIv8OS1xqtpO+JLRBNVPOiRO40ISgstrGw8uOBt6YAZ7sS19V9yBhhV0UlVJ9mSi2HC8/E4GaknU2DMbbbb4tNEOxTPVyz1jVCrpY2CqBcKALAD0AsMXDsk9S1Qqu7F5RuQNwPLHkeRKhGlOu5xYOzGSxLW65gberbHBKSYlGjpmRUyrTIE5tucHmmvJqcliOMeZX3SU6hL2A2tg8RmTyGNa0ZN7NIp44F7sfML54ledJCDKL24HAGNGpUTe+InWS1oxa3U4AIaso02nwFRuWa4NsIcygaVwFAcC9k7tGUfMgkX9MWKjpO9dzK/wBmOQMRVEEOss6BVHG2+IaspOip0uSyVLqKakg0Kdi+sf8AjY3H0wRHFDlUz07qpJ4WIbRt03IuT5/0xZVm1jRTCwP3yOB6YXTZatTUJG/32038r8nCcSshVmtPUV+VA1YETiQd15Lve3zwfT5WtgxFy6aXXow6E+vrhj2hjWan7mMeC448+MHuqqVAsFta54+OGokuWiu5lQUNRl7xV8QljVSI7rvfyH9/rikxdnBTQwxSgBovCtupA338hvjoGYSRxR2Nyx5YgXPoPIYrcomqah1IKxsTo/h8/r1xEjSJWcwgi7r2eiBaci0zLwg9PM2txhZVUdQZfs4wotvxucXWly+OkcFwStz7vKfPG81HAz3kgSVj99X0X+ItiUrKbKoaqMdRiaDN4KSxVFdx5k4pjZjKcDSVs7GwJGFTD/J1mg7cFSEdVXoqqNzi6ZZX1VXCJWTugRcX3xzz9nnZNZVjzHMHeRjuq8AY6LVVlPAggg0s9rWHAxtG/TKVeDCKVTuzXPxxlRLddMf1wvpwQupjuecEtIBpABJPAxZBPTEpHp5ublsCTBp5NCXIva+CAL2Q9efTEkUiaSyC/Rb+WADSOIU8bs1hhYlQ7VZlUHTFe3xI/rg2p1yuI77WJNsDqER0iAvbxN64kZvUagEX7xsT8cGS6VjAPAG2F8kwkr41vvfU3wGNMwrlS3Uk+G2HdBQHm5DW82NlGB4tA0BbG19/n/PA1VJJNUkN91b2HAuf5XwO9UsFeAzWXu7fO4xkzVLVAFbmgizSWmey6QGQ25vyPywUsy23XHP/AN5NX9pKkSG4d/AONNth+RxbYK0LGBImpvTCSaY7s5ecexf4qfEYzGYtCO85X/7BB/xjC7K//cPkPzxmMw3wj0tS/wCEPhjaH/ND/jH549xmKRDJp+Jf+N/yxrRf5aL/AKcZjMMR7/qn4YEP+PJjzGYT6NAkH+dl/wCL9cCVn+ch+BxmMxLLj0G/+zL8BhHnP+fT4/pjMZiSzn2W/wDyRP8Ar/XFxb3jjMZgYkf/2Q==">

7. uno-c 238 24.10.20 17:23 Сейчас в теме

Отредактировал слово "embeded", имел в виду <img src="data:image/jpg;base64,{{base64-data-string here}}" />

9. mark_oilbass 24.10.20 17:37 Сейчас в теме

(7)получается картинку нужно преобразовать?

10. uno-c 238 24.10.20 17:39 Сейчас в теме

(9)Её нужно встраивать. Взять ее двоичные данные в форме base64.

ДанныеКартинкиДляХТМЛ = Base64Строка(ДвоичныеДанныеКартинки)

12. mark_oilbass 24.10.20 17:59 Сейчас в теме

(10)Спасибо большое! Получилось) Хотелось бы еще понять как можно командами ворда тоже самое сделать)

13. uno-c 238 24.10.20 18:11 Сейчас в теме

(12)Прошу прощения, а у меня не получилось )
Браузер понимает прикрепленный ниже html-файл, а мой Ворд не умеет такие html-ы открывать. Возможно, Ваш MS-Word более продвинутый.

Прикрепленные файлы:

embeddedimg.html

14. mark_oilbass 24.10.20 18:17 Сейчас в теме

(13)блин, у меня оказывается тоже не получилось.

15. uno-c 238 24.10.20 18:22 Сейчас в теме

(14)Ну тогда только VBA

16. Torin 802 24.10.20 18:30 Сейчас в теме

(13)

18. uno-c 238 24.10.20 18:33 Сейчас в теме

(16) Во, продвинутый ворд. У Вас какая версия подскажите пожалуйста ?

19. mark_oilbass 24.10.20 18:34 Сейчас в теме

(18)Все таки получилось у меня)

21. uno-c 238 24.10.20 18:35 Сейчас в теме

(19)Очень рад. А то неудобно получалось как-то )

20. Torin 802 24.10.20 18:35 Сейчас в теме

(18)16

22. uno-c 238 24.10.20 19:43 Сейчас в теме

(12)Мой Ворд только через VBA это осилил, извините за мой английский:

&НаКлиенте
Процедура ТестВорд2(Команда)
	
	ТекстHTML = "<ht ml>
	|<body>
	|<h1>test</h1>
	|<img src=""t:\Ones\macaca.jpg"">
	|</body>
	|</html>";
	
	ТекстHTMLФайл= ПолучитьИмяВременногоФайла("html");
	ЗаписьТекста = новый ЗаписьТекста(ТекстHTMLФайл);
	ЗаписьТекста.Записать(ТекстHTML);
	ЗаписьТекста.Закрыть();
	
	Word = Новый COMОбъект("Word.Application");
	myDocument = Word.Documents.Add();
	myDocument.Range().InsertFile(ТекстHTMLФайл, , , False, False);
	Word.Visible = true;
	
	//https://docs.microsoft.com/ru-ru/office/vba/api/word.wdinlineshapetype
	wdInlineShapeLinkedPicture = 4;//	Linked picture.
	
	For Each InlineShape In myDocument.InlineShapes Do
		If InlineShape.Type() = wdInlineShapeLinkedPicture Then
			InlineShape.LinkFormat.BreakLink();
		EndIf
	EndDo;
	
КонецПроцедуры

Показать

24. mark_oilbass 25.10.20 09:11 Сейчас в теме

(22) к сожалению не сработало(

25. mark_oilbass 25.10.20 09:55 Сейчас в теме

(22)Я так понял пока файл не сохранен обратиться к картинкам таким способом не получиться.

26. uno-c 238 25.10.20 11:39 Сейчас в теме

(25)Какой файл? Html - да, надо сохранять. docx - мой Ворд и до сохранения линки рвет. Другой вопрос - во что разные версии вордов превращают картинки при открытии html. Мой сделал InlineShapes. Видимо, в других версиях могут быть еще варианты Shapes и Fields - по крайней мере у них тоже есть метод BreakLink.

28. uno-c 238 25.10.20 12:05 Сейчас в теме

(25) А возможно, и от релиза Ворда это зависит. У меня Ворд 16.0.4549.1000 32-битный. Не понимает встроенные в html картинки, рвет связи до сохранения. У Вас, возможно, наоборот - понимает встроенные картинки, но не рвет связи до сохранения.

30. mark_oilbass 25.10.20 21:42 Сейчас в теме

(22)мистика какая то)) У меня все заработало) Спасибо огромное)) Мы меня очень сильно выручили!

17. malikov_pro 1315 24.10.20 18:31 Сейчас в теме

(16) работу с картинками рассматривали в теме https://forum.infostart.ru/forum9/topic154959/, но без использования HTML, возможно поможет.

23. dehro 7 24.10.20 22:20 Сейчас в теме

Сохрани на свой, разберись как без 1С этот файл можно на другой комп переместить без потерь.
Запиши макрос, который "спасает" картинки просто в word'е.

А потом после
Word = Новый COMОбъект("Word.Application");
и поткрытия конкретного файла забодяжь сей макрос.
Запиши файл.

27. uno-c 238 25.10.20 11:49 Сейчас в теме

(23) Не все действия пишутся при записи макроса. В частности, разрыв связей не пишется, так что в данном случае запись макроса не поможет.

29. dehro 7 25.10.20 15:01 Сейчас в теме

Нет Word под рукой. Не могу проверить.
"В 1С собирается html документ.."
Тогда сразу собирать doc(x).

Оставьте свое сообщение

E-mail: