Поиск текста в Word

Sub Выделить_между() Dim MyRange As Range, rStart&, rEnd& Set MyRange = ActiveDocument.Content With MyRange With .Find .ClearFormatting .Text = "Структура активов" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike Читать далее Поиск текста в Word

Поиск уникальных значений (для заключения)

Option Explicit Public LastRow As Integer     Sub HelloWorld(control As IRibbonControl) On Error Resume Next Application.ScreenUpdating = False Trim Application.ScreenUpdating = True End Sub       Private Sub Trim() Dim ws6 As Worksheet Dim ws14 As Worksheet Set Читать далее Поиск уникальных значений (для заключения)

Наследование PHP

<?php class MyExtClass extends MyClass {   private $myName; private $myAdress;   function setMyName($myName){ $this->myName=$myName; } function print1 ($myName, $myAdress){ echo "My Name is: {$this->myName} "; echo "My Adress is: $myAdress \n";   }   }   //========================================================= // Реализация Читать далее Наследование PHP

получить данные

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <!— <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> —> <title>Страница ввода данных</title> </head> <body>   <?php //http://localhost:8080/excel/index.php?XDEBUG_SESSION_START=session_name   define(’EOL’,(PHP_SAPI == ‘cli’) ? PHP_EOL : ‘<br />’); /** PHPExcel_IOFactory */ require_once dirname(__FILE__) Читать далее получить данные

Парсинг: выгрузить все выходные дни в году

Sub ПолучитьРабДаты1(Y As Integer, RowStart As Integer, ColumnStart As Integer) Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet   Application.DisplayAlerts = False   Sh.Range("2:3").Clear     yar Читать далее Парсинг: выгрузить все выходные дни в году

Парсинг (получить рабочие дни с консультатнта)

Sub Расписание() Set doc = CreateObject("htmlfile") doc.Open ‘ Dim sl As String, Url As String Dim Sh As Worksheet Set Sh = ActiveSheet   Application.DisplayAlerts = False   Sh.Range("2:3").Clear     yar = Range("F1").Value   ‘ Url = "http://www.consultant.ru/law/ref/calendar/proizvodstvennye/2017/" Url Читать далее Парсинг (получить рабочие дни с консультатнта)