Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Проблем с Word Replace picture

Последователи

27 май27 Май

Искам да заменя една картинка с друга картинка, която се повтаря 200 пъти във Word файл.

Има много видеа , където казват ползват Replace и отдолу избираш Graphics или слагаш ^g и на замени с ^c за картинката от клипборда.

На Мак компютри работи но на Office 2022 не работи! Replace ^g не ми намира старата картинка!

27 май27 Май

На Мак работи в кое?

А този Office 2022 върху какво е сложен?

Четете написаното - ти знаеш какво имаш в предвид, но ние трябва да гадаем дали Office 2022 работи коректно върху Мак, но не и върху Win ... или имаш друго в предвид.

Друг метод за дефиниране на таргета има ли освен ^g - защото така много общо за един документ пълен с различни картинки (да, четох, при теб е една и съща), примерно име на снимката/файла?

27 май27 Май

Автор

преди 1 минута, plamen_petrov_80 написа:
На Мак работи в кое?
А този Office 2022 върху какво е сложен?
Четете написаното - ти знаеш какво имаш в предвид, но ние трябва да гадаем дали Office 2022 работи коректно върху Мак, но не и върху Win ... или имаш друго в предвид.
Друг метод за дефиниране на таргета има ли освен ^g - защото така много общо за един документ пълен с различни картинки (да, четох, при теб е една и съща), примерно име на снимката/файла?

На Мак с Office 2021 тази функция работи, на Win11 с Office 2021 не работи!

Ако ще пишеш тъпотии за гадаене по добре не пиши нищо по тази тема моля. Ако имаш въпроси - напиши ги нормално без посредствени коментари.

Според Word 2021 няма друг начин да таргетираш картинка освен ^g

На Мак-а когато кажеш Replace ^g и ти дава - намерени 200 картинки и можеш да кажеш коя искаш да смениш или всичките. На Word 2021 на Win11 не намира нито една картинка в същия документ за да я замени с нова.

27 май27 Май

преди 14 минути, Belefor написа:
Office 2022

току-що, Belefor написа:
На Мак с Office 2021 тази функция работи, на Win11 с Office 2021 не работи!

преди 1 минута, Belefor написа:
Ако ще пишеш тъпотии

преди 1 минута, Belefor написа:
без посредствени коментари

преди 1 минута, Belefor написа:
моля

27 май27 Май

Автор

току-що, plamen_petrov_80 написа:
преди 15 минути, Belefor написа:
Office 2022
преди 1 минута, Belefor написа:
На Мак с Office 2021 тази функция работи, на Win11 с Office 2021 не работи!
преди 1 минута, Belefor написа:
Ако ще пишеш тъпотии

....

И двата офис пакета са 2021...

Продължавай със заяжданията си...

Току що проверих и на Офис 2019 на Win11 - и там не работи.

27 май27 Май

Ти ме обвиняваш, че пиша тъпотии, а самия ти какво написа? Аз да съм ти сложил в ръцете Office 2022?

27 май27 Май

Автор

Колко още можеш да спамиш тъпотии, които не са по темата?

27 май27 Май

НЕ работи, защото Microsoft премахна поддръжката на ^g за графики преди години.Но има три други вариянта.Разбира се ако ги има.Единия е .

Home → Replace → More → Special → Graphic

Ако го имаш → избираш го → Replace with → ^c → работи.

27 май27 Май

преди 1 минута, Belefor написа:
Колко още можеш да спамиш тъпотии, които не са по темата?

Зависи само от теб, кога ще признаеш, че си допуснал грешка при писането на темата?

При мен работи до някъде ... намира картинката, намира и следващата, но при замяна стават непридвидими неща ...

Ако направя първо действие - ^g - замени всички с уникален текст - "snimka_za_zamqna" - маха всички картинки и слага текста.

На второ действие давам да замени уникалния текст с > ^c - така нещата (поне при мен) се получиха с добър резултат - тоест не виждам липсващ текст, не променена/намерена снимка ( все пак работя с файл само с две снимки в него).

27 май27 Май

Намерих друг вариянт.

Ако картинките са различни обекти (вмъквани поотделно), тогава Replace няма шанс.

Тук VBA е единственият надежден метод.

Код: заменя ВСИЧКИ картинки с тази от клипборда

Копирай новата картинка в клипборда.

Word → Alt + F11

Insert → Module

Постави това:

Sub ReplaceAllPictures()
    Dim shp As InlineShape
    For Each shp In ActiveDocument.InlineShapes
        shp.Select
        Selection.PasteSpecial DataType:=wdPasteBitmap
    Next shp
End Sub

Run → F5

