Страницы: 1
RSS
excel выделение определенного слова ижрным, как выделить жирным
 
Здравствуйте! помогите пожалуйста!
Как в ячейке с текстом или в определенном столбце выделить слово жирным "ЗАКАЗЧИК", "ИСПОЛНИТЕЛЯ" и "ИСПОЛНИТЕЛЮ"

или при выгрузке из excel в word, текст который в 65 столбце.

VidStrCen$ = Cells(i%, 65).Text


FileCopy HomeDir$ + "\DOG_Ret.docx", HomeDir$ + "(" + Vids$ + ")" + P$ + Godsokr$ + ".docx"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "(" + Vids$ + ")" + P$ + Godsokr$ + ".docx")


temp = Left(VidStrCen$, 255)
temp2 = Mid(VidStrCen$, 256, 255)
temp3 = Mid(VidStrCen$, 512, 255)


wdDoc.Range.Find.Execute FindText:="&VidStrCen", ReplaceWith:=temp
wdDoc.Range.Find.Execute FindText:="&V2idStrCen", ReplaceWith:=temp2
wdDoc.Range.Find.Execute FindText:="&V3idStrCen", ReplaceWith:=temp3
 
betas, а Excel , стал нативным приложением для работы c форматом .docx?
По вопросам из тем форума, личку не читаю.
 
Код
Sub mm()
For n = 1 To 1000
If Range("A" & n).Text = "betas" Then
Range("A" & n).Font.Bold = True
End If
Next n
End Sub
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
Цитата
написал:
betas , а Excel , стал нативным приложением для работы c форматом .docx?
Вот в таком виде сейчас
Sub P_ERT_A00()
Dim wdApp As Object
Dim wdDoc As Object
HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
i% = Cells(2, 1).Text
Do
If Cells(i%, 1).Value = "" Then Exit Do
If Cells(i%, 1).Value <> "" Then
Vids$ = Cells(i%, 11).Text
VidStrCen$ = Cells(i%, 65).Text

FileCopy HomeDir$ + "\DOG_BP_Resert.docx", HomeDir$ + "\" + "Дог " + DlyImNom$ + " " + KorotNaim$ + " " + "(" + Vids$ + ")" + P$ + Godsokr$ + ".docx"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "\" + "Дог " + DlyImNom$ + " " + KorotNaim$ + " " + "(" + Vids$ + ")" + P$ + Godsokr$ + ".docx")

temp = Left(VidStrCen$, 255)
temp2 = Mid(VidStrCen$, 256, 255)
temp3 = Mid(VidStrCen$, 512, 255)



wdDoc.Range.Find.Execute FindText:="&VidStrCen", ReplaceWith:=temp
wdDoc.Range.Find.Execute FindText:="&V2idStrCen", ReplaceWith:=temp2
wdDoc.Range.Find.Execute FindText:="&V3idStrCen", ReplaceWith:=temp3





wdDoc.Range.Find.Execute FindText:="&NomDog", ReplaceWith:=NomDog$

wdDoc.Range.Find.Execute FindText:="&FamilIO", ReplaceWith:=FamilIO$


wdDoc.Save
wdDoc.Close


End If


i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово!"


End Sub
 
Цитата
написал:
temp = Left(VidStrCen$, 255) temp2 = Mid(VidStrCen$, 256, 255) temp3 = Mid(VidStrCen$, 512, 255) wdDoc.Range.Find.Execute FindText:="&VidStrCen", ReplaceWith:=temp wdDoc.Range.Find.Execute FindText:="&V2idStrCen", ReplaceWith:=temp2 wdDoc.Range.Find.Execute FindText:="&V3idStrCen", ReplaceWith:=temp3
либо как то среди этого делать поиск по словам???
 
betas, вы читать умеете? Вы спрашиваете про обработку текстового документа в формате Word. То что там может быть таблица - не делает его Excel файлом.

По существу - Word имеет богатые возможности поиска и замены встроенными средствами, то есть достаточно прописать замену ЗАКАЗЧИК на ЗАКАЗЧИК и он сделает все сам
вот что просто записал макрорекордер
Код
Sub Macro2()
'
' Macro2 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Bold = True
    With Selection.Find
        .Text = "ЗАКАЗЧИК"
        .Replacement.Text = "ЗАКАЗЧИК"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
дерзайте.
Изменено: БМВ - 30.11.2024 09:14:58
По вопросам из тем форума, личку не читаю.
 
Цитата
написал:
betas , вы читать умеете? Вы спрашиваете про обработку текстового документа в формате Word. То что там может быть таблица - не делает его Excel файлом.
Простите, затупил)) Спасибо!
Изменено: betas - 02.12.2024 10:23:54
Страницы: 1
Наверх