работи за 200+ картинки

27 май27 Май

Автор

преди 42 минути, nusho73 написа:
НЕ работи, защото Microsoft премахна поддръжката на ^g за графики преди години.Но има три други вариянта.Разбира се ако ги има.Единия е .
Home → Replace → More → Special → Graphic
Ако го имаш → избираш го → Replace with → ^c → работи.

Ами не - не работи.... то като отидеш на Home->replace->more->special->Graphic и изкарва същия символ ^g ...

преди 10 минути, nusho73 написа:
Намерих друг вариянт.
Ако картинките са различни обекти (вмъквани поотделно), тогава Replace няма шанс.
Тук VBA е единственият надежден метод.
Код: заменя ВСИЧКИ картинки с тази от клипборда
Копирай новата картинка в клипборда.
Word → Alt + F11
Insert → Module
Постави това:
Sub ReplaceAllPictures()
    Dim shp As InlineShape
    For Each shp In ActiveDocument.InlineShapes
        shp.Select
        Selection.PasteSpecial DataType:=wdPasteBitmap
    Next shp
End Sub
Run → F5
работи за 200+ картинки

Ще тествам.

преди 42 минути, plamen_petrov_80 написа:
Зависи само от теб, кога ще признаеш, че си допуснал грешка при писането на темата?

ДЪЛБОКО СЕ ИЗВИНЯВАМ, ЧЕ ДОПУСНАХ ГРЕШКА И ВМЕСТО OFFICE2021 СЪМ НАПИСАЛ OFFICE2022.

МНОГО СЕ НАДАВАМ ДА МЕ ИГРНОРИРАШ ЗА ТАЗИ ОГРОМНА ГРЕШКА И ДА НЕ МИ ОТГОВАРЯШ НИКОГА ПОВЕЧЕ НА ПОСТОВЕТЕ!

Доволен?

27 май27 Май

преди 8 минути, Belefor написа:
ДЪЛБОКО СЕ ИЗВИНЯВАМ, ЧЕ ДОПУСНАХ ГРЕШКА И ВМЕСТО OFFICE2021 СЪМ НАПИСАЛ OFFICE2022.

Приема се.

Пробва ли да замениш картинка с текс или отново не намира картинката при теб?

Опитвал ли си на нов файл (тестов) - има шанс да има нещо специфично в твоя файл. Другата опция е да липсва компонент при инсталацията (или нещо счупено при ъпдейт) или заради версия на Office - Home .. Pro (странното е, че ти тестваш на два различни и все не ти намира картинката, аз поне този проблем го нямам, но резултата от употребата нещо не ми допада) .. и т.н. (но е доста базова опция - намери и замени, би трябвало да я има на всяка версия).

27 май27 Май

Автор

Реално Replace не намира нито една картинка във файла което е тъпо . Файла е просто емайл подписи на 200 човека, аз само исках автоматично да заменя една от 4-те картинки с друга . А не като папагал да давам на 200 страници копи , пейст на 200 картинки на една от 4-те картинки в подписа на хората.

Странното е , че на макбука правя същото със същия файл си ги заменя. Като дам Replace и напиша ^g и веднага излизат всички картинки 800 на брой. Избирам едната и Replace with давам ^c и ги сменя за една секунда всичките.

27 май27 Май

Работи само на Mac, защото там Word е с различен енджин

27 май27 Май

преди 1 минута, nusho73 написа:
Работи само на Mac, защото там Word е с различен енджин

Е добре, а при мен защо все пак намира картинките тогава?

Файла да е правен на работещата система и поради някаква причина при отварянето им на Win машините - картинките да ги чете като нещо друго? Иначе няма логика да не ги намира изобщо.

27 май27 Май

Автор

Във файла има 800 картинки в подписа на 200 човека , по 4 картинки на човек...

Ако отида само на Find - отваря Navigation и там избера find in graphics ги намира всичките 800 картинки.

27 май27 Май

Разбирам те, но ...

пусни някъде файла ... или част от него, ако е приложимо
вкарай нова картинка в този файл и опитай отново дали намира картинка
направи съвсем нов файл и пробвай с различни картинки в него
Аз го правя от същото място.

27 май27 Май

Автор

преди 1 час, nusho73 написа:
Ако картинките са различни обекти (вмъквани поотделно), тогава Replace няма шанс.

Мда, всички картинки са вмъквани поотделно, вземаме даден сертификат - слагаме нова картинка и т.н.

Ще тествам по късно със скрипта както предлагаш.

преди 5 минути, plamen_petrov_80 написа:
Разбирам те, но ...
пусни някъде файла ... или част от него, ако е приложимо
вкарай нова картинка в този файл и опитай отново дали намира картинка
направи съвсем нов файл и пробвай с различни картинки в него
Аз го правя от същото място.

Ще видя какво мога да покажа малко по късно.

Има 4 картинки за всеки сертификат. Аз исках да сменя B-BBEE Level 2 със Level 1 автоматично за всички 200 човека... но не намираше нито една от 4-те картинки във Word файла.

Всеки сертификат е една картинка добавена...

Може би Wrap Text на картинките ги е направило неоткриваеми за Replace.

Трябваше ми Wrap Text за да ги подредя така.

27 май27 Май

Търсейки нов начин - при мен спря да работи намирането на картинките в тестовия файл които направих ... проверих няколко пъти да не бъркам нещо - всичко изглежда точно.

Направих нов файл, копирах съдържанието и сега отново ги намира картинките ... правя едно и също в двата файла ... M$ ..

Пробвай да отвориш нов файл и да копираш съдържанието 1:1 в новия - без да го затваряш опитай в новия файл дали ги намира картинките.

За файла - нямах в предвид да го видим на картинка, а да работим със самия файл или част от него - ако проблема е на база конкретен файл, но като виждам какво се случи при мен - май не е от файла.

27 май27 Май

Умникът Gemini изплю такава процедура:

Вариант 1: Ако искате да замените картинка в ЕДИН конкретен документ (бърз трик)

Ако картинката, която искате да замените, е една и съща (например лого) и се повтаря многократно в един голям документ, можете да използвате този трик с буфера (Clipboard):

Вмъкнете новата картинка някъде в документа.
Кликнете върху нея и я копирайте (с десен бутон -> Копиране или Ctrl + C). След това можете да я изтриете от това място.
Отворете менюто за замяна с клавишната комбинация Ctrl + H.
В полето Намери какво (Find what) въведете специалния код: ^g (това е кодът за графика/картинка в Word).
В полето Замени с (Replace with) въведете кода: ^c (това означава "съдържанието на буфера", т.е. новата картинка, която копирахте).
Натиснете Замени всички (Replace All).

Важно: Този метод ще замени абсолютно всички графични елементи в този документ с новата картинка. Ако имате и други различни картинки, които искате да запазите, натискайте бутона Намери следващ (Find Next) и избирателно бутона Замени (Replace).

Вариант 2: Автоматизация за МНОГО файлове наведнъж (чрез VBA Макрос)

Ако имате десетки или стотици различни .doc / .docx файлове в една папка и искате да автоматизирате процеса, единственият начин е чрез използването на VBA макрос.

Ето примерен код за макрос, който отваря всички файлове в определена папка, намира картинките в тях и ги заменя с нова картинка от вашия компютър:

Отворете Word и натиснете Alt + F11 (за да отворите VBA редактора).
Отидете на Insert -> Module.
Поставете следния код (внимателно редактирайте пътищата до папката и новата картинка):

VBA

Sub ReplaceImagesInFolder()
    Dim strFolder As String
    Dim strFile As String
    Dim doc As Document
    Dim shp As InlineShape
    Dim newImgPath As String
    
    ' !!! ПРОМЕНЕТЕ ТЕЗИ ПЪТИЩА С ВАШИТЕ !!!
    strFolder = "C:\Users\ВашетоИме\Documents\MyWordFiles\" ' Папката с документите
    newImgPath = "C:\Users\ВашетоИме\Pictures\new_image.jpg" ' Пътят до новата картинка
    
    If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
    strFile = Dir(strFolder & "*.doc*")
    
    Application.ScreenUpdating = False
    
    Do While strFile <> ""
        Set doc = Documents.Open(FileName:=strFolder & strFile, Visible:=False)
        
        ' Цикъл през всички картинки в документа
        For Each shp In doc.InlineShapes
            ' Заменя старата картинка с новата
            shp.LinkToFile = False
            shp.SaveWithDocument = True
            doc.InlineShapes.AddPicture FileName:=newImgPath, LinkToFile:=False, _
                SaveWithDocument:=True, Range:=shp.Range
            shp.Delete ' Изтрива старата картинка
        Next shp
        
        doc.Close SaveChanges:=wdSaveChanges
        strFile = Dir
    Loop
    
    Application.ScreenUpdating = True
    MsgBox "Готово! Всички картинки във файловете бяха заменени.", vbInformation
End Sub

Натиснете бутона Run (зеленото триъгълниче) или F5, за да стартирате макроса.

Съвет преди стартиране на макрос: Винаги правете архивно копие (Backup) на папката с документите, преди да пуснете макрос върху тях, в случай че нещо се обърка.